Tarea Optativa 2

Tarea Optativa 2 Evaluación de Productividad

#1. Cargue la base de datos Act3_S2_2020.csv y los paquetes que sean necesarios para trabajar un data.table.

library(data.table)
base<-("/Users/milemorozin/Desktop/Data Science")
setwd(base)
act<-fread("Copia de Act3_S2_2020.csv")

#2. Cuando los empleados de la compañía tienen problemas con las máquinas, se les pide que marquen “NA” en su hoja de producción si no pueden arreglarlos. Elimine todas las observaciones donde hay NA’s en la columna “Produccion”

act<- act[!is.na(Produccion)]

#3. Reemplace el objeto anterior para que solo contenga las siguientes variables de interés: Empleado, Dia, Maquina, Jornada, Produccion y Desechados.

act<-act[,.(Empleado, Dia, Maquina, Jornada, Produccion,Desechados)]

#4. Dado el especial comportamiento de la producción por parte de las máquinas “KLP5000” y “RBLR4200”, la dirección le pide que no tenga en consideración el rendimiento de los empleados en dichas máquinas para el cálculo del bono. Elimine todas las observaciones de la base de datos en las que se usen dichas máquinas.

act<-act[!(act$Maquina=="KLP5000"|act$Maquina=="RBLR4200")]

#5. A la hora de producir, algunas unidades resultan ser defectuosas y no pasan la revisión del control de calidad. Estas han sido contabilizadas en la columna “Desechados”. Use esta columna y la de “Producción” para calcular, en una nueva variable, el número de unidades que sí pasaron el control de calidad en cada uno de los turnos.

act[,Control:=(Produccion-Desechados)]

#6. Cree un nuevo objeto que contenga el total de unidades buenas producidas por máquina, el total de horas utilizadas en cada máquina y la producción por hora promedio para cada máquina (considere como producción solo aquellas unidades que salieron buenas).

act2<-act[,.(sum(Control),sum(Jornada)),by=Maquina]
act2<-act2[,Promedio:=(V1/V2)]
names(act2)[2]<- "Unidades Buenas"
names(act2)[3]<- "Horas Utilizadas"

#7. Ahora queremos analizar el rendimiento de cada trabajador en comparación al promedio en cada jornada. Para esto, usted debe:

• Hacer un merge entre el objeto de la pregunta 6 y la base de datos de que ha estado trabajando, usando como llave la variable “Maquina”.

act3<-merge(act2,act, by="Maquina")

• Generar una nueva columna que corresponda a la producción media del trabajador por hora en cada jornada (Para esto, considere solo las unidades “Buenas”).

act3[,Produccion_media:=(Control/Jornada)]

• Generar una variable “Rendimiento” que represente el porcentaje de rendimiento sobre o bajo el promedio en cada jornada. Para esto, tome la variable generada en (b) y divídala por el promedio calculado en la pregunta 6.

act3[,Rendimiento:=Produccion_media/Promedio]

8. Concretamente, la empresa busca que se pague un bono de acuerdo a la cantidad de turnos en los que cada trabajador ha rendido sobre el promedio. Genere una variable binaria, llamada “Identificador”, que tome un valor igual a 0 para las observaciones en las que se observa un rendimiento inferior o igual al promedio, y 1 cuando el rendimiento es superior al promedio.

act3[Rendimiento<=1,Identificador:=0]
act3[Rendimiento>1,Identificador:=1]

9. Suponga que la empresa ha decidido arbitrariamente que solo los trabajadores que hayan rendido por sobre el promedio en más de 45 turnos podrán acceder al bono. Encuentre los/as trabajadores/as que accederán al bono.

act3[sum(Jornada)>45 & Identificador==1,Bono:=("Si"),by=Empleado]
act3[is.na(Bono),Bono:=("No")]

10. ¿Cuántos empleados/as obtienen el bono? Utilice algún comando para calcular este número, no sirve contar la tabla.(6 puntos)

act3[Bono=="Si",.N]

## [1] 2070