在第二个y轴上使用ggplot的图形变量

Question

我正试图将我的一个变量（v4）移动到第二个轴。我知道ggplot不会“在辅助轴上绘图”，但您可以使用左轴重新升级特定变量和右轴。但是，我无法重新升级两者，因此右轴仍然显示变量的正确度量。一个例子是我正在尝试在网上找到的解决方案：

year <- c(1990,2000,2010,2020)
v1 <- c(90,100,103,115)
v2 <- c(90,100,107,125)
v2 <- c(90,100,107,125)
v3 <- c(90,100,104,120)
v4 <- c(90,100,150,200)

df <- data.frame(year,v1,v2,v3,v4)

figureA <- ggplot(df, aes(year)) +
  geom_ribbon(data=subset(df, year >= 2000), aes(ymin=v1, ymax=v2), fill="blue", alpha=0.10) +
  geom_line(aes(y = v1, color = "v1"), size=1.5) +
  geom_line(aes(y = v2, color = "v2"), size=1.5) +
  geom_line(aes(y = v3, color = "v3"), size=1.5) + 
  geom_line(aes(y = v4/2+50, color = "v4"), size=1.5) +
  scale_y_continuous(sec.axis = sec_axis(~.*2, name = "v4"))

人物

考虑到变量的理论关系，将v4放在第二轴上是有意义的，但是，使用我在网上找到的解决方案，右轴上的值与变量不对应。

Answer 1

在碘注释之后，此代码显示与右ixis对应的v4的值

figureA <- ggplot(df, aes(year)) +
  geom_ribbon(data=subset(df, year >= 2000), aes(ymin=v1, ymax=v2), fill="blue", alpha=0.10) +
  geom_line(aes(y = v1, color = "v1"), size=1.5) +
  geom_line(aes(y = v2, color = "v2"), size=1.5) +
  geom_line(aes(y = v3, color = "v3"), size=1.5) + 
  geom_line(aes(y = v4/2, color = "v4"), size=1.5) +
  scale_y_continuous(sec.axis = sec_axis(~.*2, name = "v4"))

'+50'中的问题