R语言ggplot2绘图：使用sec.axis绘制第二条曲线

在R语言中使用ggplot2绘图时，可以使用'sec.axis'参数和'sec_axis()'函数来绘制第二条曲线。

首先，确保已经安装并加载了'ggplot2'包：

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

然后，创建一个数据集并使用'ggplot()'函数来绘制第一条曲线：

# 创建数据集
data <- data.frame(x = 1:10, y1 = 1:10)

# 绘制第一条曲线
plot <- ggplot(data, aes(x = x, y = y1)) +
  geom_line()

plot

接下来，使用'sec.axis'参数和'sec_axis()'函数来添加第二条曲线。在'sec_axis()'函数中，可以使用'~rescale(., c(, ))'来对第二条曲线的数据进行缩放。

# 添加第二条曲线
plot <- plot +
  geom_line(aes(y = rescale(y2, c(, ))), color = 'red') +
  scale_y_continuous(sec.axis = sec_axis(~ rescale(., c(, ))))

plot

在'rescale(., c(, ))'中，'.'表示第二条曲线的数据，'c(, )'表示第二条曲线数据的范围。你可以根据实际数据的范围来填写这个范围。

最后，使用'plot'对象来显示绘图结果。