[英]How to adjust spacing or margin for secondary Y axis on ggplot2?
我正在使用以下代码在 R 中处理 ggplot:
s=40
ggplot(data = NULL) +
geom_line(data = stk, aes(x = date, y = price)) +
geom_line(data = gdp, aes(x = year, y = gdp1*s)) +
scale_y_continuous("Index of Total Stock Price",
sec.axis = sec_axis(~. /s, name = "Real GDP (trillions of USD in 2012)"),
limits = c(0, 100)) +
scale_x_date(breaks = seq(from = as.Date("1900-01-01"),
to = as.Date("1945-01-01"),
by = "5 years"),
labels=date_format("%Y")) +
xlab(element_blank())
而这个 output:
问题是辅助轴上的文本和刻度看起来非常狭窄。 对于两个 y 轴标签,如何使刻度和轴 label 之间的空间相同? 谢谢。
编辑:
这是可重现的数据:
set.seed(1000)
df1 <- data.frame(y1=rnorm(100, 0, 1),
x=seq(1, 100, 1))
df2 <- data.frame(y2=rnorm(100, 0, 1),
x=seq(1, 100, 1))
ggplot(data = NULL) +
geom_line(data = df1, aes(x = x, y = y1)) +
geom_line(data = df2, aes(x = x, y = y2*2)) +
scale_y_continuous("Label of Primary Y Axis",
sec.axis = sec_axis(~. *2, name = "Label of Secondary Y Axis"))
我有同样的问题,使用第二部分,
theme(axis.title.y.right = element_text(margin = margin(t = 0, r = 0, b = 0, l = 10))
为我工作。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.