mean()
geom_vline()
ggplot(data = women, mapping = aes(x = height, y = weight)) + geom_point() + geom_vline(xintercept = mean(height))
ggplot(data = women, mapping = aes(x = height, y = weight)) + geom_point() + geom_vline(xintercept = mean(women$height))
women %>%
ggplot(mapping = aes(x = height, y = weight)) + geom_point() + geom_vline(xintercept = summarize(mean(height)))
ggplot(data = women, mapping = aes(x = height, y = weight)) + geom_point() + geom_vline( aes(xintercept = mean(height)))