在ggplot2中控制叠加图形的顺序

library(ggplot2)

# 创建数据
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y1 = c(1, 4, 9, 16, 25),
  y2 = c(1, 2, 3, 4, 5)
)

# 绘制折线图
line_plot <- ggplot(data, aes(x = x, y = y1)) +
  geom_line()

# 绘制柱状图
bar_plot <- ggplot(data, aes(x = x, y = y2)) +
  geom_bar(stat = "identity")

# 叠加图形
combined_plot <- line_plot +
  geom_layer(data = data, layer = bar_plot)

# 显示图形
print(combined_plot)