R assigning ggplot objects to list in loop

by

The answers so far are very close, but unsatisfactory in my opinion. The problem is the following – after your for loop:

myplots[[1]]$mapping
#* x -> 1:dfmsize
#* y -> dfrm[, i]
myplots[[1]]$plot_env
#<environment: R_GlobalEnv>

myplots[[2]]$mapping
#* x -> 1:dfmsize
#* y -> dfrm[, i]
myplots[[2]]$plot_env
#<environment: R_GlobalEnv>

i
#[1] "B"

As the other answers mention, ggplot doesn’t actually evaluate those expressions until plotting, and since these are all in the global environment, and the value of i is "B", you get the undesirable results.

There are several ways of avoiding this issue, the simplest of which in fact simplifies your expressions:

myplots = lapply(v, function(col)
            ggplot(dfrm, aes(x=1:dfmsize, y=dfrm[,col])) + geom_point() + labs(y=col))

The reason this works, is because the environment is different for each of the values in the lapply loop:

myplots[[1]]$mapping
#* x -> 1:dfmsize
#* y -> dfrm[, col]
myplots[[1]]$plot_env
#<environment: 0x000000000bc27b58>

myplots[[2]]$mapping
#* x -> 1:dfmsize
#* y -> dfrm[, col]
myplots[[2]]$plot_env
#<environment: 0x000000000af2ef40>

eval(quote(dfrm[, col]), env = myplots[[1]]$plot_env)
#[1]  1  2  3  4  5  6  7  8  9 10
eval(quote(dfrm[, col]), env = myplots[[2]]$plot_env)
#[1] 10  9  8  7  6  5  4  3  2  1

So even though the expressions are the same, the results are different.

And in case you’re wondering what exactly is stored/copied to the environment of lapply – unsurprisingly it’s just the column name:

ls(myplots[[1]]$plot_env)
#[1] "col"

More Related Contents:

  1. Multiple plots in for loop ignoring par
  2. Merge and Perfectly Align Histogram and Boxplot using ggplot2
  3. ggplot – Multiple legends arrangement
  4. Cowplot made ggplot2 theme disappear / How to see current ggplot2 theme, and restore the default?
  5. Plotting two variables as lines using ggplot2 on the same graph
  6. Add legend to ggplot2 line plot
  7. Overlay histogram with density curve
  8. ggplot legends – change labels, order and title
  9. How to get a vertical geom_vline to an x-axis of class date?
  10. Split time series data into time intervals (say an hour) and then plot the count
  11. Adding table within the plotting region of a ggplot in r
  12. Alignment of numbers on the individual bars
  13. Stacked barchart, independent fill order for each stack
  14. How to position strip labels in facet_wrap like in facet_grid
  15. How to conditionally highlight points in ggplot2 facet plots – mapping color to column
  16. Making a stacked area plot using ggplot2
  17. ggplot2: Adding secondary transformed x-axis on top of plot
  18. Seeking workaround for gtable_add_grob code broken by ggplot 2.2.0
  19. How to make dodge in geom_bar agree with dodge in geom_errorbar, geom_point
  20. Reasons that ggplot2 legend does not appear [duplicate]
  21. Plot a function with ggplot, equivalent of curve()
  22. set only lower bound of a limit for ggplot
  23. set ggplot plots to have same x-axis width and same space between dot plot rows
  24. How to place grobs with annotation_custom() at precise areas of the plot region?
  25. Horizontal Barplot in ggplot2
  26. ggplot2, Ordering y axis
  27. Can ggplot2 control point size and line size (lineweight) separately in one legend?
  28. How to overlay two geom_bar?
  29. ggplot Donut chart
  30. Specifying ggplot2 panel width

Leave a Comment