Q:

extract multiple graphs stored in list made with purrr and plot in a single image

Please, help me understand how to plot in one image all the histograms stored in a list made with purrr. 
This is a data example:
df <- data.frame(X1 = c(1, 1, 1, 1, 1),
                 X2 = c(1, 2, 1, 3, 2),
                 X3 = c(3, 2, 2, 3, 3))

When I execute the next command, I get the plots, which I can browse in the viewer.
df %>% map(~hist(.))

I even got to the part of naming the elements of the list, which for my level of newbieness is amazing, by adding 
%>% set_names( . , paste0("hist_" , names(df)))

I'd like to be able to plot in a single image all the histograms stored in the list obtained this way. If you could also explain how to pass the names of the elements to each histogram would be terrific.
PS: I know how to plot objects from the same family using facet_wrap and facet_grid. I don't think that applies to my question. Perhaps, gridExtra, but I couldn't figure out how. 

A:

It is possible to get multiple plots on one page with base graphics using the graphical parameter mfrow
 df <- data.frame(X1 = c(1, 1, 1, 1, 1),
                 X2 = c(1, 2, 1, 3, 2),
                 X3 = c(3, 2, 2, 3, 3))
par(mfrow = c(2,2))
res <- df %>% map2(names(df) ,~hist(.x, main = .y)) #updated to make names work

But as MrFlick mentioned, you wold be better off using faceting like this
library(tidyr)
library(ggplot2)
df %>% gather(var,value) %>% 
  ggplot(aes(x = value))+
  geom_histogram()+
  facet_wrap(~var)

