Question

我在PCA图中有3个不同的组，并为每个组分配了一个符号。

data_pca$symbol[which(data_pca$Species == "species 1")] <- 15
data_pca$symbol[which(data_pca$Species == "species 2")] <- 17
data_pca$symbol[which(data_pca$Species == "species 3")] <- 18

现在我想用特定的颜色为这些符号着色，但是如果我使用

plot(data_pca$Comp1, data_pca$Comp2, pch=data_pca$symbol, cex=1.5, col=data_pca$symbol)

然后R选择颜色。

如何定义组符号的颜色？

Answer 1

只需手动指定颜色，就像使用符号一样。你可以简化这个......但是......

colors = c(`Species 1` = 'red', `Species 2` = 'green', `Species 3` = 'goldenrod')

plot(…, col = colors[data_pca$Species])

同样的简化也可以（应该？）对点字符（符号类型）进行。

Answer 2

我喜欢控制原始数据中的颜色：

data_pca$mycolor <- 'red' # the default
data_pca$mycolor[data_pca$symbol==17] <-'blue'
data_pca$mycolor[data_pca$symbol==18] <- 'green'

plot(...,col=data_pca$mycolor)

如何给R中的符号赋予某种颜色？

2 个答案: