prog qualità del lavoro

Divario retributivo (trattamento equo dell’occupazione) L’indicatore misura la differenza tra il guadagno medio orario lordo di due gruppi di sottopopolazione accoppiati e fornisce informazioni sul grado di parità in termini di retribuzione.

dataoperai

## # A tibble: 6 × 3
##   Paesenascita Value Sesso  
##   <chr>        <dbl> <chr>  
## 1 Italia        11.5 maschi 
## 2 Italia        10.3 femmine
## 3 Italia        11.1 totale 
## 4 Paesi esteri  10.7 maschi 
## 5 Paesi esteri  10   femmine
## 6 Paesi esteri  10.5 totale

confronto tra italiani e stranieri

valtot<-dataoperai%>%
  filter(Sesso=="totale")%>%
  select(Paesenascita, Value)
valtot

## # A tibble: 2 × 2
##   Paesenascita Value
##   <chr>        <dbl>
## 1 Italia        11.1
## 2 Paesi esteri  10.5

paygap=function(datavalori){
  ((datavalori[1]-datavalori[2])/(datavalori[1]))*100
}
paygap(valtot$Value)

## [1] 5.510388

confronti singoli di genere

uom<-dataoperai%>%
  filter(Sesso=="maschi")
uom

## # A tibble: 2 × 3
##   Paesenascita Value Sesso 
##   <chr>        <dbl> <chr> 
## 1 Italia        11.5 maschi
## 2 Paesi esteri  10.7 maschi

paygap(uom$Value)

## [1] 7.111882

femm<-dataoperai%>%
  filter(Sesso=="femmine")
femm

## # A tibble: 2 × 3
##   Paesenascita Value Sesso  
##   <chr>        <dbl> <chr>  
## 1 Italia        10.3 femmine
## 2 Paesi esteri  10   femmine

paygap(femm$Value)

## [1] 3.00679

confronto in generale tra maschi e femmine

uomedon<-dataoperai%>%
  filter(Sesso!="totale")%>%
  group_by(Sesso)%>%
  summarise(medval=mean(Value))
uomedon

## # A tibble: 2 × 2
##   Sesso   medval
##   <chr>    <dbl>
## 1 femmine   10.2
## 2 maschi    11.1

paygap(uomedon$medval)

## [1] -9.502708