what if ggplot guides were ggplots

ggguide.r

library(ggplot2)
library(grid)

d <- data.frame(x=rnorm(50), y=rnorm(50), f1 = rep(gl(5,5), 2), f2 = gl(2, 25))
p <- ggplot(d, aes(x,y, group=interaction(f1,f2))) +
  geom_line(aes(colour=f1, linetype=f2)) +
  geom_point(aes(colour=f1, shape=f1)) 


gb <- ggplot_build(p)
pp <- gb$plot

th <- theme_grey() + theme(legend.direction = "vertical")
gdefs <- ggplot2:::guides_train(scales = pp$scales, theme = th, guides = pp$guides, 
                      labels = pp$labels)

legs <- lapply(gdefs, "[[", "key")
names(legs) <- c("point", "segment", "point")


make_guide <- function(d, title){
  
  map <- list(as.symbol(colnames(d)[1]))
  names(map) <- colnames(d)[1]
  class(map) <- "uneval"
  
  ggplot(d, aes(x=0,y=0)) + facet_grid(.label~.) +
    geom_point(map) +
    scale_colour_identity()  +
    scale_shape_identity()  +
    scale_x_continuous(breaks=NULL)+
    scale_y_continuous(breaks=NULL) +
    labs(x=NULL, y=NULL) +
    theme_minimal() + 
    theme(panel.background = element_rect(fill="grey95"),
          legend.position = "none",
          strip.text.y = element_text(angle=0)) +
    ggtitle(title)
  
  
}

pl <- Map(make_guide, legs, names(legs))
pl <- lapply(pl, egg::set_panel_size, width=unit(1,"line"), height=unit(1,"line"))
gridExtra::grid.arrange(grobs = pl, ncol=1)