cleaned up ggplot commands