给你一个参考网页吧，总有一个方法合适你。

ggplot2::scale_y_continuese(sec.axis = ....)

双坐标当然不难实现，但还是不建议用双坐标图。
第一，两条曲线表面上似乎能够比较，但实际上因为分属不同的坐标系，比较的基础是错误的，误导性很大。
第二，当两条曲线的数据类别根本不同时，大多数情况应该也是如此，换句话说根本就两种数据时，放在一张图里其实更没有比较的意义。那么为什么还要放到一张图里呢。
第三，这种图看起来真的很费劲，要对照图例区分数据到底是哪个坐标，而且数据多的时候会很乱。
另外翻翻专业的论文，你会发现很少有双坐标的图。
如果需要对比，更专业的做法是拆成两个子图。

ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  scale_y_continuous(
   "mpg (US)",
    sec.axis = sec_axis(~ . * 1.20, name ="mpg (UK)")
  )