added ggplot data extractor