為條形圖標題添加下標

Question

我想在我的條形圖標題中添加數字“6”——“PSII 單體，Cyt b6f”。 我一直在嘗試使用expression和bquote類的函數，但似乎沒有用。 有人開導我嗎？

ggplot(data=summary_Lane3, mapping = aes(x = factor(time), y = rd, fill= gc))+
  geom_bar(stat = "identity", position = "dodge")+
  labs(title=expression("PSII monomer, Cyt b[6]f"),x= "Time (hr)",  y="Relative density", fill= "Growth conditions")+
  ylim(0,2.1)+
  geom_errorbar(aes(ymin=rd-se, ymax=rd+se), width=.5, position=position_dodge(width= 0.9))+
  stat_compare_means(data=Lane3, label="p.signif", label.y= 1.85, method="anova")+
  theme_bw()+
  theme(text = element_text(size = 15))

Answer 1

所以，用這個代替上面提到的（歸功於rawr），

labs(title=expression(paste("PSII monomer, Cyt ", b[6], "f")),x= "Time (hr)",  y="Relative density", fill= "Growth conditions")