Import data

# csv file
data <- read.csv("../01_module4/data/Salaries.csv")

State one question

The longer a professor has taught the more he/she gets paid.

Plot data

ggplot(data =data) + 
  geom_point(mapping = aes(x = salary, y = yrs.service))

Interpret

There seems to be prominent evidence of a positive relationship between a professors salary and years of service.