more exploration with ggplot