如何在 xlab ggplot2 中的文本后添加一个长方向箭头？

Question

我想使用 ggplot2 在 xlab 中的文本后添加一个箭头。 这是下面的代码示例，我尝试在其中添加虚线和符号，但它不是很美观。

ggplot(data=Q2, aes(x=month, y=dataQ)) +xlab("Mois     ------------------------------------------->") + ylab("Pr(mm)") +geom_bar(stat="identity", position = "dodge") + scale_x_discrete(limits=c("JAN", "FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC"))+theme(plot.title = element_text(color="black", size=14, face="bold.italic"),axis.line = element_line(colour = "black", size = 1, linetype = "solid"),
                                                                                                                                                                                                                                                                                                                                              axis.text.x = element_text(face="bold", color=" black",size=11, angle=0),axis.text.y = element_text(face="bold", color="black",size=11, angle=90),axis.title.x = element_text(color="black", size=14, face="bold"),
                                                                                                                                                                                                                                                                                                                                              axis.title.y = element_text(color="black", size=14, face="bold") 
)

这是我得到的图表

Answer 1

您可以使用annotate和clip = "off" ，如下所示：

library(ggplot2)

ggplot() + 
  coord_cartesian(ylim = c(0, 1), xlim = c(0, 1), clip="off") +
  xlab("x label") +
  ylab("y label") +
  annotate("segment", 
           x = 0.6, xend = 0.9, y = -0.11, yend = -0.11,
           arrow=arrow(length=unit(0.3, "cm")))

^{由reprex 包(v0.3.0) 创建于 2020-01-23}