EDA

Exploratory data analysis

Salaries

library(carData)
data("Salaries")
head(Salaries)

##        rank discipline yrs.since.phd yrs.service  sex salary
## 1      Prof          B            19          18 Male 139750
## 2      Prof          B            20          16 Male 173200
## 3  AsstProf          B             4           3 Male  79750
## 4      Prof          B            45          39 Male 115000
## 5      Prof          B            40          41 Male 141500
## 6 AssocProf          B             6           6 Male  97000

Scatter Plot

library(ggplot2)
ggplot(Salaries,aes(yrs.service,salary,color=rank))+
  geom_point()

Box Plot

ggplot(Salaries, aes(y=salary))+
  geom_boxplot()