尝试增加轴标签和轴文本之间的距离

时间:2019-07-07 23:10:00

标签: r ggplot2 axis

我正在尝试增加轴标签和轴文本(刻度线)之间的距离,但是找不到正确的代码该怎么做。也许有人可以帮忙吗?

 library(ggplot2)
 library(reshape2)

 data<-read.csv("trial.csv",header=TRUE,dec=".",sep=',',na.strings="NA")

 p1<-ggplot(data=data,aes(x=Year))+
     geom_line(aes(y=Cumulative),linetype="solid",color="red",size=1.1)+
     geom_point(aes(y=Cumulative),shape=1,color="red",size=3,stroke=1.5)+
     geom_line(aes(y=Annual),linetype="solid",color="darkorange",size=1.1)+
     geom_point(aes(y=Annual),shape=1,color="darkorange",size=3,stroke=1.5)+
     scale_y_continuous(sec.axis=sec_axis(~.*1/10,name="Annual"))
     p1+labs(x="Year",y="Cumulative")
     p1+theme(axis.title.x=element_text(size=18),
              axis.text.x=element_text(size=14),
              axis.title.y=element_text(size=18),
              axis.text.y=element_text(size=14),
              axis.ticks=element_blank())

不幸的是,即使经过一段时间的搜索,我也没有找到解决方案。欢迎任何建议!

1 个答案:

答案 0 :(得分:-1)

使用\n添加一个空行

因此要在标签和图形之间添加空行,请更改 p1+labs(x="Year",y="Cumulative")

p1+labs(x="\nYear",y="Cumulative\n")