andreagrioni

plot_df <-df %>% group_by(feature) %>%
  do(
    plots = ggplot(data = .) + aes(x = xcol, y = ycol) +
      geom_point() + ggtitle(.$feature)
  )

# show plots
plot_df$plots