如何更改ggplot2密度图中的颜色？

Question

摘要：我想为ggplot2（）密度分布图选择颜色，而不会丢失自动生成的图例。

详细信息：我使用以下代码创建了一个数据框（我意识到它不优雅，但我只是在学习R）：

cands<-scan("human.i.cands.degnums")
non<-scan("human.i.non.degnums")
df<-data.frame(grp=factor(c(rep("1. Candidates", each=length(cands)),
           rep("2. NonCands",each=length(non)))), val=c(cands,non))

然后我按照这样绘制密度分布：

library(ggplot2)
ggplot(df, aes(x=val,color=grp)) + geom_density() 

这会产生以下输出：

我想选择线条出现的颜色而不能为我的生活弄清楚如何。我在网站上阅读了其他各种帖子，但无济于事。最相关的是：

• Changing color of density plots in ggplot2
• Overlapped density plots in ggplot2

经过一段时间的搜索，我尝试过：

## This one gives an error
ggplot(df, aes(x=val,colour=c("red","blue"))) + geom_density() 
Error: Aesthetics must either be length one, or the same length as the dataProblems:c("red", "blue")

## This one produces a single, black line
ggplot(df, aes(x=val),colour=c("red","green")) + geom_density() 

我想出的最好的是：

ggplot() + geom_density(aes(x=cands),colour="blue")  + geom_density(aes(x=non),colour="red")

正如您在上图中看到的那样，最后一个命令正确地改变了行的颜色，但是它删除了图例。我喜欢 ggplot2的传奇系统。它很好很简单，我不想在重新创建ggplot显然能够做的事情时摆弄。最重要的是，语法非常难看。我的实际数据框由7组不同的数据组成。我无法相信写+ geom_density(aes(x=FOO),colour="BAR") 7次是最优雅的编码方式。

所以，如果一切都失败了，我会接受一个答案，告诉我如何让传奇回到第二个情节。但是，如果有人能告诉我如何正确地做到这一点，我将非常高兴。

Answer 1

set.seed(45)
df <- data.frame(x=c(rnorm(100), rnorm(100, mean=2, sd=2)), grp=rep(1:2, each=100))
ggplot(data = df, aes(x=x, color=factor(grp))) + geom_density() + 
                scale_color_brewer(palette = "Set1")

ggplot(data = df, aes(x=x, color=factor(grp))) + geom_density() + 
                scale_color_brewer(palette = "Set3")

给了我不同颜色的相同情节。

Answer 2

为“values”参数提供包含颜色的向量，以将离散值映射到手动选择的视觉值：

ggplot(df, aes(x=val,color=grp)) +
geom_density() +
scale_color_manual(values=c("red", "blue"))

要选择您想要的任何颜色，请输入其十六进制代码：

ggplot(df, aes(x=val,color=grp)) +
geom_density() +
scale_color_manual(values=c("#f5d142", "#2bd63f")) # yellow/green