创建特定的颜色矢量

Question

如何创建一个颜色向量，其中某个输出接收的颜色与其他输出不同？

可以像下面的例子一样手动完成：

pts.7 <- cbind(1:7, 1:7)
mycols <- c("black","black","black","red","black","black","black")
plot(pts.7, col=mycols)

但是对于像下面这样更大的数据集，它不起作用：

pts.400 <- cbind(runif(400), runif(400))
df <- data.frame(a = 1:400)
pts.400.df <- SpatialPointsDataFrame(pts.400, df)

除了point$a==158 应该绘制为红色之外，如何构建一个颜色向量，使绘制的所有点都获得灰度颜色？

Answer 1

一个技巧是使用逻辑索引：

plot(pts.400.df, col = c('black', 'red')[(pts.400.df$a == 158) + 1])

每个FALSE 都是黑色的，每个TRUE 都是红色的。