add ggplot R script