fixed ggplot call