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

我想使用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") 
)

这是我得到的图表

---

您可以使用

注释
和
clip=“off”
，如下所示：

库（ggplot2）
ggplot（）+
坐标笛卡尔（ylim=c（0,1），xlim=c（0,1），clip=“off”）+
xlab（“x标签”）+
ylab（“y标签”）+
注释（“段”，
x=0.6，xend=0.9，y=-0.11，yend=-0.11，
箭头=箭头（长度=单位（0.3，“厘米”））


由（v0.3.0）于2020-01-23创建。
您可以使用Unicode右箭头：
+labs（x=paste（“Mois”），“\U2192”）
还有一个较长的Unicode箭头，但我发现它没有以默认字体显示。我能够用Symbola字体正确显示箭头（如果您还没有，可能需要在系统上安装）
+labs（x=paste（“Mois”），“\U27f6”）+theme（text=element\u text（family=“Symbola”）
@eipi10我下载并安装了“Symbola”字体，但当我运行您上面建议的代码时，我在grid.Call.graphics（C\u text，as.graphicsAnnot（x$label），…：在Windows字体数据库中找不到字体系列”假设您已经在系统上安装了Symbola字体，另一件事是尝试使用
extrafont
软件包。要导入并注册所有可用的字体以供R使用，我测试了您的建议，但如果您完全按照给定的方式运行代码（即复制和粘贴），箭头不会出现在轴刻度盘之外！@Falltok问题是你没有提供一个箭头，所以我不能告诉你你的具体情况。
ggplot（data=Q2，aes（x=month，y=dataQ））+labs（x=paste（“Mois”）+ylab（“Pr（mm）”）+geom_-bar（stat=“identity”，position=“dodge”）+coord_-cartesian（ylim=c（0250），xlim=c（0，12），clip=“off”）+注释(“段”，x=1，xend=6，y=-7，yend=-7，箭头=箭头（长度=单位（0.3，“厘米”）+刻度x离散（限值=c（“一月”、“二月”、“三月”、“四月”、“五月”、“六月”、“七月”、“八月”、“九月”、“十月”、“十一月”、“十二月”））
在我使用的代码上方，箭头显示如图所示，但它不会向下延伸到标题，而是停留在轴上方！@Falltok您可以使用传递给
注释功能的参数更改箭头的位置。