Created a working chart using ggplot