stacked area graph in ggplot2 returned as stacked lines

问题

I would like to plot (using ggplot) catch data by country per year using the stacked area. Yet, I'm having problems creating my stacked area chart; for some reason it is returning stacked lines:

    Med=read.csv("Med1950-2014.csv", header=T)
    y=as.numeric(Med$catch)
    x=as.numeric(Med$year)
    country=as.character(Med$fishing_entity)
    Medc<- data.frame(x,y1,country)
    ggplot(Medc,aes(x=x,y=y1))+ geom_area(aes(colour=country,fill=country), position = 'stack')

I have tried also this:

    gg <- ggplot(Medc, aes(x=as.numeric(as.character(x)), y=y1))
    gg <- gg + geom_area(aes(colour=country, fill=country))
    gg <- gg + scale_x_discrete(labels=levels(highc$x))
    gg

enter image description here

回答1:

Your code works quite well,I have just moved the fill option from geom_area() to ggplot() and the plot which is below with the code returns colored areas:

library(ggplot2)
data <- data.frame(x = c(1960,1968,1970,1960,1966,1970), y = c(0.0004777018,0.0909000000,0.1077696000, 0.8941553688,0.0028121347 ,0.0033915022), country = c("Turkey", "Turkey","Turkey","Croatia","Croatia","Croatia"))

ggplot(data, aes(x=as.numeric(as.character(x)), y=y,fill=country )) + geom_area()

回答2:

I was not getting this problem with @Malvina_a's data set. However, if I used the diamonds data set from ggplot2 with my:

• y1 as a numeric "cut"
• x as a numeric "colour"
• country as a character "clarity"

then it does occur.

So, I took a smaller subset of the diamonds data set (a subset of about 22 rows?) and it worked with filling in correctly.

This doesn't fully help you to solve the problem but hopefully helps to see what the issue is.

来源：https://stackoverflow.com/questions/45434406/stacked-area-graph-in-ggplot2-returned-as-stacked-lines