re did plot using ggplot