cleaned ggplot code