R/mkhist.R

In samuelfay2/mkhist: What the Package Does (One Line, Title Case)

#' mkhist() function to create 
#' histograms from df variables

#' @export

mkhist <- function(x){
	print(x %>% head())
	x %>% gather() %>% head()

	ggplot(gather(x), aes(value)) + 
		geom_histogram(bins=20) +
		facet_wrap(~key, scales='free_x')
	ggsave("df_histogram.png")
	ggsave("df_histrogram.pdf")
}