R：着色图

Question

我有一些要绘制的数据（例如plot(x,y) ），但我有一些要根据矢量z的值进行着色的标准，看起来像c(1, 0, 1, 1, 1, 1, 0, NA ,0 ,0, .....)等。

有什么方法可以选择1的颜色和0的颜色？

谢谢

Answer 1

我知道已经回答了，但是这里有一些非常直观的代码，并提供了参考。

#Let's create some fictional data 
x = rbinom(100,1,.5)
x[round(runif(10)*100)] = NA

#Assign colors to 1's and 0's
colors = rep(NA,length(x))
colors[x==1] = "blue"
colors[x==0] = "red" 

#Plot the vector x
plot(x,bg=colors,pch=21)

Answer 2

您希望获得与x和y向量一样长的颜色向量，例如，如下所示：

z[is.na(z)] = 2
zcol = c("red", "blue", "black")[z + 1]

然后，您可以简单地执行以下操作：

plot(x, y, col=zcol)

Answer 3

也许我缺少了一些东西，但是我想你想要：

plot(x,y,col=ifelse(z==0,'zerocolour','onecolour'))

在这里用red和blue或其他颜色替换两种颜色。

我认为不会绘制NA ，因此您不必担心这些。

要获得更多颜色，可以使用z的唯一值创建一个小的映射data.frame ，然后将z与data.frame合并。 这是两种颜色的示例：

map<-data.frame(z=c(0,1),col=c('red','blue'))
plot(x,y,col=merge(z,map)$col)

Answer 4

使用ggplot2软件包

require(ggplot2)

df <- data.frame(x = c(1, 2, 3, 4, 5), y = c(2, 3, 4, 6, 7), z = c(1, 0 , 1, 0 , NA))
df$z[is.na(df$z)] = 2
ggplot(df, aes(x, y, color = as.factor(z))) + geom_point()

Answer 5

您可以将颜色向量提供给参数col= ，然后使用z选择颜色。 使用paste()将NA转换为字符，然后使用as.factor()将这些字符解释为1、2和3。

x<-c(1,2,3,4,5)
y<-c(1,2,3,4,5)
z<-c(1,0,NA,1,1)
plot(x,y,col=c("red","green",'black')[as.factor(paste(z))],pch=19,cex=3)

str(as.factor(paste(z)))
Factor w/ 3 levels "0","1","NA": 2 1 3 2 2