r语言使用ggplot2绘图用secaxis = sec_axis ~rescalec005之后如何绘制与次坐标轴对应的第二条曲线

在使用sec.axis = sec_axis( ~rescale(.,c(0,0.5))参数设置次坐标轴后，要绘制与次坐标轴对应的第二条曲线，可以通过以下步骤实现：

1. 绘制第一条曲线并设置主坐标轴：

library(ggplot2)

# 创建数据
x <- seq(1, 10, by = 0.1)
y1 <- sin(x)

# 绘制第一条曲线
p <- ggplot() +
  geom_line(data = data.frame(x = x, y = y1), aes(x = x, y = y), color = "blue") +
  theme_bw() +
  ylab("y1")

2. 添加第二条曲线，并设置次坐标轴：

# 创建第二条曲线的数据
y2 <- cos(x)

# 添加第二条曲线
p <- p +
  geom_line(data = data.frame(x = x, y = y2), aes(x = x, y = y2), color = "red") +
  scale_y_continuous(sec.axis = sec_axis(~ rescale(., c(0, 0.5)), name = "y2"))

3. 绘制图形：

# 显示图形
print(p)

通过以上步骤，就可以绘制与次坐标轴对应的第二条曲线。在这个例子中，第一条曲线使用主坐标轴，第二条曲线使用次坐标轴，并且通过rescale函数将次坐标轴的范围设置为0到0.5。