R 有没有办法更改ggplot2中第二个y轴的比例限制

发布于01月25日

例如，假设我有两个不同尺度的变量；

df = data.table::data.table(
  date = seq(from = lubridate::ymd("2010-01-01"), 
             to = lubridate::ymd("2020-01-01"), length = 100),
  var1 = rpois(n = 100, lambda = 84),
  var2 = rpois(n = 100, lambda = 300)
)

如果我决定使用双y轴绘图，使用代码；

library(ggplot)

df |> 
  ggplot(aes(x = date)) +
  geom_line(aes(y = var1), col = "royalblue") +
  geom_line(aes(y = var2), col = "red") +
  scale_y_continuous(
    name = "var1",
    sec.axis = sec_axis(~., name = "var2")
  ) +
  theme_light()

研究结果如下:

如何调整第二个y轴的极限，例如，从250开始，到400结束？这将使线条更接近，从而可以更清楚地看到趋势.

推荐答案

您可以在绘制时转换数据，然后在调用sec_axis()时undo撤消转换.在这里，我只需从数据值中减go 200，然后将200添加到标签以反映更改:

library(ggplot2)
library(data.table)
library(lubridate)
df = data.table(
  date = seq(from = ymd("2010-01-01"), to = ymd("2020-01-01"), length = 100),
  var1 = rpois(n = 100, lambda = 84),
  var2 = rpois(n = 100, lambda = 300)
)

df |> 
  ggplot(aes(x = date)) +
  geom_line(aes(y = var1), col = "royalblue") +
  geom_line(aes(y = var2-200), col = "red") +
  scale_y_continuous(
    name = "var1",
    sec.axis = sec_axis(~.+200, name = "var2")
  ) +
  theme_light()