added ggplot2 fig