可以通过使用par
函数和axis
函数来实现。
首先,使用par
函数设置绘图参数,将par(new=TRUE)
设置为TRUE
,这样可以在同一图形上添加第二个y轴。然后,使用axis
函数来添加第二个y轴。
下面是一个示例代码:
# 创建一个示例数据
x <- 1:10
y1 <- x^2
y2 <- x^3
# 绘制第一个y轴
plot(x, y1, type="l", col="blue", xlab="x", ylab="y1")
# 添加第二个y轴
par(new=TRUE)
plot(x, y2, type="l", col="red", xlab="", ylab="")
axis(side=4, col="red", col.axis="red", las=1)
# 添加图例
legend("topleft", legend=c("y1", "y2"), col=c("blue", "red"), lty=1)
在这个例子中,我们创建了一个示例数据,然后使用plot
函数绘制了第一个y轴的数据。接着,使用par(new=TRUE)
将绘图参数设置为添加新图形。然后,使用plot
函数再次绘制了第二个y轴的数据,并使用axis
函数添加了第二个y轴。最后,使用legend
函数添加了图例。
这样,我们就成功地在R中添加了第二个y轴。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云