R 如何在ggplot中更改条形图中x轴文本的位置？

我想更改“丰富性”一词在这个条形图中的位置。我希望单词与其他标签中第一个单词的位置对齐，即放在顶行而不是底行

p0 <-
  ggplot(lineshift, aes(x=name, y=value, fill=factor(product))) +
  geom_bar(stat="identity", position="dodge", width=0.8) +

  geom_text(aes(x=name, y=value, ymax=value, label=round(value), 
            hjust=0.5, vjust=-0.5),
        position = position_dodge(width=0.8)) +

  scale_fill_manual(values=c("blue", "red"),
                name="Treatment",
                breaks=c(1, 2),
                labels=c("A", "B")) +

  xlab("Biodiversity") +
  ylab("Relative occurences (%)") +

  scale_y_continuous(expand=c(0.0,0.5),
                 limits=c(0, 71),
                 breaks=c(0,10,20,30,40,50,60,70),
                 labels=c("0","10","20","30","40","50","60","70")) +
  scale_x_discrete(limits=c("Biodiversity of tropical lowland rainforest", "Species composition in understorey", "Richness"),
               labels =  sapply(strwrap(as.character(lineshift$name), width=30, simplify=F), paste, collapse="\n")) +

  theme_bw() +
  theme(legend.position=c(0.9,0.9)) +
  theme(legend.title=element_blank()) +
  theme(axis.title.x = element_text(vjust=0.1,face="bold", size=16),
    axis.text.x = element_text(vjust=0.1, size=14, angle=0))+ 
  theme(axis.title.y = element_text(angle=90, vjust=0.70, face="bold", size=18),
    axis.text.y = element_text(size=14)) +
  theme(panel.grid.minor=element_blank(), panel.grid.major=element_blank()) +
  theme(panel.border = element_rect(size=2, colour = "black", fill=NA, linetype=1)) +
  theme(plot.margin = unit(c(0.3,0.4,0.28,0.0),"lines"))

---

非常感谢您的建议。

您可以仅在x轴文本的主题中更改：

p0 + theme(axis.text.x=element_text(vjust=1,size=14))

---

太棒了。非常感谢。

p0 + theme(axis.text.x=element_text(vjust=1,size=14))