Fill region between two loess-smoothed lines in R with ggplot

by

A possible solution where the loess smoothed data is grabbed from the plot object and used for the geom_ribbon:

# create plot object with loess regression lines
g1 <- ggplot(df) + 
  stat_smooth(aes(x = x, y = ymin, colour = "min"), method = "loess", se = FALSE) +
  stat_smooth(aes(x = x, y = ymax, colour = "max"), method = "loess", se = FALSE)
g1

# build plot object for rendering 
gg1 <- ggplot_build(g1)

# extract data for the loess lines from the 'data' slot
df2 <- data.frame(x = gg1$data[[1]]$x,
                  ymin = gg1$data[[1]]$y,
                  ymax = gg1$data[[2]]$y) 

# use the loess data to add the 'ribbon' to plot 
g1 +
  geom_ribbon(data = df2, aes(x = x, ymin = ymin, ymax = ymax),
              fill = "grey", alpha = 0.4)

enter image description here

More Related Contents:

  1. Plot smooth line through all data points
  2. R::ggplot2::geom_points: how to swap points with pie charts?
  3. How to use loess method in GGally::ggpairs using wrap function
  4. Stacked Bar Plot in R
  5. Displaying text below the plot generated by ggplot2
  6. How to save plots that are made in a shiny app
  7. Order Stacked Bar Graph in ggplot [duplicate]
  8. ggplot2 change axis limits for each individual facet panel
  9. ggplot plots in scripts do not display in Rstudio
  10. Printing multiple ggplots into a single pdf, multiple plots per page
  11. How can I remove empty factors from ggplot2 facets?
  12. Error in grid.Call(L_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : Polygon edge not found
  13. Can’t print to pdf ggplot charts [duplicate]
  14. How do I change the background color of a plot made with ggplot2
  15. Plot data in descending order as appears in data frame [duplicate]
  16. How to plot a hybrid boxplot: half boxplot with jitter points on the other half?
  17. Reproducing lattice dendrogram graph with ggplot2
  18. Changing the line type in the ggplot legend
  19. Plot a function with ggplot, equivalent of curve()
  20. How to deal with “data of class uneval” error from ggplot2?
  21. Issue with ggplot2, geom_bar, and position=”dodge”: stacked has correct y values, dodged does not
  22. stat_contour not able to generate contour lines
  23. How do I change the number of decimal places on axis labels in ggplot2?
  24. Add x and y axis to all facet_wrap
  25. ggplot embedded fonts in pdf
  26. Asymmetric expansion of ggplot axis limits
  27. How to add shaded confidence intervals to line plot with specified values
  28. Removing Unused Factors from a Facet in ggplot2
  29. Adding percentage labels on pie chart in R
  30. show multiple plots from ggplot on one page in r

Leave a Comment