R 如何使用两个Y轴正确缩放次轴

我已经创建了一个显示失业和收入之间关系的图，但是在失业的次轴上，这条线没有正确地缩放，我该如何解决这个问题

我的代码是：

ggplot(unemp_earn %>% filter(localauthority == "Glasgow City"), aes(x=date))+
  geom_line(aes(x=date, y=medianearnings), color="red")+
  geom_line(aes(x=date, y=unemploymentrate),color="blue")+
  scale_y_continuous("Median Earnings", sec.axis=sec_axis(~./50, name="Unemployment Rate"))

这将生成以下图形：

---

您应该预转换应该在次轴上运行的数据，并在次轴上进行逆变换。在你的情况下，你必须将你的失业率乘以50。你应该对应该在次轴上的数据进行预转换，然后在次轴上进行逆变换。在你的情况下，你得把你的失业率乘以50。