как добавить длинную стрелку направления после текста в xlab ggplot2? - PullRequest
Новая
       64

как добавить длинную стрелку направления после текста в xlab ggplot2?

0 голосов
/ 23 января 2020

Я хотел бы добавить стрелку после текста в xlab, используя ggplot2. Вот пример кода ниже, где я пытаюсь это сделать, но добавляю пунктирные линии и знаки, но это не очень эстетично c. 

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") 
)

Вот график, который я получаю enter image description here

1 Ответ

1 голос
/ 24 января 2020

Вы можете использовать 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")))

Создано в 2020-01-23 Представить пакет (v0.3.0)

...