r - 分别为带状图中的每个数据点定义颜色

Question

我想分别定义带状图上每个数据点的颜色，以在带状图上添加额外的信息层。我没有找到解决办法

我知道 Different coloring of groups in R plot ，并且答案表明每个数据点都不可能。我对吗？

一种解决方法可能是在 for 循环中逐列绘制它，但随后 x 位置被搞乱了

d = c (1,3,4);
e = c (2,3,4)
f = c (2,6,5)
data = list (d, e, f)
stripchart (data, vertical =T, pch =21, bg = 1, col=2)

比方说，我想将素数涂成红色，将非素数涂成蓝色。或者偶数和奇数。

最 通用解决方案将采用与输入相同维度的颜色列表 ，其中每个值定义绘制的相应数据点的颜色。

Answer 1

当为多个组使用带状图时，使用公式界面，您只需在现有图中添加一个额外的带状图即可。但是，如果您使用抖动，则无济于事。

mydata <- data.frame (x = rnorm(30), group = gl(3, 10, labels = letters[1:3]))
stripchart(x ~ group, data = mydata)
makered <- mydata$group == "b" & mydata$x < 1
stripchart(x ~ group, data = mydata[makered, ], col = "red", add = TRUE)