¿Por qué mi gráfico de área apilada en ggplot2 se muestra como líneas apiladas?

Question

Tengo un problema al intentar crear mi gráfico de áreas apiladas en ggplot2 en R, por alguna razón está saliendo como una línea apilada;

por ejemplo, datos:

library(ggplot2)

Sector <- rep(c("S01","S02","S03","S04","S05","S06","S07"),times=7)
Year <- rep(c("1950","1960","1970","1980","1990","2000","2010"),each=7)
Value <- runif(49, 10, 100)
df <- data.frame(Sector,Year,Value)

y luego usando ggplot2 para crear un gráfico de áreas apiladas tradicional;

ggplot(df,aes(Year, Value,fill=Sector))+geom_area(aes(colour=Sector),position="stack")

para mí, eso devuelve una línea apilada como se muestra abajo. ¿Es mi versión de R? ¿o mi código? el código de ggplot2 parece ser igual que en otros ejemplos de áreas apiladas que puedo encontrar en línea, pero obtengo resultados extraños y no puedo encontrar información al respecto.

Answer 1

# hacerlo reproducible
set.seed(1492)
Sector <- rep(c("S01","S02","S03","S04","S05","S06","S07"),times=7)
Year <- rep(c("1950","1960","1970","1980","1990","2000","2010"),each=7)
Value <- runif(49, 10, 100)
df <- data.frame(Sector,Year,Value)

gg <- ggplot(df, aes(x=as.numeric(as.character(Year)), y=Value))
gg <- gg + geom_area(aes(colour=Sector, fill=Sector))
gg

Esta es una forma alternativa:

gg <- ggplot(df, aes(x=as.numeric(Year), y=Value))
gg <- gg + geom_area(aes(colour=Sector, fill=Sector))
gg <- gg + scale_x_discrete(labels=levels(df$Year))
gg