如何給R中的符號指定顏色？

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)