attempt 4 with ggplot