Create ggplot.r