Impacto del Costo del Galon Gasolina Sobre el Salario en New York

Author

Jose Nicolas Molina

Carga de Librerias

library(ggplot2)

Carga de Datos

Precio de combustible promedio en el año 2021 y el 2023 en el estado de New York. Estos valores son tomados de Global Petrol Prices. Para 2021 de 2.17 y para el 2023 de 3.55 el galon.

preGaso2023<-3.55
preGaso2021<-2.17

Luego creamos dos escenarios salariales: un salario de un profesional (Licenciado o ingeniero) de 7000 $ al mes y un salario minimo de 2400 $ al mes de acuerdo al DOL NY.

salAlto<-7000
salMinimo<-2400

Asignamos de manera arbitraria el uso de combustible en dos escenarios: alto consumo de 80 galones/mes y otro de bajo consumo con 25 galones/mes.

usoAlto<-80
usoBajo<-25

Analisis de la Informacion

Calculo del costo mensual de combustible para los años 2021 y 2023 en los casos de bajo y alto consumo.

Crear dos vectores, uno para bajo costo de combustible y otro para alto costo de combustible para facilitar las operaciones posteriores.

costo2023UsoAlto<-usoAlto*preGaso2023
costo2023UsoBajo<-usoBajo*preGaso2023
costo2021UsoAlto<-usoAlto*preGaso2021
costo2021UsoBajo<-usoBajo*preGaso2021
costoUsoBajo<-c(costo2021UsoBajo,costo2023UsoBajo)
costoUsoAlto<-c(costo2021UsoAlto,costo2023UsoAlto)

Ahora calculemos cuánto afecta el costo del combustible al salario como porcentaje, en caso de salario alto y en caso de salario minimo.

incidenciaSalAltoUsoBajo<-100*costoUsoBajo/salAlto
incidenciaSalAltoUsoAlto<-100*costoUsoAlto/salAlto
incidenciaSalMinimoUsoBajo<-100*costoUsoBajo/salMinimo
incidenciaSalMinimoUsoAlto<-100*costoUsoAlto/salMinimo

Graficos

Generamos los graficos con el uso de R básico

# Seleccion de colores
mycolors<-c("firebrick1","dodgerblue1")
par(mfrow=c(2,2))
barplot(incidenciaSalMinimoUsoBajo,col=mycolors,ylim=c(0,12),ylab=paste("% de Incidencia sobre el salario de",salMinimo,"$"),main=paste("Consumo",usoBajo,"gal Mes"))
barplot(incidenciaSalMinimoUsoAlto,col=mycolors,ylim=c(0,12),main=paste("Consumo",usoAlto,"gal mes"))
barplot(incidenciaSalAltoUsoBajo,col=mycolors,ylim=c(0,12),ylab=paste("% de Incidencia sobre el salario de",salAlto,"$"))
barplot(incidenciaSalAltoUsoAlto,col=mycolors,ylim=c(0,12),legend.text=c(2021,2023),args.legend=list(fill=mycolors,bty="n"))

Generamos los graficos con el uso de ggplot.

incidencia<-data.frame(Año=rep(c(2021,2023),4),
    Variable=c(rep(paste("Salario",salAlto,"$,",usoBajo,"Galones al mes"),2),
                    rep(paste("Salario",salAlto,"$,",usoAlto,"Galones al mes"),2),
                    rep(paste("Salario",salMinimo,"$,",usoBajo,"Galones al mes"),2),
                    rep(paste("Salario",salMinimo,"$,",usoAlto,"Galones al mes"),2)),
    Value=c(incidenciaSalAltoUsoBajo,incidenciaSalAltoUsoAlto,incidenciaSalMinimoUsoBajo,incidenciaSalMinimoUsoAlto))

ggplot(incidencia,aes(x=factor(Año),y=Value,fill=factor(Año))) +
 facet_wrap (~ Variable) + # Creamos 4 gráficos, uno para cada valor de cada variable 
 geom_bar (stat="identity") + # Realizamos un gráfico de barras para representar cada valor
 labs(fill="Año",x="",y="% incidencia sobre salario") # Estética en la leyenda

Conclusiones:

Un empleado con un salario mensual de 2400$ gasta el 7.4% de su salario mensual en comprar 80 galones de gasolina a un precio de 2.17$ el galon, y el 11.9% de su salario si el precio es de 3.55 $ el Galon.

Un empleado con un salario mensual de 7.000$ gasta el 2.8% de su salario mensual en comprar 80 galones de gasolina a un precio de 2.17$ el galon, y el 4.4 % de su salario si el precio es de 3.55$ el galon.

Fuentes:

  • Blog de R – Fabio Marroni (https://www.r-bloggers.com/2023/01/chi-subisce-il-caro-carburante/?utm_source=phpList&utm_medium=email&utm_campaign=R-bloggers-daily&utm_content=HTML)

  • Global Petrol Prices (https://www.globalpetrolprices.com/gasoline_prices/)

  • DOL NY (https://dol.ny.gov/news)