Evidencia 1
Lynette Solis A01562389
2023-09-12
Entregable 1
Antecedentes de la empresa
Visión: “En 2033 seremos una de las cinco mejores compañías de México que generan valor dentro de la cadena de suministro de las industrias que más valoran la forma en la que se protegen y trasladan las cosas.” (Form, 2023).
Misión: “Transformar nuestro entorno y resolver retos industriales de nuestros clientes a través de la colaboración, provocando nuevas oportunidades que potencian nuestro modelo de negocio, para alcanzar nuestros ideales.” (Form, 2023).
Contexto de la industria:
La industria de empaque y embalaje representa una parte esencial del sector automotriz y de autopartes, ya que esta industria es pieza clave para garantizar la protección y entrega eficiente de los componentes automotrices en sus diferentes fases dentro de la cadena de suministro del sector automotriz.
En el 2022, la producción de automóviles en el mundo mantiene a Estados Unidos como el segundo mayor productor de automóviles abarcando el 13.4% de la industria y México como 7mo mayor productor con el 4.6%. (VDA,2023)
Tomando ésto en cuenta sabemos que el rol de México en la industria automotriz es de suma relevancia para el mundo y por consiguiente para nuestro país, representando el 2.77% del Producto Interno Bruto (PIB) de México en el 2022. (INEGI,2023)
La pandemia tuvo un impacto fuerte en la inversión extranjera directa de la industria automotriz con una reducción de 2.17 mil millones de dólares del 2020 al 2021 y naturalmente se vio afectada la producción de vehículos con una disminución de producción de 3.8 millones de unidades a 2.9 millones de unidades al año 2020. Sin embargo, se estima que la recuperación de la producción de la industria automotriz será hasta el 2026 con 3.8 millones de unidades a producir, igualando la producción del 2019. (IHS Market, 2020)
Socio Formador Form
Introducción de la Empresa
FORM es una empresa con sede principal en Nuevo León, ésta se dedica al empaque y embalaje de autopartes específicamente de partes interiores y eléctricas de los vehículos, las cuales es de suma importancia que no reciban ningún tipo de daño estético en su proceso de transportación para su ensamblaje.
FORM se centra en abastecer las necesidades de los proveedores Tier 1 (planta automotriz) y Tier 2 (proveen partes a las plantas) de la industria automotriz, por lo que estos son sus principales clientes.
Productos o Servicios - Propuesta de Valor
La empresa no ofrece un portafolio de productos fijos o estandarizados para la industria automotriz. FORM busca generar soluciones a las necesidades y problemas de sus clientes dentro de la cadena de suministro, por medio de la innovación ingenieril en el empaque de las autopartes.
Además, FORM ofrece un servicio de acompañamiento el cual funciona como un soporte de comunicación en el que empleados de FORM, pueden asistir directamente en la planta de los clientes para la entrega de los empaques y ensamblaje hasta tener comunicación continua con la empresa en caso de cualquier situación.
Las cosas antes mencionadas forman parte de la propuesta de valor de la empresa, apalancando de la innovación y el servicio al cliente se busca asegurar la calidad la cual los clientes de FORM están buscando debido a la importancia y delicadeza que toman las autopartes interiores y eléctricas dentro de la industria automotriz.
Aunque los productos que ofrece FORM dentro de la industria automotriz fungen parecido a un commodity, el empaque se llega a producir en grandes cantidades, estos no entran como tal en la definición de commodity ya que en el caso de FORM entra una parte clave la cual es la personalización.
Perspectivas Futuras
Actualmente FORM busca equipar con tecnología para automatizar y desarrollar todo un ambiente de datos el cual les pueda ayudar a agilizar procesos y dar certeza a la toma de decisiones en base a datos. Con esto buscan poder realizar pronósticos para anticipar la demanda de sus clientes y diversificar dentro de EUA, esto por mencionar alguno de los ejemplos. En cuanto a temas de cultura organizacional se busca medir sistemáticamente diferentes KPI´s.
Además de esto, se busca crear un sentido de pertenencia y lealtad de los empleados hacia la empresa. Buscando continuar con la cultura organizacional actual, la cual está enfocada en la horizontalidad, la construcción de equipos y divisiones autónomas a niveles inferiores dentro de la empresa. Esto, con el fin de permitir una comunicación más efectiva y fluida entre departamentos.
Expansión
Actualmente FORM busca un crecimiento, desea continuar con la industria de autopartes, por lo que su principal enfoque se encuentra en crecer a lo largo de la línea de la industria automotriz que se encuentra ubicada en el territorio mexicano y estadounidense. Específicamente, busca crecer en el bajío mexicano y en San Antonio Texas en el extranjero. Por otra parte, busca explorar otras industrias las cuales se alineen a su misión, como lo puede ser la aeroespacial y de equipos médicos.
Además busca expandir sus inversiones en el extranjero tomando como opción principal a Estados Unidos. Buscando crecer a cualquier parte de Texas debido a el costo de oportunidad que se tiene, si se busca crecer más allá de Texas aumenta los costos de fletes y el negocio no sale con buen margen. FORM no busca ser la empresa mas grande, se concentra en negocios de PYME con grandes margenes de ganancia
Cultura organizacional y Recursos Humanos
Hoy en día cuentan con 130 colaboradores dentro de la empresa, sin embargo existe un tema de rotación de personal por diversas razones, uno de sus enfoques es crear una cultura organizacional la cual retenga al capital humano.
Actualmente ofrecen diversas compensaciones y beneficios para incitar la activa participación de sus colaboradores. Se cuentan con bases de datos enfocadas al tema de capital humano con las cuales se buscan identificar las razones de la rotación, sin embargo aún no han logrado ver un decremento en los porcentajes anuales de rotación.
FORM cuenta con 6 pilares principales, dentro de la empresa se vive una actitud de honestidad y transparencia dentro de todos los procesos, se busca cuidar detalladamente los espacios de trabajo con planes para implementar nuevos baños en el piso.
Análisis de las áreas de la empresa
Cargar librerias
library(tidyverse)## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.2 ✔ readr 2.1.4
## ✔ forcats 1.0.0 ✔ stringr 1.5.0
## ✔ ggplot2 3.4.2 ✔ tibble 3.2.1
## ✔ lubridate 1.9.2 ✔ tidyr 1.3.0
## ✔ purrr 1.0.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errorslibrary(ggplot2)
library(stringr)
library(readr)
library(dplyr)
library(tidyr)
library(grid)
library(psych)##
## Attaching package: 'psych'
##
## The following objects are masked from 'package:ggplot2':
##
## %+%, alphalibrary(gplots)##
## Attaching package: 'gplots'
##
## The following object is masked from 'package:stats':
##
## lowesslibrary(knitr)Cargar bases de datos
#file.choose()
Ventas_1 <- read.csv("C:/Users/lynet/OneDrive/Documents/Analítica 2023/Ventas_1.csv")
#file.choose()
Bajas <-read.csv("C:/Users/lynet/OneDrive/Documents/Analítica 2023/Bajas.csv")
#file.choose()
FDI_df <- read.csv("C:/Users/lynet/OneDrive/Documents/Analítica 2023/FDI_Mexico.csv")Bajas por Puesto y Genero (2021) - Gráfico 1
Los ayudantes generales son los que cuentan mayor baja por un margén altamente considerable, como se puede observar en la grafíca 1. Además de esto se puede observar que de igual forma la mayoría de personas de está posición a las que se les da de baja son mujeres.
Por lo que se podría plantear una primer hipótesis la cual es que esto se puede deber a que la gran parte de personas que se contratan son para el puesto de ayudante general y de sexo femenino, sin embargo todavía no se ha realizado el análisis para comprobar la hipótesis antes mencionada.
options(scipen = 999)
Bajas$PUESTO <- as.factor(Bajas$PUESTO)
ggplot(Bajas, aes(PUESTO)) +
geom_bar(aes(fill=GENERO)) +
theme(axis.text.x = element_text(angle = 90)) +
labs(x = "Puesto", y = "Cantidad", title = "Bajas por puesto ") +
theme(panel.background = element_rect(fill = "gray98"))
Ventas por Línea de Negocio (2021)
Dentro de las ventas por linea de negocio, es decir retornable y cartón. Se puede observar como la linea de negocios que liderá es la del cartón, sin embargo se observa como las ventas de retornables y cartón en los primeros 2 quartiles del año son altamente superiores al resto del año.
as.Date(Ventas_1$Mes)## [1] "0028-01-21" "0028-01-21" "0028-02-21" "0028-02-21" "0028-03-21"
## [6] "0028-03-21" "0028-04-21" "0028-04-21" "0028-05-21" "0028-05-21"
## [11] "0028-06-21" "0028-06-21" "0028-07-21" "0028-07-21" "0028-08-21"
## [16] "0028-08-21" "0028-09-21" "0028-09-21" "0028-10-21" "0028-10-21"
## [21] "0028-11-21" "0028-11-21" "0028-12-21" "0028-12-21"col_per <- c("coral", "orange")
ggplot(Ventas_1, aes(x = Mes, y = Venta, fill = Producto)) +
geom_bar(stat = "identity") +
labs(x = "Mes", y = "Venta", title = "Ventas Mensuales por Producto") +
scale_fill_manual(values = col_per) +
theme(panel.background = element_rect(fill = "gray98") )+
theme(axis.text.x = element_text(angle = 90, hjust = 1))
Inversión Extranjera Directa a través de los Años
La Inversión Extranjera Directa en el mismo año (2021), tuvo fuertes afectaciones debido al COVID-19, por lo que podría ser una de las razones por las cuales en la Grafíca 2 las ventas de los ultímos 2 cuartiles del año hayan caído de manera considerable a comparación del inicio del año.
df_FDI = FDI_df
#Separar Columnas
df_FDI <- separate(df_FDI, Quartil, into = c("Quartil", "Año"), sep = " ")
#FDI sumado por Año
año_sum <- df_FDI %>% group_by(Año) %>% summarize(suma=sum(Mil.Millones.de.Dolares))
año_sum$Año <- as.numeric(año_sum$Año)
grafico_año = ggplot(año_sum, aes(x = Año, y = suma)) +
geom_line( color = "#F46C22") +
geom_point(color = "#F46C22") +
geom_text(aes(label = suma), hjust = -0.2, vjust = 0.5, color = "#505050", size = 4) +
labs(title = "Inversión Extranjera Directa por Año",subtitle = "Mil Millones de Dólares", x = "Año", y = "Inversión", caption = "Fuente: INEGI") +
theme_minimal() +
theme(plot.title = element_text(hjust = 0.5, face = "bold", color = "#505050"), panel.grid.major = element_blank(), plot.subtitle = element_text(hjust = .5, size = 7))
grafico_año + scale_x_continuous(breaks = año_sum$Año)
FODA Cruzado
El objetivo del análisis FODA para FORM es evaluar de manera integral sus Fortalezas, Oportunidades, Debilidades y Amenazas con el fin de obtener una comprensión estratégica de su posición en el mercado y proporcionar una base sólida para la toma de decisiones que potencien su competitividad y crecimiento en la industria de empaques y embalajes.
PESTLE
El objetivo del análisis PESTLE para FORM es examinar los factores que impactan su operación y entorno empresarial. Esto permitirá a la empresa comprender mejor el contexto en el que opera, anticipar posibles cambios y ajustar su estrategia para maximizar oportunidades y mitigar riesgos.
https://www.economia.gob.mx/datamexico/es/profile/industry/converted-paper-product-manufacturing
https://www.statista.com/statistics/898955/mexico-motor-vehicle-production-brand/
https://www.vda.de/en/news/facts-and-figures/annual-figures/automobile-production)
https://www.economia.gob.mx/datamexico/es/profile/product/boxes-corrugated-paperboard
Entregable 2
¿Cuál es el Estado Civil con Mayores Bajas?
Con está pregunta se busca conocer un poco más acerca de los ex-empleados de FORM y buscar algunas
Abrir base de datos
# file.choose()
BDD_FORM_BAJAS_2023 <- read_csv("C:/Users/lynet/OneDrive/Documents/Analítica 2023/BDD_FORM_BAJAS_2023.csv")## Rows: 279 Columns: 28
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (24): Apellidos, Nombre, Fecha de Nacimiento, Género, RFC, Fecha de Alta...
## dbl (4): No., SD, CP, Número de Télefono
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.### Seleccionar las variables de Motivo de baja y Estado Civil en un nuevo data frame.
mbaja <- select(BDD_FORM_BAJAS_2023,`Motivo de Baja`,`Estado Civil`) %>% na.omit(mbaja)Agrupar la categoría con diferentes nombres cambiando a el mismo nombre
mbaja$"Motivo de Baja"[mbaja$"Motivo de Baja" == "Inducida."] <- "Inducida"
mbaja$"Motivo de Baja"[mbaja$"Motivo de Baja" == "Inducida (Faltas)"] <- "Inducida por faltas"
mbaja$"Motivo de Baja"[mbaja$"Motivo de Baja" == "Inducida (Faltas no dio los tiempos)"] <- "Inducida"Calcular los porcentajes por categoría y estado civil
porcentajes <- mbaja %>%
group_by(`Estado Civil`, `Motivo de Baja`) %>%
summarise(Frecuencia = n()) %>%
group_by(`Estado Civil`) %>%
mutate(Pct = scales::percent(Frecuencia / sum(Frecuencia)))## `summarise()` has grouped output by 'Estado Civil'. You can override using the
## `.groups` argument.Relación entre Motivo de Baja y Estado Civil
plot <- ggplot(porcentajes, aes(x = `Estado Civil`, y = Frecuencia, fill = `Motivo de Baja`)) +
geom_bar(stat = "identity") +
theme_minimal() +
theme(
panel.grid.major = element_line(color = "grey", linewidth = 0.4, linetype = "dotted"), # Líneas verticales
panel.grid.minor = element_line(color = "grey", linewidth = 0.4, linetype = "dotted") # Líneas horizontales
)+
ggtitle("Relación entre Motivo de Baja y Estado Civil")Agregar etiquetas de porcentaje
plot + geom_text(aes(label = Pct), position = position_stack(vjust = 0.5),size=2)
Resultados - Estados Civiles con Mayores Bajas
Por lo que podemos ver en la gráfica, la gran mayoría de las bajas en todas las categorías son por separación voluntaria y realmente no se logra ver una correlación entre el estado civil de la persona y el motivo de baja, lo que podría indicar una alta rotación de empleados en los trabajos de maquila en general o podría ser un indicador de que hay varias áreas de oportunidad en cuestión de amenidades, salarios, bonos, oportunidades de crecimiento en la empresa, traslado o prestaciones que la empresa ofrece además de las básicas dictadas por la ley.
¿Cuál es la relación entre la edad y las bajas?
Pregunta 2
Carga de datos
#file.choose()
bajas<-read.csv("C:/Users/lynet/OneDrive/Documents/Analítica 2023/form_bajas_22.csv")Modificación de base de datos
#Estoy creando un data frame nuevo con las columnas necesarias para hacer la gráfica
bajas1 <- select(bajas,"NOMBRE","APELLIDOS","FECHA.DE.NACIMIENTO","DIAS.LABORADOS","SALARIO.DIARIO.IMSS") %>% na.omit(bajas1)
#view(bajas1)Estadísiticos Descriptivos
Dias Laborados
summary(bajas1$`DIAS LABORADOS`)## Length Class Mode
## 0 NULL NULLSalario
summary(bajas1$`SALARIO DIARIO IMSS`)## Length Class Mode
## 0 NULL NULLEdad de colaboradores
#Aquí reviso que formato tienen las columnas
str(bajas1)## 'data.frame': 212 obs. of 5 variables:
## $ NOMBRE : chr "MARIA FERNANDA" "EMANUEL" "TRINIDAD" "WILMAR" ...
## $ APELLIDOS : chr "JIMENEZ ALANIS" "JAUREGUI SANCHEZ" "GARCIA CAZARES" "LOPEZ ROMERO" ...
## $ FECHA.DE.NACIMIENTO: chr "7/10/1998" "10/3/1998" "5/25/1997" "9/4/2001" ...
## $ DIAS.LABORADOS : int 423 35 102 63 34 23 30 6 0 141 ...
## $ SALARIO.DIARIO.IMSS: num 177 181 181 177 181 ...
## - attr(*, "na.action")= 'omit' Named int [1:26] 8 27 28 58 67 110 135 136 137 141 ...
## ..- attr(*, "names")= chr [1:26] "8" "27" "28" "58" ...#Aquí estoy haciendo una extracción del año de nacimiento excluyendo los días y meses.
#Decidí hacer esto porque hay filas en las que está escrito M/D/A y otras D/M/A
bajas1$ANIO<-str_sub(bajas1$`FECHA.DE.NACIMIENTO`,-4,-1)
#Convirtiendo la columna de "ANIO" en integer
bajas1$ANIO <- as.integer(bajas1$ANIO)
str(bajas1)## 'data.frame': 212 obs. of 6 variables:
## $ NOMBRE : chr "MARIA FERNANDA" "EMANUEL" "TRINIDAD" "WILMAR" ...
## $ APELLIDOS : chr "JIMENEZ ALANIS" "JAUREGUI SANCHEZ" "GARCIA CAZARES" "LOPEZ ROMERO" ...
## $ FECHA.DE.NACIMIENTO: chr "7/10/1998" "10/3/1998" "5/25/1997" "9/4/2001" ...
## $ DIAS.LABORADOS : int 423 35 102 63 34 23 30 6 0 141 ...
## $ SALARIO.DIARIO.IMSS: num 177 181 181 177 181 ...
## $ ANIO : int 1998 1998 1997 2001 2002 2000 2000 1999 2002 1994 ...
## - attr(*, "na.action")= 'omit' Named int [1:26] 8 27 28 58 67 110 135 136 137 141 ...
## ..- attr(*, "names")= chr [1:26] "8" "27" "28" "58" ...#Aquí creó una nueva columna llamada "EDAD" restando el año actual con el de "ANIO
bajas1$EDAD <- 2023-bajas1$ANIO
#Había un error en el cual existían tres filas que tenían edad de 1 por lo cual le pedí que solo mostrara los que son mayor a 18.
bajas1 <- bajas1[bajas1$EDAD >18,]Bajas por Edad
hist(bajas1$EDAD,col = blues9,xlab = "Edad",ylab ="Frecuencia" ,main = "Bajas por Edad")
Relación entre la Edad y las Bajas
Nos damos cuenta de que la rotación de personal se ve más alta en los colaboradores más jóvenes. Esto es información útil ya que nos permite tomar decisiones adecuadas para mejorar la satisfacción laboral en específico para estos rangos de edades. Con esta gráfica podemos entrar más a detalle en el área de oportunidad y así entender las razones de la alta rotación. Nos damos cuenta de que se tiene que hacer un esfuerzo por mejorar la relación con las nuevas generaciones o contratar a personas mayores.
¿De qué edad frecuentan ingresar los empleados a FORM?
Pregunta 3
Carga de datos
rh <- read.csv("C:/Users/lynet/OneDrive/Documents/Analítica 2023/form_rh_datos.csv")
#View(rh)
edad <- select(rh,"FECHA.DE.ALTA", "FECHA.DE.NACIMIENTO")
#str(rh)Modificacion de Datos
rh$año_alta <- str_sub(rh$FECHA.DE.ALTA, -4, -1)
rh$año_nac <- str_sub(rh$FECHA.DE.NACIMIENTO, -4, -1)
rh$año_alta <- as.integer(rh$año_alta)
rh$año_nac <- as.integer(rh$año_nac)
rh <- rh[rh$año_alta > 2013,]
rh <- rh[-30,]Calcular la edad de ingreso y Medidas de Dispersion
rh$edad_ingreso <- rh$año_alta - rh$año_nac
rh <- rh[rh$edad_ingreso > 18,]
edad_de_ingreso_max <- max(rh$edad_ingreso)
print(edad_de_ingreso_max)## [1] 60edad_de_ingreso_min <- min(rh$edad_ingreso)
print(edad_de_ingreso_min)## [1] 19edad_de_ingreso_mean <- mean(rh$edad_ingreso)
print(edad_de_ingreso_mean)## [1] 34.92308Altas por Edad
hist(rh$edad_ingreso,col = "#009E73" ,xlab = "Edad",main = "Alta por Edad")
Cantidad de Hombres o Mujeres dados de Alta
ggplot(rh, aes(edad_ingreso, fill = GENERO)) +
geom_histogram(bins=10) +
labs(y="") 
Resultados - Relación Edad y genero en las Bajas de Empleados
Podemos analizar en las gráficas que la edad más común para ingresar a trabajar a FORM es entre los 25 - 30 lo que nos puede ayudar a crear campañas de reclutamiento enfocadas en el mercado de edad al que los empleados de FORM están enfocados, FORM cuenta con un gran rango de edades comenzando desde los 19 y llegando hasta los 60. Este último siendo el grupo más pequeño dentro de la empresa mientras que los jóvenes de 18 - 20 tienden a ser un porcentaje más alto de hombres. Nos damos cuenta con la gráfica que FORM le abre las puertas a muchas personas y ofrece oportunidades de trabajo para nuevas generaciones y personas con experiencia.
¿Existen tendencias de bajas?
Pregunta 3
Importar datasets
bajas = read.csv("C:/Users/lynet/OneDrive/Documents/Analítica 2023/form_bajas_22.csv")
dfbajas = bajas
#Limpieza Dataset
bajas$ESTADO.CIVIL = gsub("MATRIOMONIO", "MATRIMONIO", bajas$ESTADO.CIVIL)Frecuencia de Días Laborados
hist(bajas$DIAS.LABORADOS, col = blues9, xlab = "DIAS LABORADOS", ylab = "Frecuencia", main = "Días Laborados", xlim = c(0, 1000))
Separación de Fechas - Bajas
df_rotacion = bajas %>% select(GENERO, FECHA.DE.ALTA,BAJA, MOTIVO.DE.BAJA, DIAS.LABORADOS, PUESTO)
df_rotacion = df_rotacion %>% separate(BAJA, into = c("MONTH_BAJA", "DAY_BAJA", "YEAR_BAJA"), sep = "/")## Warning: Expected 3 pieces. Missing pieces filled with `NA` in 15 rows [27, 28, 58, 135,
## 137, 141, 151, 178, 179, 198, 203, 205, 207, 212, 238].Separación de Fechas - Altas
df_rotacion = df_rotacion %>% separate(FECHA.DE.ALTA, into = c("MONTH_ALTA", "DAY_ALTA", "YEAR_ALTA"), sep = "/")## Warning: Expected 3 pieces. Missing pieces filled with `NA` in 1 rows [238].Asignación Meses
df_months <- df_rotacion %>%
mutate(NAME_MONTH = case_when(
MONTH_BAJA == 1 ~ "Enero",
MONTH_BAJA == 2 ~ "Febrero",
MONTH_BAJA == 3 ~ "Marzo",
MONTH_BAJA == 4 ~ "Abril",
MONTH_BAJA == 5 ~ "Mayo",
MONTH_BAJA == 6 ~ "Junio",
MONTH_BAJA == 7 ~ "Julio",
MONTH_BAJA == 8 ~ "Agosto",
MONTH_BAJA == 9 ~ "Septiembre",
MONTH_BAJA == 10 ~ "Octubre",
MONTH_BAJA == 11 ~ "Noviembre",
MONTH_BAJA == 12 ~ "Diciembre"
)) %>%
filter(NAME_MONTH %in% c("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")) %>%
select(GENERO, MONTH_BAJA, DAY_ALTA, YEAR_ALTA, MOTIVO.DE.BAJA, NAME_MONTH, PUESTO)Cantidad de Bajas por Mes
barplot_subcategory <- ggplot(df_months, aes(x = NAME_MONTH)) +
geom_bar(fill = "#F46C22", width = 0.5) +
ggtitle("Bajas por Mes")
barplot_subcategory +
labs(title = "Bajas por Mes") +
theme(panel.grid = element_blank(),panel.background = element_blank(), plot.title = element_text(hjust = 0.5, face = "bold")) + xlab("Meses") +
ylab("Cantidad de Bajas")
Cantidad de Bajas por Puesto
frequency_puesto = table(df_months$PUESTO)
df_frequency_puesto = as.data.frame(frequency_puesto)
colnames(df_frequency_puesto) <- c("Puesto", "Cantidad")
df_frequency_puesto <- df_frequency_puesto %>%
arrange(desc(Cantidad))
kable(df_frequency_puesto, format = "html", escape = FALSE,
table.attr = 'style="font-family: Arial, sans-serif;"')| Puesto | Cantidad |
|---|---|
| AYUDANTE GENERAL | 170 |
| SOLDADOR | 12 |
| COSTURA | 10 |
| AYUDANTE DE EMBARQUES | 7 |
| MONTACARGUISTA | 5 |
| INSPECTOR CALIDAD | 3 |
| RESIDENTE | 3 |
| MATERIALISTA | 2 |
| ANALISTA DE NOMINAS | 1 |
| CHOFER | 1 |
| CORTADOR | 1 |
| DISEÑO | 1 |
| FACTURACION | 1 |
| GUARDIA SEGURIDAD | 1 |
| JEFE DE SEGURIDAD E HIGIENE | 1 |
| LIMPIEZA | 1 |
| MANTENIMIENTO | 1 |
| MARCADORA | 1 |
| SERVICIO AL CLIENTE | 1 |
Resultados - Tendencias de Baja de Empleados
Analizando directamente la cantidad de bajas por mes podemos ver que existe una alta inclinación de bajas de empleados en su en el mes de Enero y en su contraparte Noviembre es el mes con menor número de bajas, al excluir el mes de Diciembre que no cuenta con ninguna baja registrada. Por lo que se plantea la hipótesis la cual FORM mencionó durante las sesiones de información general de la empresa, “Los empleados se quedan para recibir su aguinaldo/bono y después se van”, por lo que se puede mencionar una asociación de los datos pero todavía no una causalidad de los mismos.
Evidencia 1
Resumen de conferencia
Los conferenciantes que asistieron al aula compartieron sus experiencias sobre cómo la concentración en sus estudios fue de gran utilidad al iniciar la búsqueda de empleo. Lograron aplicar lo aprendido en la vida real, lo que añadió valor a sus currículums como recién egresados. Un ejemplo que presentaron fue el caso de la empresa “Envía Flores”, donde continuaron su desarrollo profesional mediante la realización de una maestría en el campo de la analítica de datos, lo que les permitió aportar más conocimiento a la empresa que los contrató.
Esta información se traduce en la importancia de tener un enfoque profesional claro, en el que desees seguir creciendo y desarrollándote como profesional, el cual permitirá mantenerte actualizado y evolucionar junto con tu área de interés en constante desarrollo y en constante cambio.
Análisis de gráficas
1:¿Cuál es el Estado Civil con Mayores Bajas?
Se observa que la mayoría significativa de las salidas de empleados en todas las categorías se deben a renuncias voluntarias. No se aprecia una correlación discernible entre el estado civil de los individuos y la razón de su partida. Este fenómeno podría sugerir una alta rotación de personal en el sector manufacturero en general, o bien, podría indicar la presencia de diversas áreas de mejora en términos de comodidades laborales, salarios, incentivos, oportunidades de desarrollo profesional, reubicación o beneficios adicionales proporcionados por la empresa, más allá de los requisitos legales establecidos.
2: ¿Cuál es la relación entre la edad y las bajas?
Observamos que la tasa de rotación de personal es más elevada entre los colaboradores más jóvenes. Esta información es de gran utilidad, ya que nos brinda la oportunidad de tomar decisiones pertinentes para mejorar la satisfacción laboral, especialmente en estos grupos de edad. A través de este gráfico, podemos profundizar en el análisis de las áreas que requieren mejoras y comprender las razones detrás de esta alta rotación. Es evidente que debemos esforzarnos en fortalecer las relaciones con las nuevas generaciones o considerar la contratación de empleados de mayor experiencia.
3: ¿De qué edad frecuentan ingresar los empleados a FORM?
La edad más frecuente para ingresar a trabajar en la empresa FORM se sitúa en el rango de 25 a 30 años. Esta información nos brinda la base para desarrollar campañas de reclutamiento dirigidas específicamente al segmento de edad al que se orientan los empleados de FORM. Cabe mencionar que la fuerza laboral de FORM abarca un amplio espectro de edades, desde los 19 hasta los 60 años. Sin embargo, el grupo de empleados mayores de 60 años constituye la minoría en la empresa, mientras que los jóvenes de 18 a 20 años representan un porcentaje significativamente mayor en el segmento masculino. Estos datos reflejan que FORM brinda oportunidades de empleo tanto a las nuevas generaciones como a personas con experiencia, lo que subraya su apertura a una diversidad de perfiles laborales.
4: ¿Existen tendencias de bajas?
Al analizar la cantidad de bajas por mes, se observa una marcada tendencia de disminución de empleados en enero, mientras que noviembre muestra el menor número de bajas, excluyendo diciembre, que no registra ninguna baja. En este contexto, surge la hipótesis mencionada por FORM durante las sesiones de información general de la empresa, que sugiere que los empleados permanecen en sus puestos para recibir su aguinaldo o bono antes de partir. Sin embargo, es importante destacar que esto implica una asociación de datos, pero aún no establece una causalidad definitiva.
Gráfica extra: ¿Qué relación existe entre las bajas de los colaboradores con su lugar de residencia?
Librerías
library(ggplot2)
library(tidyverse)
library(readxl)
library(dplyr)Base de datos
Bajasform <- read_xlsx("C:\\Users\\lynet\\OneDrive\\Documents\\Analítica 2023\\Bajasform.xlsx")bajascolab<-select(Bajasform,"Género", "Colonia", "Municipio")%>% na.omit(Bajasform)
#View(bajascolab)str(bajascolab)## tibble [279 × 3] (S3: tbl_df/tbl/data.frame)
## $ Género : chr [1:279] "Femenino" "Femenino" "Masculino" "Femenino" ...
## $ Colonia : chr [1:279] "Vivienda Digna" "Pueblo Nuevo" "Loma Linda" "Policia Auxiliar" ...
## $ Municipio: chr [1:279] "Apodaca" "Apodaca" "Monterrey" "Guadalupe" ...Gráfica barras
#plot(bajascolab$Colonia, col=pink,xlab="Municipio", ylab="Género",main="Bajas por localidad")
count(bajascolab, Género, sort = TRUE)## # A tibble: 2 × 2
## Género n
## <chr> <int>
## 1 Femenino 149
## 2 Masculino 130ggplot(bajascolab, aes(x=Municipio)) +
geom_bar(aes(fill= Género, colour=Género)) +
geom_text(stat="count", aes(label=..count..), vjust=-1)+
theme(axis.text.x = element_text(angle = 45, hjust = 1))## Warning: The dot-dot notation (`..count..`) was deprecated in ggplot2 3.4.0.
## ℹ Please use `after_stat(count)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
Relación entre las bajas y su lugar de residencia.
Se analiza la relación entre las bajas y los municipios de residencia de los colaboradores. Esto podría ayudar a identificar si hay algún municipio en particular que tiene tasas de bajas más altas o más bajas en comparación con otros. En este caso, se observa que el 69.5% de las bajas son del municipio de Apodaca, lo cual representa una cantidad considerable al tomar en cuenta que al igual que representar su mayor cantidad de bajas, en el municipio con mayor cantidad de contrataciones. Por lo que FORM al implementar diversas estrategias, como lo es la consideración de que sus empleados no se encuentren a más de una toma de camión de distancia, no es lo suficiente para la retención del capital humano de este municipio.
