基于R中y值的打印颜色

嗨，我想用不同的基于颜色的值（例如<0）进行绘图。我在上一篇文章中找到了一个解决方案，但当我试图复制它时失败了

plot(-10:10,
     type="o", 
     pch = 19,
     col = ifelse(x < 0,'red','green'),
     xaxt = "n",
)

绘图（-10:10，
type=“o”，
pch=19，
col=ifelse（x<0，'red'，'green'），
xaxt=“n”，
)

我也试过了，但效果不太好

plot(-10:10,
     type="o", 
     pch = 19,
     col = if(x < 0){'red'} else{'green'},
     xaxt = "n",
)

绘图（-10:10，
type=“o”，
pch=19，
col=if（x<0）{'red'}else{'green'}，
xaxt=“n”，
)

---

当我做上述的时候，我得到的只是绿色；从<到>反转将使所有内容都变为红色，因此它将所有值都视为>0。提前谢谢

您必须先定义

x

，然后才能：

x <- -10:10
plot(x, type="o", pch = 19, col = ifelse(x < 0,'red','green'))

---

x您必须先定义
x
：

x <- -10:10
plot(x, type="o", pch = 19, col = ifelse(x < 0,'red','green'))

x绘图函数不知道示例中的x是什么。这项工作：

x=-10:10
plot(x,pch=19,type="o",col=ifelse(x<0,'red','green'))

x=-10:10
plot（x，pch=19，type=“o”，col=ifelse（xplot函数不知道示例中的x是什么。这是有效的：

x=-10:10
plot(x,pch=19,type="o",col=ifelse(x<0,'red','green'))

x=-10:10
plot（x，pch=19，type=“o”，col=ifelse（x由于您要求在注释中使用“黑色”线和彩色点，请尝试：

x=-10:10
plot(x, type = "l"); points(x, pch = 19, col = ifelse(x < 0, 'red', 'green'))

x=-10:10
绘图（x，type=“l”）；点（x，pch=19，col=ifelse（x<0，‘红色’、‘绿色’）

由于您要求在评论中添加“黑色”线条和彩色圆点，请尝试：

x=-10:10
plot(x, type = "l"); points(x, pch = 19, col = ifelse(x < 0, 'red', 'green'))

x=-10:10
绘图（x，type=“l”）；点（x，pch=19，col=ifelse（x<0，‘红色’、‘绿色’）

谢谢；效果很好你知道如何将颜色线更改为黑色吗？谢谢；效果很好你知道如何将颜色线更改为黑色吗？非常聪明；非常感谢。出于某种原因，根据值的不同，某些数字即使>0，仍然会显示为红色…这是真的bizarre@Ahdee你能提供吗示例数据？同样，尝试
文本（x，标签=x，位置=1）
标记点并查看它们的值Hanks Steven；我认为在这种情况下最好开始一个新线程。聪明；非常感谢。出于某种原因，根据值的不同，一些大于0的数字仍然显示为红色…这是真的bizarre@Ahdee您能提供示例数据吗？另外，请尝试
text（x，labels=x，pos=1）
标记点并查看它们的值Hanks Steven；我认为在这种情况下，最好开始一个新线程。