Df ggplot2

Merging in data frame work and ggplot2 conversion