nanounanue · March 4, 2018 05:44
diff --git a/group_by_and_ggplot.R b/group_by_and_ggplot.R
 plot_df <-df %>% group_by(feature) %>%
  do(
    plots = ggplot(data = .) + aes(x = xcol, y = ycol) +
      geom_point() + ggtitle(.$feature)
  )

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

	# show plots
	plot_df$plots