library(tidyverse)
nyc <- read_csv("https://gattonweb.uky.edu/faculty/sheather/book/docs/datasets/nyc.csv")
ggplot(data = nyc, aes(x = Service, y = Price)) +
geom_jitter(width = 0.1, alpha = 0.5, size = 2) +
geom_smooth(method = "lm", se = 0) +
xlab("Jittered service rating") +
ylab("Average Price (US$)")

