R语言ggplot2包双y轴折线图绘制教程

要使用ggplot2包绘制双y轴折线图，首先需要安装并加载ggplot2包。可以使用以下代码安装和加载ggplot2包：

install.packages('ggplot2')
library(ggplot2)

接下来，我们将使用一个示例数据集来绘制双y轴折线图。假设我们有两个变量x和y1，分别表示时间和变量1的值，还有变量y2表示变量2的值。我们将使用geom_line()函数绘制折线图，并使用scale_y_continuous()函数创建第二个y轴。以下是完整的代码：

# 安装并加载ggplot2包
install.packages('ggplot2')
library(ggplot2)

# 创建示例数据集
x <- c(1, 2, 3, 4, 5)
y1 <- c(10, 20, 15, 25, 30)
y2 <- c(100, 200, 150, 250, 300)
data <- data.frame(x, y1, y2)

# 绘制双y轴折线图
ggplot(data, aes(x = x)) +
  geom_line(aes(y = y1, color = 'Variable 1')) +
  geom_line(aes(y = y2 * 0.1, color = 'Variable 2')) +
  scale_y_continuous(
    name = 'Variable 1',
    sec.axis = sec_axis(~. * 10, name = 'Variable 2')
  ) +
  labs(title = '双y轴折线图') +
  theme_minimal()

在上面的代码中，我们首先创建了一个示例数据集，包含x、y1和y2三个变量。然后使用ggplot()函数创建一个ggplot对象，并使用geom_line()函数分别绘制y1和y2的折线图。在aes()函数中使用color参数设置每条折线的颜色。接下来，使用scale_y_continuous()函数创建第二个y轴，其中sec.axis参数用于指定第二个y轴的转换函数，即将y2值乘以0.1。最后，使用labs()函数设置图形标题，使用theme_minimal()函数设置图形主题。

运行以上代码，将会得到一张双y轴折线图，其中变量1的折线使用左侧y轴，变量2的折线使用右侧y轴。