ggplot2中的分裂条

Question

我在这方面非常新，从中间开始，同时前后工作，所以如果这是一个超级基本的问题，请原谅我。

我有这样的代码：

mh<-read.csv("mkhz_meta.csv")

msub<-mh[complete.cases(mh[ , 29]),]

msub2 <- subset(msub, Target.Fungal.Phylum!= "a")

png("J_Weighted_2_FungalPhylum.png", width= 800, height=600)
ggplot(aes(x = Target.Fungal.Phylum, fill= Concl..Weighted.nestedness), data =     msub2) + geom_bar(position = "dodge")+
xlab("Target Fungal Phylum")+ ylab("Count")+ ggtitle("Weighted vs. Primer  Specificity")+
theme_bw()+
scale_fill_grey()+
theme(axis.text.x =element_text(hjust = 0.5, size =8, angle= 0), 
    axis.text.y =element_text(size= 10), 
    legend.title=element_blank(), 
    legend.text=element_text(size=10), 
    axis.title.x =element_text(size=10),
    axis.title.y =element_text(size=10))+
theme(panel.grid.minor = element_blank(),
    panel.grid.major=element_blank(),
    strip.background = element_blank(),
    strip.text.x=element_text(size=14),
    panel.border = element_rect(colour = "black"))
 dev.off()

它返回这个图：

​

​

有一个计数的非嵌套形态类型，没有计数嵌套形态-我不知道如何让‘形态分型’栏被分割以反映这一点。任何帮助都是非常感谢的！

Answer 1

可以使用tidyr::complete将缺失计数添加到数据中。

样本数据：

mydata <- structure(list(platform = c("454", "454", "454", "454", "454", 
"454", "454", "454", "454", "454", "Morphotyping", "Sanger", 
"Sanger", "Sanger", "Sanger", "Sanger", "Sanger"), is_nested = c("nested", 
"not nested", "nested", "nested", "nested", "nested", "nested", 
"not nested", "nested", "not nested", "not nested", "nested", 
"nested", "nested", "not nested", "nested", "not nested")), .Names = 
c("platform", 
"is_nested"), row.names = c(NA, -17L), class = c("tbl_df", "tbl", 
"data.frame"), spec = structure(list(cols = structure(list(platform = 
structure(list(), class = c("collector_character", 
"collector")), is_nested = structure(list(), class = 
c("collector_character", 
"collector"))), .Names = c("platform", "is_nested")), default = 
structure(list(), class = c("collector_guess", 
"collector"))), .Names = c("cols", "default"), class = "col_spec"))

要计数和绘图的代码：

library(tidyverse)
mydata %>% 
  count(platform, is_nested) %>% 
  complete(platform, is_nested) %>% 
  ggplot(aes(platform, n)) + 
    geom_col(aes(fill = is_nested), 
             position = position_dodge())

​

​

Answer 2

试着添加：

使用+ scale_fill_discrete(drop=FALSE) + scale_x_discrete(drop=FALSE)命令保存空的绘图箱。