在ggplot中为覆盖密度图添加图例

Question

我有一个来自两个数据集的叠加密度图，是用 ggplot2 创建的。

  g <- ggplot(data = result_A,
              aes(x = log(cap_universal))) +
    geom_density(fill = "lightblue") +
    geom_density(data = result_B,
                 fill = "purple",
                 alpha = 0.25) +
    xlab("Complete Automation Probability") +
    ylab("Density")

我得到了我想要的，情节是这样的：

但是，我尝试了很多方法，但仍然无法为这个情节添加图例。没有错误消息，但图例不会显示。

感谢您的帮助。

Answer 1

将您的数据集 result_A 和 result_B 组合成一个数据集，其中这些差异被指定为某个因素，例如“东西”：

result_A$thing <- "A"
result_B$thing <- "B"
result_AB <- rbind(result_A, result_B)

然后，不要分别调用 geom_density 来调用两个数据集，而是使用 fill = thing 指定一次并手动指定颜色和 alpha，例如：

ggplot(data = result_AB, aes(x = log(cap_universal))) + 
  geom_density(aes(fill = thing,
                   alpha = thing)) +
  scale_fill_manual(values = c("light blue", "purple")) +
  scale_alpha_manual(values = c(1, 0.25)) +
  # assuming here that the "result_A" data will plot first as "A" should
  # order before "B" in factors, though can't test w/out yr data
  xlab("Complete Automation Probability") +
  ylab("Density")

这应该会产生一个图例，显示您的因子“A”和“B”是什么颜色，我认为这就是您所追求的。

这更符合ggplot2 的理念。但是，如果您将两个 fill 调用都包装在 aes 中，它也可能会起作用，例如geom_density(aes(fill = "lightblue"))。 （虽然无法对此进行测试，因为上面没有可重现的示例）