Making a stacked area plot using ggplot2

by

I’m not sure what you are plotting here, but don’t you want to be plotting PopDen along the y axis rather than the x axis? You can order the DomArea by each PR_Cat category using ddply from the plyr package, and then the stacking works as follows:
EDIT
I realized you probably want the plot to be stacked in the order Low, Medium High, so we need to first force this ordering on the PR_Cat factor by doing:

df$PR_Cat <- ordered( df$PR_Cat, levels = c('Low', 'Medium', 'High'))

And now create the DomAreaByCat column using ddply:

df <- ddply(df, .(PR_Cat), transform, DomAreaByCat = order(DomArea))

Your df will look like this:

> df
        PopDen DomArea PR_Cat DomAreaByCat
1  0.004291351  197180    Low            8
2  0.002457731  131590    Low            5
3  0.006631572  142210    Low            9
4  0.007578882  166920    Low            2
5  0.004465446  125640    Low            3
6  0.007436628  184600    Low            7
7  0.007412274  143510    Low           11
8  0.004931548  117260    Low            4
9  0.005438558  127480    Low           10
10 0.002251421  181970    Low            6
11 0.006438558  164180    Low            1
12 0.003602076  127760 Medium            4
13 0.005695585  190940 Medium            1
14 0.005819783  133440 Medium            3
15 0.006257411   69340 Medium            5
16 0.008635908  143620 Medium            2
17 0.002279892  253500   High            4
18 0.002885407  135270   High            2
19 0.009001456  139940   High            3
20 0.006951703  126280   High            1

And then you can do the stacked area plot like this:

p <- ggplot(df, aes( DomAreaByCat, PopDen))

p + geom_area(aes(colour = PR_Cat, fill= PR_Cat), position = 'stack')

alt text

More Related Contents:

  1. How can the facet function in ggplot be used to create a histogram in order to visualize distributions for all variables in a dataset?
  2. Add a common Legend for combined ggplots
  3. Stacked Bar Plot in R
  4. How to save plots that are made in a shiny app
  5. ggplot2 change axis limits for each individual facet panel
  6. ggplot plots in scripts do not display in Rstudio
  7. How can I remove empty factors from ggplot2 facets?
  8. How to add a ggplot2 subtitle with different size and colour?
  9. Error in grid.Call(L_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : Polygon edge not found
  10. Can’t print to pdf ggplot charts [duplicate]
  11. How do I change the background color of a plot made with ggplot2
  12. Plot data in descending order as appears in data frame [duplicate]
  13. How to plot a hybrid boxplot: half boxplot with jitter points on the other half?
  14. Cowplot made ggplot2 theme disappear / How to see current ggplot2 theme, and restore the default?
  15. Add line break to axis labels and ticks in ggplot
  16. How to make dodge in geom_bar agree with dodge in geom_errorbar, geom_point
  17. Plot a function with ggplot, equivalent of curve()
  18. set only lower bound of a limit for ggplot
  19. different size facets proportional of x axis on ggplot 2 r
  20. ggplot2 plot area margins?
  21. How to deal with “data of class uneval” error from ggplot2?
  22. Issue with ggplot2, geom_bar, and position=”dodge”: stacked has correct y values, dodged does not
  23. stat_contour not able to generate contour lines
  24. Add x and y axis to all facet_wrap
  25. How to change positions of x and y axis in ggplot2
  26. ggplot embedded fonts in pdf
  27. R Plot Filled Longitude-Latitude Grid Cells on Map
  28. The perils of aligning plots in ggplot
  29. When does the argument go inside or outside aes()?
  30. Make a rectangular legend, with rows and columns labeled, in grid

Leave a Comment