2

我想使用 R 绘制具有相同 x 值（例如日期）的两个数据系列。我想要在同一张图上的两条线，但是一条比另一条大的线段应该是另一种颜色。举个例子：

x<-c(-5:5)
y1<-x^2-x-10
y2<-(x^3)-(x^2)-(10*x)+2
plot(x,y1,col="blue", ylim=c(-100,100), type="l")
par(new=T)
plot(x,y2,col="green", ylim=c(-100,100), type="l")

y2 大于 y1 的部分为红色。因此，绿线或多或少会在 -3 < x < 1 时变为红色，然后在 x > 3 时再次变为红色（我试图发布该图，但我的声誉不够高）。我想开发一些代码，允许我对任何数据集执行此操作，例如在矩阵中，例如：

xy<-as.matrix(cbind(x,y1,y2))

我怀疑它可以使用for和if循环来完成，但我更喜欢更优雅的解决方案。如果我能做这样的事情：同时显示两条曲线的交点，那就太好了！

非常感谢您的帮助！

4

1 回答 1

2

这是一个非常基本的解决方案，通过创建几个新变量来实现，其NA值可以抑制在不需要的区域中绘图：

y2high <- y2
y2high[y2high < y1] <- NA
y2low <- y2
y2low[y2low > y1] <- NA

plot(x,y1,type='l', col='blue')
lines(x,y2high,col='red')
lines(x,y2low,col='green')
于 2013-11-12T14:24:47.570 回答