2个y轴哑铃ggplot2

library(ggplot2)

# 准备数据
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y1 = c(10, 15, 12, 8, 9),
  y2 = c(5, 7, 9, 6, 11)
)

# 创建ggplot对象
p <- ggplot(data, aes(x = x))

# 添加左侧y轴数据点
p <- p + geom_point(aes(y = y1, color = "Variable 1"))

# 添加右侧y轴数据点
p <- p + geom_point(aes(y = y2, color = "Variable 2"))

# 添加连接线
p <- p + geom_segment(aes(x = x, y = y1, xend = x, yend = y2), color = "gray")

# 调整图形样式
p <- p + labs(title = "Comparison of Variable 1 and Variable 2",
              x = "X Axis",
              y = "Y Axis")
p <- p + theme(legend.title = element_blank())

# 显示图形
print(p)