如何在ggplot中疊加geom_rect和geom_boxplot？

Question

我正在嘗試使用ggplot在一些箱線圖下覆蓋geom_rect 。 我希望灰色矩形位於箱形圖后面，但由於某種原因我不能這樣做。

這是我正在使用的代碼：

ggplot(data, aes(x = reorder(genotype, -Shann.div, FUN = median), y = Shann.div)) + 
  geom_jitter(color="black", size=0.3, alpha=0.9) + geom_boxplot(outlier.shape = NA, coef = 0) + 
  geom_hline(yintercept = avg, color="red") + 
  #geom_hline(yintercept = (avg + 2 * SE), linetype='dashed', color="black") + 
  #geom_hline(yintercept = (avg - 2 * SE), linetype='dashed', color="black") + 
  geom_rect(aes(xmin=0, xmax=Inf, ymin=avg - SD, ymax=avg + SD), fill="grey", alpha=0.01) +
  theme(panel.background = element_blank()) + 
  theme(axis.text.x=element_blank(), axis.ticks.x=element_blank()) +
  ggtitle('Microbial UTO - Shannon diversity median') + xlab('genotype')

Answer 1

ggplot package 按照您聲明它們的順序繪制geom圖層。 如果你想要geom_rect層在后面，把它放在代碼中的其他層之前：

ggplot(data, aes(x = reorder(genotype, -Shann.div, FUN = median), y = Shann.div)) + 
  geom_rect(aes(xmin=0, xmax=Inf, ymin=avg - SD, ymax=avg + SD), fill="grey", alpha=0.01) +
  geom_jitter(color="black", size=0.3, alpha=0.9) + geom_boxplot(outlier.shape = NA, coef = 0) + 
  geom_hline(yintercept = avg, color="red") + 
  #geom_hline(yintercept = (avg + 2 * SE), linetype='dashed', color="black") + 
  #geom_hline(yintercept = (avg - 2 * SE), linetype='dashed', color="black") + 
  theme(panel.background = element_blank()) + 
  theme(axis.text.x=element_blank(), axis.ticks.x=element_blank()) +
  ggtitle('Microbial UTO - Shannon diversity median') + xlab('genotype')