ggplot geom_histogram color by factor无法正常工作

Question

在尝试根据因子列为我的堆叠直方图着色时；所有酒吧都有“绿色”屋顶？我希望酒吧顶部与酒吧本身的颜色相同。下图清楚地显示了问题所在。所有条形的顶部都有一条“绿色”水平线？

这是一个虚拟数据集：

BodyLength <- rnorm(100, mean = 50, sd = 3)

vector <- c("80","10","5","5")

colors <- c("black","blue","red","green")

color <- rep(colors,vector)

data <- data.frame(BodyLength,color)

还有我用来生成下图的程序：

plot <- ggplot(data = data, aes(x=data$BodyLength, color = factor(data$color), fill=I("transparent")))

plot <- plot + geom_histogram()

plot <- plot + scale_colour_manual(values = c("Black","blue","red","green"))

另外，由于数据列本身包含颜色名称，我是否不必在 scale_color_manual 中再次指定它们？ ggplot 可以从数据本身中识别它们吗？但是我现在真的很想帮助解决第一个问题...谢谢。

Answer 1

这是一种无需写出矢量即可将颜色设置为 scale_colour_manual 的快速方法：

data <- data.frame(BodyLength,color)
data$color<- factor(data$color)

然后，

scale_colour_manual(values = levels(data$color))

现在，关于您的第一个问题，我不知道您的酒吧为什么有绿色屋顶。但是，您可能希望查看 geom_histogram 中位置参数的一些不同选项，例如

plot + geom_histogram(position="identity")

..或position="dodge"。 identity 选项更接近你想要的，但由于绿色是最后绘制的线，它会覆盖以前的颜色。

我自己更喜欢密度图来解决这些问题。

ggplot(data=data, aes(x=BodyLength, color=color)) + geom_density()
ggplot(data=data, aes(x=BodyLength, fill=color)) + geom_density(alpha=.3)