r - Ggplot2 上的双 y 轴

Question

我正在尝试在 R 上使用 ggplot 制作双 y 图，但是我的线条不会对辅助轴的变化做出响应。

theme_set(theme_economist())

ggplot(Base) + aes(data) + geom_smooth(aes(y = taxa_consumo))

g1 = ggplot(Base) + aes(data) + geom_smooth(aes(y = saldo_consumo, col = "Saldo da carteira para consumo"))

g2 = g1 + geom_smooth(aes(y = taxa_consumo, col = "Taxa média para consumo"))

g3 = g2 + scale_y_continuous(sec.axis = sec_axis(~./100, name = "Taxa média para consumo"))

g4 = g3 + scale_color_manual(values = c("brown", "gold")) +
  labs(title = "Saldo e Taxa de Microcrédito para Consumo", x = NULL, colour = NULL,
       y = "Saldo da carteira para consumo")

g4

这就是我的结果。有人有建议吗？

标签： rggplot2