changed plots to ggplot