try ggplot