Question

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

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

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

Answer 1

使用\n添加一个空行

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

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

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

1 个答案: