ggplot2 中的 100 % 堆积面积图

Question

受this 问题的启发，我想创建一个 100% 堆叠面积图，其中 ggplot2 按国家/地区排序的年份显示电影。我的数据框可以检索到here。我有两个变量year 和country。我知道我的想法是否有错误，但我无法得到解决方案。

我使用的代码是：

library(reshape)
library(ggplot2)

df <- read.csv(url("https://dl.dropboxusercontent.com/u/109495328/movie_db.csv"))
ggplot(df, aes(x=Year,y=Country,group=Country,fill=Country)) + geom_area(position="fill")

我的图表如下所示：

但应该看起来像这样（示例图）：

我错过了什么？

编辑：

Axeman，我不明白您是如何获得 Freq 变量的，即使您使用了更新的解决方案？

我不确定这是否有必要，或者ggplot 是否正在“自动”执行此操作，但我认为我遇到的实际问题是将上面的数据框转换为数据框，了解一个国家/地区每年出现的频率并保存它频率：

发件人：

year country
2015 US
2015 US
2014 UK
2015 UK
2014 US
.
.
.

收件人：

year country freq
2015 US      6
2015 UK      7
2014 US      10
2014 UK      2

Answer 1

仍然有点不确定你想要什么，但这是我的尝试：

#load some libraries
library(dplyr)
library(tidyr)

#get rid of some clear errors in your supplied data
df <- filter(df, Country != '')
df <- droplevels(df)

#now pre-calculate the proportion for each country each year summing up to one.
#note that it may be more useful to have actual counts here instead of 0 or 1.
df2 <- table(Year = df$Year, Country = df$Country) %>% prop.table(1) %>% as.data.frame()
#fix year into a numeric
df2$Year <- as.numeric(as.character(df2$Year))

#make the plot
ggplot(df2, aes(x=Year,y=Freq,group=Country,fill=Country)) + 
  geom_area(alpha = 1) +
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0))

如果您不希望它们总和为 1，请改用：

df3 <- table(Year = df$Year, Country = df$Country) %>% as.data.frame()
#fix year into a numeric
df3$Year <- as.numeric(as.character(df3$Year))

#make the plot
ggplot(df3, aes(x=Year,y=Freq,group=Country,fill=Country)) + 
  geom_area(alpha = 1) +
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0))