Create plot_histogram.R