div_plot_paygap_distribution {div}

Produce a histogram and normal distribution

Description

Plots a histogram, a normal distribution with the same standard deviation and mean as well as one with a mean centred around 1

Usage

div_plot_paygap_distribution(x, label = "Gender", mu_unbiased = 1)

Arguments

x

numeric vector, column of paygap observations

label

character, prefix for the title

mu_unbiased

numeric, the mean of the unbiased distribution (for paygaps this should be 1)

Value

ggplot2 object

Examples

d <- div_fake_team()
pg <- div_paygap(d)
div_plot_paygap_distribution(pg$data$paygap)