在plotrix或ggplot2上绘制3个y轴图可以通过以下步骤实现:
install.packages("plotrix")
library(plotrix)
plot(0, 0, type = "n", xlim = c(0, 10), ylim = c(0, 100), xlab = "x轴", ylab = "")
axis()
函数添加第一个y轴:axis(2, ylim = c(0, 100), col.axis = "black", las = 1)
axis()
函数添加第二个y轴:axis(4, ylim = c(0, 100), col.axis = "red", las = 1)
axis()
函数添加第三个y轴:axis(4, ylim = c(0, 100), col.axis = "blue", las = 1)
mtext()
函数添加y轴标签:mtext("第一个y轴", side = 2, line = 2, col = "black")
、mtext("第二个y轴", side = 4, line = 2, col = "red")
、mtext("第三个y轴", side = 4, line = 4, col = "blue")
lines()
函数或其他绘图函数添加数据线:lines(x, y1, col = "black")
、lines(x, y2, col = "red")
、lines(x, y3, col = "blue")
(其中x、y1、y2、y3为相应的数据)install.packages("ggplot2")
library(ggplot2)
data <- data.frame(x = x, y1 = y1, y2 = y2, y3 = y3)
ggplot()
函数创建一个基础图形对象:p <- ggplot(data, aes(x = x))
geom_line()
函数添加数据线:p + geom_line(aes(y = y1), color = "black") + geom_line(aes(y = y2), color = "red") + geom_line(aes(y = y3), color = "blue")
scale_y_continuous()
函数设置y轴的范围和标签:p + scale_y_continuous(limits = c(0, 100), sec.axis = sec_axis(~., name = "第二个y轴", labels = scales::comma), third.axis = sec_axis(~., name = "第三个y轴", labels = scales::comma))
labs()
函数添加x轴和y轴标签:p + labs(x = "x轴", y = "第一个y轴")
对于plotrix包,相关的腾讯云产品和产品介绍链接地址暂无。
对于ggplot2包,腾讯云提供了云服务器CVM产品,可以用于运行R语言环境,支持安装和使用ggplot2包。您可以在腾讯云官网了解更多关于云服务器CVM的信息:云服务器CVM。
领取专属 10元无门槛券
手把手带您无忧上云