R语言如何绘制双Y轴图|极客教程

R语言如何绘制双Y轴图

在数据可视化中，有时候需要同时显示两个不同单位的变量，这时候双Y轴图就非常有用。在R语言中，我们可以利用ggplot2这个非常强大的数据可视化包来绘制双Y轴图。本文将详细介绍如何在R语言中绘制双Y轴图。

准备数据

首先，我们需要准备一些示例数据来演示如何绘制双Y轴图。我们将创建一个包含两个变量的数据框，分别用于左右两个Y轴。

# 创建示例数据
set.seed(123)
df <- data.frame(
  x = 1:10,
  y1 = rnorm(10, 10, 1),
  y2 = rpois(10, 5)
)

# 输出数据框的前几行
head(df)

运行上面的代码后，我们得到了一个包含x、y1和y2三列的数据框df，其中x列是横轴的变量，y1和y2列分别是左右两个Y轴的变量。示例数据的前几行如下所示：

   x        y1 y2
1  1 10.439524  4
2  2 10.769823  4
3  3  8.558708  4
4  4 11.070508  2
5  5 10.129288  7
6  6 10.715065  5

绘制双Y轴图

接下来，我们将使用ggplot2包来绘制双Y轴图。我们需要先安装并加载ggplot2包：

install.packages("ggplot2")
library(ggplot2)

然后，我们使用ggplot()函数创建一个绘图对象，并使用geom_line()函数分别绘制y1和y2列的折线图。我们还需要使用scale_y_continuous()函数来设置左右两个Y轴的标签和标题。

# 绘制双Y轴图
p <- ggplot(df, aes(x = x)) +
  geom_line(aes(y = y1, color = "red"), linetype = "dashed") +
  geom_line(aes(y = y2, color = "blue")) +
  scale_y_continuous(
    name = "y1",
    sec.axis = sec_axis(~., name = "y2")
  ) +
  labs(
    title = "双Y轴图示例",
    x = "x"
  ) +
  theme_minimal()

# 显示图形
print(p)

通过上面的代码，我们创建了一个双Y轴图，并设置了左右两个Y轴的标签和标题。左Y轴对应y1列，颜色为红色；右Y轴对应y2列，颜色为蓝色。图形的标题为“双Y轴图示例”，x轴标签为“x”，左右两个Y轴的标签分别为“y1”和“y2”。