根据值绘制带条件颜色的折线图

Question

我想绘制折线图。根据值，它应该改变它的颜色。 我找到的是：

plot(sin(seq(from=1, to=10,by=0.1)),type="p", 
       col=ifelse(sin(seq(from=1, to=10,by=0.1))>0.5,"red","yellow"))

有效。但是一旦我从type =“p”变为type =“l”，条件着色就会消失。

这种行为是否有意？

什么是基础图形的解决方案，用于绘制具有不同颜色的功能线？

Answer 1

使用segments代替lines。

segments功能只会添加到现有的情节中。要使用正确的轴和限制创建空白图，请首先使用plot和type="n"来绘制“无”。

x0 <- seq(1, 10, 0.1)
colour <- ifelse(sin(seq(from=1, to=10,by=0.1))>0.5,"red","blue")

plot(x0, sin(x0), type="n")
segments(x0=x0, y0=sin(x0), x1=x0+0.1, y1=sin(x0+0.1), col=colour)

有关详细信息，请参阅?segments。

Answer 2

这是一个不同的方法：

x <- seq(from=1, to=10, by=0.1)
plot(x,sin(x), col='red', type='l')
clip(1,10,-1,.5)
lines(x,sin(x), col='yellow', type='l')

请注意，使用此方法时，曲线会将颜色改为0.5。

Answer 3

绘制线条图后，可以使用segments()：

对其进行着色

seq1 <- seq(from=1, to=10, by=0.1)
values <- sin(seq1)
s <- seq(length(seq1)-1)
segments(seq1[s], values[s], seq1[s+1], values[s+1], col=ifelse(values > 0.5, "red", "yellow"))