在 R (ggplot2) 中为密度图创建手动图例答案

【问题标题】：create a manual legend for density plots in R (ggplot2)在 R (ggplot2) 中为密度图创建手动图例
【发布时间】：2017-10-19 01:19:30
【问题描述】：

我想在我的图表中添加一个图例。我在网上找到的所有解决方案都使用 scale_color_manual - 但它对我不起作用。传说在哪里？这是我的代码：

library(ggplot2)
ggplot() +
  geom_density(aes(x = rnorm(100)), color = 'red') +
  geom_density(aes(x = rnorm(100)), color = 'blue') +
  xlab("Age") + ylab("Density") + ggtitle('Age Densities')
  theme(legend.position = 'right') +
  scale_color_manual(labels = c('first', 'second'), values = c('red', 'blue'))

【问题讨论】：

顺便说一句，在我的真实情况下，我绘制的密度不同的 2 个向量的长度是不同的。

标签： r ggplot2 legend density-plot

【解决方案1】：

如果出于某种原因您绝对需要这两个几何图形来处理不同的数据源，请将 color = XXX 部分移动到 aes() 中，然后使用命名向量手动定义颜色：

ggplot() +
  geom_density(aes(x = rnorm(100), color = 'first')) +
  geom_density(aes(x = rnorm(100), color = 'second')) +
  xlab("Age") + ylab("Density") + ggtitle('Age Densities') +
  theme(legend.position = 'right') +
  scale_color_manual(values = c('first' = 'red', 'second' = 'blue'))

【讨论】：

非常感谢 - 这是一个很好的解决方案（也是一个很好的学习）！我没有意识到可以在“aes”中使用“手动”颜色。你上面的回答根本不能令人满意 - 很多时候需要覆盖来自不同来源的密度分布，而不是来自同一个数据框。
只是为了澄清，我的解决方案是，我想说的是，这样做的“预期”方式，参见例如this answer。为超过 2 个不同的来源使用单独的几何图形（或每个几何图形不止一个，例如线和散点图）至少......很费力。

【解决方案2】：

您的数据格式不正确，您基本上是在一个共同的“画布”上创建两个单独的图，请参阅下面的代码（df 的创建是关键部分）：

library(ggplot2)

df <- data.frame(
  x = c(rnorm(100), runif(100)),
  col = c(rep('blue', 100), rep('red', 100))
)

ggplot(df) +
  geom_density(aes(x = x, color = col)) +
  xlab("Age") + ylab("Density") + ggtitle('Age Densities') + 
  theme(legend.position = 'right') +
  scale_color_manual(labels = c('first', 'second'), values = c('red', 'blue'))

【讨论】：