在ggh4x包中使用help_secondary函数时,是否可以添加点并更改两个y轴的名称?

gpnt7bae  于 2023-03-27  发布在  其他
关注(0)|答案(1)|浏览(91)

使用 ggh4x 包中的 help_secondary 函数时,是否可以添加点和更改两个y轴的名称?
例如,让我们考虑在 help_secondary 函数的手册www.example.com中提供的示例https://teunbrand.github.io/ggh4x/reference/help_secondary.html#examples
economics 数据集的示例中,如何添加点沿着线并更改两个y轴的名称?

e3bfsja2

e3bfsja21#

要沿着线添加点,请添加geom_point层。要设置轴标题,您可以使用name参数:

library(ggplot2)
library(ggh4x)

sec <- help_secondary(economics,
  primary = unemploy, secondary = psavert,
  name = "Secondary"
)

p <- ggplot(economics, aes(date)) +
  geom_line(aes(y = unemploy), colour = "blue") +
  geom_point(aes(y = unemploy), colour = "blue")

p <- p + geom_line(aes(y = sec$proj(psavert)), colour = "red") +
  geom_point(aes(y = sec$proj(psavert)), colour = "red")

p +
  scale_y_continuous(name = "Primary", sec.axis = sec)

相关问题