MBA 2016 SIMULACION DE NEGOCIOS
Aplicar la funcion ALLUVIAL del simulador Rstudio, con el fin de entender la utilidad de la herramienta para el analisis de bases de datos.
Buscamos una base de datos que queremos analizar con la funcion ALLUVIAL, sobre la base salarial de los empleados de una entidad educativa con filiales en distintas partes del mundo. La idea es realizar una comparativa de las personas que cobran por encima y por debajo del promedio. La base de datos original tuvimos que modificarla para que una de las variables independientes, en este caso el SALARIO (variable numerica), transformarla en dicotomica y asi obtener dos valores como resultado mayor o menor al promedio, debido a que solo pudimos utilizar dos colores distintivos en el grafico.
library(alluvial)
library(readr)
salarios1 <- read_delim("D:/Documentos/MBA 2016/4to semestre/Simulacion de Negocios/trabajo clase/final/salarios1.csv",
";", escape_double = FALSE, col_types = cols(Cargo = col_character(), Facultad = col_character(), Freq = col_number(), Seccional = col_character(), `rango salario` = col_character()), trim_ws = FALSE)
head(salarios1)
tit <- as.data.frame(salarios1, stringasfactor=FALSE)
# A tibble: 4 x 5
Seccional Facultad Cargo `rango salario` Freq
<chr> <chr> <chr> <chr> <dbl>
1 Bucaramanga Administracion Aux. Tecnico < $2.965.000 1.
2 Medellin Diseno Tecnico < $2.965.000 1.
3 Monteria Ingenieria Aux. Administrativo < $2.965.000 1.
4 Medellin Administracion Docente < $2.965.000 1.
alluvial(tit[,1:4], freq=tit$Freq,
col = ifelse(tit$`rango salario` == "< $2.965.000", "lightblue", "pink"),
border = ifelse(tit$`rango salario` == "< $2.965.000", "lightblue", "pink"),
hide = tit$Freq == 0,
cex = 0.7)