added ggplot2 part