r - ggplot2 堆叠线图表现有趣

Question

我堆积的情节在后来的几年里变得很不稳定。有人可以查看我的代码并告诉我哪里出错了吗？我认为我的代码与示例代码相同（两者都在下面）。

我对 ggplot2 绘图堆叠不是很有经验，所以我可能会犯一个简单的错误。

我想要一些看起来像的东西：

生成上述堆叠图的代码可作为 The R Graphics Cookbook 的一部分获得，并可在Revolutions R 博客文章中找到。
来自 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——几乎没有什么信息。也许在选择可视化之前更多地考虑你想要传达的故事是为了？