如何将R中具有两个不同y轴的折线图和条形图组合在一起

# 导入所需的包
library(ggplot2)
library(gridExtra)

# 创建示例数据
x <- c(1, 2, 3, 4, 5)
y1 <- c(10, 15, 12, 8, 9)
y2 <- c(20, 25, 18, 15, 22)

# 绘制折线图
line_plot <- ggplot(data = data.frame(x, y1), aes(x = x, y = y1)) +
  geom_line(color = "blue") +
  labs(x = "X轴", y = "Y1轴", title = "折线图")

# 绘制条形图
bar_plot <- ggplot(data = data.frame(x, y2), aes(x = x, y = y2)) +
  geom_bar(stat = "identity", fill = "red") +
  labs(x = "X轴", y = "Y2轴", title = "条形图")

# 将折线图和条形图组合在一起
combined_plot <- grid.arrange(line_plot, bar_plot, nrow = 1, ncol = 2)

# 显示组合图形
print(combined_plot)