Labor Income : Average vs Median, Gini Coefficient

median <- c(17.5, 17.7, 18.8, 20.8, 21.6, 23.0, 23.4, 24.6, 26.0, 27.2, 28.3, 28.9, 29.7)
average <- c(25.8, 26.4, 28.2, 29.8, 30.7, 32.0, 32.8, 33.9, 35.4, 36.6, 37.6, 38.5, 40.4) 
gini <- c(0.494, 0.506, 0.489, 0.475, 0.474, 0.465, 0.466, 0.46, 0.456, 0.446, 0.438, 0.440, 0.445)
year <- 2009:2021
L <- length(year)
average_diff <- average[L] - average[1]
median_diff <- median[L] - median[1]

Average vs Median

## quartz_off_screen 
##                 3

## quartz_off_screen 
##                 2

Gini Coefficients

## quartz_off_screen 
##                 3

## quartz_off_screen 
##                 2