【发布时间】:2019-07-07 23:10:00
【问题描述】:
我正在尝试增加轴标签和轴文本(刻度线)之间的距离,但找不到正确的代码如何做到这一点。有人可以帮忙吗?
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())
不幸的是,即使在谷歌上搜索了一段时间后,我也没有找到解决方案。欢迎提出任何建议!
【问题讨论】:
-
你能举个例子吗?你拥有什么以及你正在尝试做什么的照片。
-
之前好像有人回答过这个问题:stackoverflow.com/questions/14487188/… e.g.
theme(axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)))