ggplot trials and errors