Salario mínimo en Colombia

En el diario de El Colombiano del el día jueves, 23 de agosto de 2018 en la página 4 y 5, bajo el titular “Las cuentas sobre el salario mínimo” se muestra la siguiente gráfica:

Lectura de la base de datos.

library(readxl)
sm_IPC <- read_excel("salario_minimo_IPC_Colombia.xlsx")

Despliegue de la base de datos.

sm_IPC

## # A tibble: 35 x 5
##      año salario_mínimo Inflación diferencia diferencia_porcentual
##    <dbl>          <dbl>     <dbl>      <dbl>                 <dbl>
##  1  1984          11298      18.3         NA                  NA  
##  2  1985          13558      22.4       2260                  20.0
##  3  1986          16811      21.0       3253                  24.0
##  4  1987          20510      24.0       3699                  22.0
##  5  1988          25637      28.1       5127                  25.0
##  6  1989          32560      26.2       6923                  27.0
##  7  1990          41025      32.4       8465                  26.0
##  8  1991          51720      26.8      10695                  26.1
##  9  1992          65190      25.1      13470                  26.0
## 10  1993          81510      22.6      16320                  25.0
## # ... with 25 more rows

Estructura de la base datos.

str(sm_IPC)

## Classes 'tbl_df', 'tbl' and 'data.frame':    35 obs. of  5 variables:
##  $ año                  : num  1984 1985 1986 1987 1988 ...
##  $ salario_mínimo       : num  11298 13558 16811 20510 25637 ...
##  $ Inflación            : num  18.3 22.4 20.9 24 28.1 ...
##  $ diferencia           : num  NA 2260 3253 3699 5127 ...
##  $ diferencia_porcentual: num  NA 20 24 22 25 ...

Resumen de la base de datos

summary(sm_IPC)

##       año       salario_mínimo     Inflación        diferencia   
##  Min.   :1984   Min.   : 11298   Min.   : 1.940   Min.   : 2260  
##  1st Qu.:1992   1st Qu.: 73350   1st Qu.: 4.665   1st Qu.:16538  
##  Median :2001   Median :286000   Median : 7.670   Median :23346  
##  Mean   :2001   Mean   :306689   Mean   :12.839   Mean   :22645  
##  3rd Qu.:2010   3rd Qu.:505950   3rd Qu.:22.045   3rd Qu.:28212  
##  Max.   :2018   Max.   :781242   Max.   :32.370   Max.   :48262  
##                                                   NA's   :1      
##  diferencia_porcentual
##  Min.   : 3.643       
##  1st Qu.: 6.449       
##  Median : 9.000       
##  Mean   :13.571       
##  3rd Qu.:21.073       
##  Max.   :27.004       
##  NA's   :1

Gráfica preliminar del comportamiento del salario mínimo.

plot(sm_IPC$año, sm_IPC$salario_mínimo)

plot(sm_IPC$año, sm_IPC$salario_mínimo/1000, 
     las = 1, type = "l",
     ylab = "Salario mínimo (miles de pesos)",
     xlab = "Año",
     main = "Comportamiento del salario mínimo")

Comparación del IPC y el procentaje de aumento del salario mínimo

with(sm_IPC, plot(año, Inflación, type = "l", col = "red", las = 1,
     xlab = "Año", ylab = "Porcentaje",
     main = "Comparación IPC vs incremento del Salario Mínimo"))
with(sm_IPC, lines(año, diferencia_porcentual, col = "blue"))
legend("topright", c("Inflación", "Salario mínimo"),
       col = c("red", "blue"), lty = 1)