如何使用ggplot2设置两个x轴和两个y轴

library(ggplot2)

# 创建数据集
data <- data.frame(
  x1 = c(1, 2, 3, 4, 5),
  y1 = c(10, 20, 30, 40, 50),
  x2 = c(1, 2, 3, 4, 5),
  y2 = c(100, 200, 300, 400, 500)
)

# 创建基础图形
p <- ggplot(data, aes(x = x1, y = y1))

# 添加点图层
p <- p + geom_point()

# 设置第一个x轴和y轴
p <- p + scale_x_continuous(name = "X1", limits = c(0, 6), breaks = seq(0, 6, 1))
p <- p + scale_y_continuous(name = "Y1", limits = c(0, 60), breaks = seq(0, 60, 10))

# 添加第二个x轴和y轴
p <- p + scale_x_continuous(
  name = "X2",
  sec.axis = sec_axis(~ . * 10, name = "X2")
)
p <- p + scale_y_continuous(
  name = "Y2",
  sec.axis = sec_axis(~ . / 10, name = "Y2")
)

# 设置图例
p <- p + labs(title = "双轴图", color = "数据点")

# 自定义图形样式
p <- p + theme(
  plot.background = element_rect(fill = "white"),
  plot.title = element_text(hjust = 0.5),
  legend.position = "bottom"
)

# 显示图形
print(p)