added necessary call to ggplot