GRUPO ESTELARES

  • DE LA LLANA RODRIGO
  • MARTINENGO PABLO
  • MINOZI MILAGRO
  • PLATERO SOLEDAD
  • SANCHEZ GUIDO

MBA 2016 SIMULACION DE NEGOCIOS

OBJETIVO

Aplicar la funcion ALLUVIAL del simulador Rstudio, con el fin de entender la utilidad de la herramienta para el analisis de bases de datos.

EJECUCION

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.

CODIGOS USADOS

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) 

ENCABEZADO DE LA BASE DE DATOS

# 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.

CODIGO PARA CREAR EL GRAFICO

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)

GRAFICO OBTENIDO

plot of chunk unnamed-chunk-8

CONCLUSION

  • Desde la herramienta “R”, en su funcion “ALLUVIAL”, vemos que es muy poderosa a la hora de manejar informacion, organizarla y mostrar sus resultados. En contrapartida, es necesario aprender en lenguaje que se utiliza, por lo que en un comienzo puede ser una tarea un poco mas tediosa, pero que con practica se mejora sustancialmente.
  • Respecto a la informacion analizada, podemos decir que: La filial de Medellin tiene mayor cantidad de empleados que las otras. Las profesiones mejor remuneradas son Ingenierias, Publicidad, Derecho, Comunicacion, mientras que los menos remunerados son Administracion, Diseno y Medicina. Ademas puede visualizarse que los cargos mejor remunerados son: investigadores y Docentes.