using stat_function and facet_wrap together in ggplot2 in R

by

stat_function is designed to overlay the same function in every panel. (There’s no obvious way to match up the parameters of the function with the different panels).

As Ian suggests, the best way is to generate the normal curves yourself, and plot them as a separate dataset (this is where you were going wrong before – merging just doesn’t make sense for this example and if you look carefully you’ll see that’s why you’re getting the strange sawtooth pattern).

Here’s how I’d go about solving the problem:

dd <- data.frame(
  predicted = rnorm(72, mean = 2, sd = 2),
  state = rep(c("A", "B", "C"), each = 24)
) 

grid <- with(dd, seq(min(predicted), max(predicted), length = 100))
normaldens <- ddply(dd, "state", function(df) {
  data.frame( 
    predicted = grid,
    density = dnorm(grid, mean(df$predicted), sd(df$predicted))
  )
})

ggplot(dd, aes(predicted))  + 
  geom_density() + 
  geom_line(aes(y = density), data = normaldens, colour = "red") +
  facet_wrap(~ state)

enter image description here

More Related Contents:

  1. Plotting two variables as lines using ggplot2 on the same graph
  2. Force R to stop plotting abbreviated axis labels (scientific notation) – e.g. 1e+00
  3. Use stat_summary to annotate plot with number of observations
  4. How to combine 2 plots (ggplot) into one plot?
  5. ggplot geom_point() with colors based on specific, discrete values
  6. Can ggplot2 control point size and line size (lineweight) separately in one legend?
  7. Setting the last plot in the middle with facet_wrap
  8. What type of graph is this? And can it be created using ggplot2?
  9. ggplot2: Splitting facet/strip text into two lines
  10. How to add texture to fill colors in ggplot2
  11. Simpler population pyramid in ggplot2
  12. ggplot, facet, piechart: placing text in the middle of pie chart slices
  13. Error: package or namespace load failed for ggplot2 and for data.table
  14. How to add legend to ggplot manually? – R [duplicate]
  15. Line break when no data in ggplot2
  16. Stacked barplot with colour gradients for each bar
  17. Expand spacing between tick marks on x axis
  18. How to fix the aspect ratio in ggplot?
  19. Increase resolution of color scale for values close to zero
  20. ggplot2 : Plot mean with geom_bar
  21. How to add different lines for facets
  22. Add number of observations per group in ggplot2 boxplot
  23. Remove space between bars ggplot2
  24. How can I add annotations below the x axis in ggplot2?
  25. ToolTip when you mouseover a ggplot on shiny
  26. ggplot2: Fix colors to factor levels
  27. How to automatically adjust the width of each facet for facet_wrap?
  28. Is it possible to jitter two ggplot geoms in the same way?
  29. Draw lines between different elements in a stacked bar plot
  30. Change the position of the strip label in ggplot from the top to the bottom?

Leave a Comment