r - ggplot - 比例堆积面积图

Question

我不明白为什么我的比例堆积面积图无法正常工作。当我使用以下代码时，我得到了这种奇怪的倾斜视觉效果:

ViolentCrimes <- ddply(ViolentCrimes, "Year", transform, PercentofTotal = Number_of_Crimes/sum(Number_of_Crimes) * 100)

ggplot(ViolentCrimes, (aes(x = Year, y = PercentofTotal, fill = Crime_Type)) +
  geom_area() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  ylab("Percent of Total")`

但是当我将 geom_area 更改为 geom_bar 并添加 stat="identity"时，条形图似乎工作得很好，尽管它很难阅读(这就是我想要比例面积图的原因):

完整数据集链接: https://docs.google.com/spreadsheets/d/1Be4rhySLUGUXkNke8zirwxVpKCZw3uSmW4Hkku0Uc9E/edit?usp=sharing

感谢任何帮助 - 非常感谢。

Answer 1

您只需准备数据，按年份和犯罪类型分组。我使用 dplyr:

library(dplyr)
ViolentCrimes <- df  %>%
  group_by(Year, Crime_Type) %>%
  summarise(n = sum(Number_of_Crimes)) %>%
  mutate(percentage = n / sum(n))

ggplot(ViolentCrimes, (aes(x = Year,  y = percentage, fill = Crime_Type))) +
  geom_area()