R ggplot code & plot outputs