Update on script. Trying to make a nice ggplot graph