Act.
Camila Fernandez
28/2/2022
##Actividad2
Paso 0:Cargar la base de datos correspondiente a analizar.
library(readxl)
Datos= read_excel("~/JAVERIANA/Actividad 2/Datos_Rotacion.xlsx")
names(Datos)## [1] "Rotacion" "Edad"
## [3] "Viaje de Negocios" "Departamento"
## [5] "Distancia_Casa" "Educación"
## [7] "Campo_Educacion" "Satisfaccion_Ambiental"
## [9] "Genero" "Cargo"
## [11] "Satisfacion_Laboral" "Estado_Civil"
## [13] "Ingreso_Mensual" "Trabajos_Anteriores"
## [15] "Horas_Extra" "Porcentaje_aumento_salarial"
## [17] "Rendimiento_Laboral" "Años_Experiencia"
## [19] "Capacitaciones" "Equilibrio_Trabajo_Vida"
## [21] "Antiguedad" "Antiguedad_Cargo"
## [23] "Años_ultima_promocion" "Años_acargo_con_mismo_jefe"##paso 1: Seleccionar 3 variables categóricas (distintas de rotación) y 3 variables cuantitativas
library(readxl)
hipotisis = read_excel("~/JAVERIANA/Actividad 2/hipotisis.xlsx")
head(hipotisis)| Numeral | Variable | Tipo | Hipótesis |
|---|---|---|---|
| 1 | IngresoMensual | Cuantitativa | Se espera que el ingreso mesual esta relacionado con la rotación, ya que menor salario, mayor rotación |
| 2 | Porcentaje Aumento Salarial | Cuantitativa | Se espera que el porcentaje de aumento salarial esta relacionado con la rotación, ya que menor porcentaje de aumento salarial, mayor rotación |
| 3 | Edad | Cuantitativa | Se espera que la edad se relacione con la rotación ya que los más jóvenes tienden buscar mayor crecimiento profesional. La hipótesis es que los más jóvenes tienen mayor posibilidad de rotar que los más adultos. |
| 4 | Cargo | Cualitativa | Se espera que los trabajadores con menor cargo roten más, ya que buscan mejores oportunidades laborales. La hipótesis es que los cargos de menor rango tienen mayor posibilidad de rotar que los cargos de rango medio. |
| 5 | Horas Extras | Cualitativa | Se espera que las horas extras se relacionen con la rotación ya que las personas con más horas extras causadas pueden estar realizando mayor esfuerzo laboral. La hipótesis es que las personas que causan horas extras tienen mayor probabilidad de rotar que las que no. |
| 6 | Satisfación Laboral | Cualitativa | Se espera que la satisfacción laboral esté relacionada con la rotación ya que las personas que se perciben menos satisfechas podrían considerar rotar a otro empleo más satisfactorio. |
##Paso 2: Realizar un análisis univariado
require(ggplot2)
require(ggpubr)
g1=ggplot(Datos,aes(x=Ingreso_Mensual))+geom_histogram()+theme_bw()
g2=ggplot(Datos,aes(x=Porcentaje_aumento_salarial))+geom_histogram()+theme_bw()
g3=ggplot(Datos,aes(x=Edad))+geom_histogram()+theme_bw()
g4=ggplot(Datos,aes(x=Satisfacion_Laboral))+geom_bar()+theme_bw()
g5=ggplot(Datos,aes(x=Cargo))+geom_bar()+theme_bw()+ theme(axis.text.x = element_text(angle = 90, hjust = 1))
g6=ggplot(Datos,aes(x=Horas_Extra))+geom_bar()+theme_bw()
ggarrange(g1, g2, g3, g4, g5, g6,labels = c("A", "B","C","D","E","F"),ncol = 2, nrow = 1)## $`1`
##
## $`2`
##
## $`3`
##
## attr(,"class")
## [1] "list" "ggarrange"interpretación A: según la grafica se evidencia mayor concentración en salirios menores a 5 millones, identificando que a mayor ingresos menor concentracion de funcionarios B: según la grafica se evidencia mayor concentración en incremento salarial del 15% y de menor representación del 25% , identicando que a mayor porcentaje incremento salarial menor es la concentracion de Funcionarios C:según la grafica se evidencia mayor concentración en las edades de25 hasta 40 años de los funcionarios D:según la grafica se evidencia mayor concentración en nivel de satisfacion 3 y 4 (satisfechos) E:según la grafica se evidencia mayor concentración en lso cargos: ejecutivo de ventas, investigador cientifico y tecnico laboratorio. F:según la grafica se evidencia mayor concentración en los funcionarios que no tranajan horas extras.
nota: se realiza el ajuste a A Y B porque no se mostraba bien grafica de los cargos.
##paso 3: análisis bivariado
require(CGPfunctions)
grafico1=PlotXTabs2(Datos,Cargo, Rotacion,plottype = "percent")+ theme(axis.text.x = element_text(angle = 90, hjust = 1))
grafico2=PlotXTabs2(Datos,Horas_Extra, Rotacion,plottype = "percent")
grafico3=PlotXTabs2(Datos,Satisfacion_Laboral, Rotacion,plottype = "percent")
grafico1
de acuerdo con la variable cargo y variable Rotación, se evidencia que se presenta mayor rotación en el cargo representantes de ventas y se demuestra que la hipotisis es verdara ” los cargos de menor rango tienen mayor posibilidad de rotar que los cargos de rango medio.
grafico2
de acuerdo a la variable Hora extra y la variable Rotación se evidencia que se demuestra que la hipotisis es verdara “las personas que causan horas extras tienen mayor probabilidad de rotar que las que no”
grafico3
de acuerdo con variable satisfacion labora y variable rotación se prueba que la hipotisis es verdadera “las personas que se perciben menos satisfechas podrían considerar rotar a otro empleo más satisfactorio”.
require(CGPfunctions)
grafico4=ggplot(Datos,aes(x=Rotacion,y= Ingreso_Mensual,fill=Rotacion))+geom_boxplot()+theme_bw()
grafico5=ggplot(Datos,aes(x=Rotacion,y= Porcentaje_aumento_salarial,fill=Rotacion))+geom_boxplot()+theme_bw()
grafico6=ggplot(Datos,aes(x=Rotacion,y= Edad,fill=Rotacion))+geom_boxplot()+theme_bw()
require(plotly)
ggplotly(grafico4)se evidencia que la variable ingresos y variable rotación se evidencia que demuestra la hipotisis menor salario, mayor rotación
ggplotly(grafico5)de acuerdo con la variable porcentaje de aumento salarial y la variable rotación se evidencia que no presenta mucha variabilidad de los que rotan y los que no , por lo tanto no se demuestra la hipostisis
ggplotly(grafico6)de acuerdo con la variable edad y rotación se evidencia que la hipotisis es demostrada “los más jóvenes tienen mayor posibilidad de rotar que los más adultos”.
##paso 4: Conclusión
Se recomienda que la empresa implemente incentivos para estudiar y acensos para que los Funcionarios Jovenes continuen en la empresa y genere estabilidad en la empresa.
Se recomienda que se generen incentivos salariales en el reconocimiento de siertas actividades que geren valor y se refleje en los ingresos mensuales.
Se recomienda realizar las validaciones relacionadas con las metas de los trabajadores del área de ventas.
Se recomienda implementar mecanismos que permitan a los empleados mejorar su calidad de vida,incentivos, eventos, espacios de entretenimiento, entre otros, para mejorar el nivel de satisfación laboral.
Se recomienda mejora la politica de pago de horas extras, para que no se incremente la rotación en los Funcionarios que cumplen con este criterio.