Added ggplot plot