Проблемы с диаграммой зоны ggplot

Question

У меня есть фрейм данных, который я сделал с помощью функции плавления.

    Year     variable  value
1   1980       Action   0.34
2   1981       Action  14.84
3   1982       Action   6.52
4   1983       Action   2.86
38  1980    Adventure   0.00
39  1981    Adventure   0.00
40  1982    Adventure   0.00
41  1983    Adventure   0.40
75  1980     Fighting   0.77
76  1981     Fighting   0.00
77  1982     Fighting   0.00
78  1983     Fighting   0.00
112 1980         Misc   2.71
113 1981         Misc   0.00
114 1982         Misc   0.87
115 1983         Misc   2.14
149 1980     Platform   0.00
150 1981     Platform   6.93
151 1982     Platform   5.03
152 1983     Platform   6.93
186 1980       Puzzle   0.00
187 1981       Puzzle   2.24
188 1982       Puzzle  10.03
189 1983       Puzzle   0.78
223 1980       Racing   0.00
224 1981       Racing   0.48
225 1982       Racing   1.57
226 1983       Racing   0.00
260 1980 Role.Playing   0.00
261 1981 Role.Playing   0.00
262 1982 Role.Playing   0.00
263 1983 Role.Playing   0.00

Я пытаюсь создать для него диаграмму области, но по какой-то причине он не заполняется, как я ожидаю. Предполагая, что с кадром данных все в порядке, я предполагаю, что график не понимает, какие параметры я пытаюсь показать. Мне нужны годы на оси x, значение на оси y и столбец переменной в качестве заливки / метки.

library(ggplot2)
library(reshape2)
vg <-read.csv("vgsales.csv")

df<-melt(vg,id.vars = "Year", measure.vars = c("Action", "Adventure", "Fighting", "Misc", "Platform", "Puzzle", "Racing", "Role.Playing"))

#print(df)

p <- ggplot(df, aes(Year,value))

p + geom_area(aes(color = variable, fill = variable),position = 'stack')