ggplot2堆积线图表演很有趣

Question

我的堆积情节在后来的几年里都很糟糕。有人可以看看我的代码并告诉我哪里出错了吗？我以为我的代码与示例代码相同（下面都有）。

我对ggplot2图表堆叠不太熟悉，所以我可能会犯一个简单的错误。

我想要的东西看起来像：

产生上述叠加图的代码可作为The R Graphics Cookbook的一部分提供，可在Revolutions R Blog Post找到。
来自R Graphics Cookbook      库（GGPLOT2）      库（gcookbook）

 ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) +
 geom_area(colour="black", size=.2, alpha=.4) +
 scale_fill_brewer(palette="Blues", breaks=rev(levels(uspopage$AgeGroup)))

我认为我的语法几乎重复了。但是，在我看来，我肯定在某个地方犯了错误。

 lawsize <- as.data.frame(read.csv("https://raw.githubusercontent.com/EconometricsBySimulation/wild-monkey/master/usc.csv"))

 ggplot(lawsize, aes(x=Year, y=KB, fill=factor(Name)))+
 geom_area(colour="black", size=.2, alpha=.4)
 scale_fill_brewer(palette="Blues", breaks=rev(levels(lawsize$Name)))

感谢您对此事的考虑！ ˚F

Answer 1

你肯定需要遵循Sandy Muspratt的建议，但即使这样你也会有超过60个因素产生类似的东西：

lawsize$Name <- factor(tolower(lawsize$Name))
lawsize = lawsize[!duplicated(lawsize), ]

gg <- ggplot(lawsize, aes(x=Year, y=KB, fill=Name))
gg <- gg + geom_area(colour="black", size=.2, alpha=.4)
gg <- gg + theme(legend.position="none")
gg

漂亮，但是-IMO-几乎没有提供信息。在选择可视化之前，或许更多地考虑一下你试图传达的故事会是有序的吗？