Module 5: Apply 4

Import data

# csv file
data <- read.csv("../00_data/Salaries.csv")
data

# excel file
salary <- read_excel("../00_data/Salaries.xlsx")
salary

State one question

What movies have made the most money.

Plot data

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

Interpret

There is data showing position in professors salary to years of service