基于值的 R 颜色散点图点

我能够绘制散点图并根据一个标准对点进行着色，即我可以将所有 >=3 的点着色为红色，其余点着色为黑色。 我希望能够以这种方式为点上色：

1. =3 color red

3. 其余为黑色

下面的代码完成了步骤 1 和 3，但我不确定如何合并步骤 2 的第二个参数

data<- read.table('sample_data.txtt', header=TRUE, row.name=1)
pos<- data$col_name1
cn<- data$col_name2
plot(pos,cn, ylim=c(0,5), col="blue")
plot(pos,cn, col=ifelse(cn>=3,"red","black"), ylim=c(0,10))

这里最好的做法是向数据对象添加一列来表示点颜色。然后通过过滤更新其中的部分。

data<- read.table('sample_data.txtt', header=TRUE, row.name=1)
# Create new column filled with default colour
data$Colour="black"
# Set new column values to appropriate colours
data$Colour[data$col_name2>=3]="red"
data$Colour[data$col_name2<=1]="blue"
# Plot all points at once, using newly generated colours
plot(data$col_name1,data$col_name2, ylim=c(0,5), col=data$Colour, ylim=c(0,10))

应该清楚如何适应具有更多颜色和条件的绘图。