Added ggplot2 plot