小编Jes*_*ler的帖子

这是目前我的上图代码

ggplot(AllData, aes(Year, AGResiduals, fill=Type)) + 
  geom_boxplot(outlier.size=0) + 
  scale_fill_manual(values=c("skyblue4", "skyblue"),
                    name="Male Type", 
                    labels=c("Guarders","Sneakers")) + 
  labs(x=NULL, y = "Residual of Accessory Gland Mass x Total Mass") +
  scale_x_discrete(limits=c("2007","2008","2010","2011","2013","2014","2015"), 
                   labels=str_wrap(c("2007 (nG=37, nS=8)","2008 (nG=4, nS=6)","2010 (nG=31, nS=6)","2011 (nG=55, nS=5)","2013 (nG=202, nS=24)","2014 (nG=63)","2015 (nG=59, nS=3)"),
                   width=6)) +
  theme(plot.title = element_text(size = rel(1.4)), 
        axis.title = element_text(size = rel(1.2)),
        axis.text.x = element_text(size = rel(1.5)),
        axis.text.y = element_text(size = rel(1.5)), 
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        panel.background = element_blank(), 
        axis.line = element_line(colour = "black"))

我想在每个 x 轴刻度标签中制作“G”和“S”下标（它们指定两个不同组 …