我根据示例图像生成了一些四行的伪数据。
为了绘制曲线图，我使用limits()参数设置了第一个轴的界限，然后使用一个变换公式设置了第二个轴，变换公式应该是axis 2 =（axis 1 + 10）/2。

library(tidyverse)

    df <- tibble(year = seq(1985, 2000, 5),
             ed = c(6, 6, 8, 5),
             polity = c(-10, -10, -8, -8))

    df %>%
             ggplot(aes(x = year)) +
             geom_line(aes(y = polity)) + 
             geom_line(aes(y = ed)) +
             scale_y_continuous(limits = c(-10, 10),
                                sec.axis = sec_axis(~(. + 10)/2))

可按如下方式对两个轴使用scale_y_continuous()：

ggplot(data = df, aes(x = year)) +
 geom_line(aes(y = polity2, color = "Polity 2")) +
 geom_line(aes(y = gee_totGDP, color = "gee_totGDP")) +
 scale_y_continuous(limits = c(-10, 10), name = "Polity 2") +
 scale_y_continuous(limits = c(0, 10), sec.axis = sec_axis(~., name = 
  "gee_totGDP")) +
 scale_color_manual(values = c("blue", "red"))