updated ggplot example