testing ggplot functionality