r - 将十六进制字符串值硬编码为 ggplot 中的颜色

Question

我有一个数据框，其中“x”和“y”列作为数值，第三列“cluster”作为十六进制字符串，示例如下:

library(ggplot2)
library(scales)
colList = c(scales::hue_pal()(3),"#520090")
dat = data.frame(x=runif(100,0,1),y=runif(100,0,1),cluster=sample(1:4, 100, replace=T))
dat$cluster = factor(dat$cluster)
levels(dat$cluster) = c(colList)
head(dat)

我正在尝试创建一个散点图，其中“x”和“y”列映射到 x 和 y 轴，并且这些点根据存储在“簇”列中的十六进制值着色。我尝试过以下方法:

ggplot(dat,aes(x,y)) + 
  geom_point(aes(colour = cluster), alpha=0.5)

但是，这只是分配存储在 scales::hue_pal()(4) 中的默认前四个值，我已将最后一个值更改为深紫色，十六进制值 #520090。我还尝试更改默认的十六进制值，使其不再显示为图例中的文本。我尝试将“Cluster 1”、“Cluster 2”、...、“Cluster 4”硬编码为图例文本，但没有成功:

ggplot(dat,aes(x,y)) + 
  geom_point(aes(colour = cluster), alpha=0.5) + 
  theme(legend.text = element_text("Cluster 1", "Cluster 2", "Cluster 3", "Cluster 4"))

非常感谢任何建议!

Answer 1

为了根据簇标识为点着色，需要将簇名称(即十六进制值)映射到一组美学值。

由于您希望使用簇列中的十六进制值来表示实际颜色，因此您可以使用scale_color_manual 函数并将簇列的级别作为值参数。 要更改标签，只需设置所需的标签值即可。

ggplot(dat, aes(x,y)) + geom_point(aes(colour = cluster), alpha=0.5) +
scale_color_manual(values = levels(dat$cluster), 
                   labels = c("Cluster1","Cluster2","Cluster3", "Cluster4"))