added ggplot2 code