我正在尝试增加轴标签和轴文本(刻度线)之间的距离,但是找不到正确的代码该怎么做。也许有人可以帮忙吗?
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())
不幸的是,即使经过一段时间的搜索,我也没有找到解决方案。欢迎任何建议!
答案 0 :(得分:-1)
使用\n
添加一个空行
因此要在标签和图形之间添加空行,请更改
p1+labs(x="Year",y="Cumulative")
至
p1+labs(x="\nYear",y="Cumulative\n")