Changed to use ggplot2 library