Import data
State one question
Plot data
Interpret

Import data

# excel file
data <- read_excel("../00_data/myData.xlsx")
data

State one question

Is there a difference in Men vs Women and their pay in higher quartiles?

Plot data

ggplot(data = data) +
    geom_point(mapping = aes(x = MaleTopQuartile, y = FemaleTopQuartile))

Interpret

There is a higher percentage of men in the top quartile over the percentage of women that are in the top quartile.