r - 如何在一个 GGPlot 中绘制两个不同变量的直方图，并带有图例和颜色

Question

这是我在 Stack Overflow 上的第一篇文章，我的第一个可重现的例子，而且我是 R 的新手，所以请保持温和!
我试图在一个图上显示两个直方图。每个直方图在我的数据框中都是一个不同的变量(列)。我无法弄清楚如何在条形图中着色并显示图例。如果我使用 scale_fill_manual 颜色将被忽略，但如果我使用 scale_colour_manual 颜色只是条的轮廓。如果我分别将颜色映射到每个直方图(并且根本不使用 scale_xxx_manual)，颜色效果很好，但我没有得到图例。
这是我的代码:

TwoHistos <- ggplot (cars) +
  labs(color="Variable name",x="XX",y="Count")+
  geom_histogram(aes(x=speed, color= "Speed"),  alpha = 0.2 ) + 
  geom_histogram(aes(x=dist, color= "Dist"), alpha = 0.2) + 
  scale_colour_manual(values = c("yellow","green"))
TwoHistos

这是我在图像中的结果(我粘贴了它，但我不知道为什么它没有出现。对不起!):
Two histograms with outlines for colours

Answer 1

我想(如果我理解正确的话)，你可能想要的是给一个 fill内部争论geom_histogram()称呼。
(我在这里使用了 mtcars 内置 R 数据，因为您没有提供任何数据来处理)

TwoHistos <- ggplot (mtcars) +
  labs(fill="Variable name",x="XX",y="Count")+
  geom_histogram(aes(x=hp, fill= "Speed",  color = "yellow"), alpha = 0.2 ) + 
  geom_histogram(aes(x=disp, fill= "Dist", color = "green"), alpha = 0.2) +
  scale_fill_manual(values = c("yellow","green"))+
  scale_colour_manual(values = c("yellow","green"), guide=FALSE)
TwoHistos

编辑:只是为了明确表示我已经更改了 x在 geom_histogram()所以它适用于 mtcars