r语言绘柱状图折线图图双y轴

在R语言中，绘制柱状图、折线图以及带有双y轴的图表是非常常见的数据可视化操作。下面是一些基本步骤：

1. **柱状图（Bar Chart）**：
- 使用`ggplot2`库中的`geom_bar()`函数，例如：

     library(ggplot2)
     data <- df # 假设df是你的数据框，包含x列（类别）和y列（值）
     ggplot(data, aes(x = x, y = y)) + geom_bar(stat = "identity")

2. **折线图（Line Plot）**：
- 同样使用`ggplot2`，`geom_line()`用于创建折线图：

     ggplot(data, aes(x = x, y = y)) + geom_line()

如果想添加趋势线或光滑曲线，可以使用`spline()`或`loess()`等。

3. **双y轴（Two Y Axes）**：
R中的`coord_cartesian()`函数可以设置双轴，比如`coord_cartesian(ylim=c(ymin1, ymax1), ylim2=c(ymin2, ymax2))`。例子：

   ggplot(data, aes(x = x, y = y1)) +
     geom_bar() +
     coord_cartesian(
       ylim = c(min(data$y1), max(data$y1)),  # 主y轴
       new_axis = TRUE,
       at = seq(0, max(data$y2) * 1.2, length.out = 5),  # 添加新y轴
       labels = scales::dollar
     ) +
     geom_line(aes(y = y2))

这里假设你有两个变量`y1`和`y2`分别对应两个y轴。