added ggplot graphing