Histograms

Tablas de frecuencias

Edad

clases <- seq(min(HR_Case_Study$Age), max(HR_Case_Study$Age)+1, 2)

TablaFreq <- data.frame(table(cut(HR_Case_Study$Age, breaks=clases, right=FALSE))/length(HR_Case_Study$Age))

sum(TablaFreq$Freq)

TablaFreq$Frecuencia_Absoluta <- table(cut(HR_Case_Study$Age, breaks = clases, right = FALSE))
names(TablaFreq)[names(TablaFreq) == "Var1"]<-"Clases"
names(TablaFreq)[names(TablaFreq) == "Freq"]<-"Frecuencia_Relativa"

TablaFreq$Frecuencia_Absoluta_Acumulada <- cumsum(TablaFreq$Frecuencia_Absoluta)

TablaFreq$Frecuencia_Relativa_Acumulada <- cumsum(TablaFreq$Frecuencia_Absoluta) / sum(TablaFreq$Frecuencia_Absoluta)

print(TablaFreq)

Salario

#Codigo para la creación de las clases:
clases_sal <- seq(min(HR_Case_Study$`Annual Salary`)-1, max(HR_Case_Study$`Annual Salary`)+883518, 883518)

clases_estandar <- format(clases_sal, scientific = FALSE)

#Codigo para la creación de la tabla:
TablaFreqSalary <- data.frame(table(cut(HR_Case_Study$`Annual Salary`, breaks=clases_estandar, right=FALSE)))

names(TablaFreqSalary)[names(TablaFreqSalary) == "Var1"]<-"Clases"

names(TablaFreqSalary)[names(TablaFreqSalary) == "Freq"]<-"Frecuencia_Absoluta"

TablaFreqSalary$Frecuencia_Relativa <- table(cut(HR_Case_Study$`Annual Salary`, breaks = clases_estandar, right = FALSE))/length(HR_Case_Study$`Annual Salary`)

TablaFreqSalary$Frecuencia_Absoluta_Acumulada <- cumsum(TablaFreqSalary$Frecuencia_Absoluta)

TablaFreqSalary$Frecuencia_Relativa_Acumulada <- cumsum(TablaFreqSalary$Frecuencia_Absoluta) / sum(TablaFreqSalary$Frecuencia_Absoluta)

TablaFreqSalary$Clases <- as.character(TablaFreqSalary$Clases)

intervalos_notacion_estandar <- sapply(strsplit(TablaFreqSalary$Clases, ","), function(x) {
  lower <- as.numeric(gsub("\\[|\\)", "", x[1]))
  upper <- as.numeric(gsub("\\[|\\)", "", x[2]))
  paste("[", format(as.numeric(lower), scientific = FALSE), ", ", format(as.numeric(upper), scientific = FALSE), ")", sep = "")
})

# Mostrar los intervalos en notación estándar junto con las frecuencias
for (i in 1:length(intervalos_notacion_estandar)) {
  cat(intervalos_notacion_estandar[i], " : ", TablaFreqSalary$Frecuencia_Absoluta[i], "\n")
}

[281000, 1160000)  :  841 
[1160000, 2050000)  :  33 
[2050000, 2930000)  :  0 
[2930000, 3820000)  :  0 
[3820000, 4700000)  :  0 
[4700000, 5580000)  :  0 
[5580000, 6470000)  :  0 
[6470000, 7350000)  :  0 
[7350000, 8230000)  :  0 
[8230000, 9120000)  :  0 
[9120000, 10000000)  :  0 
[10000000, 10900000)  :  1 

TablaSalary <- cbind(intervalos_notacion_estandar, TablaFreqSalary$Frecuencia_Absoluta, TablaFreqSalary$Frecuencia_Relativa, TablaFreqSalary$Frecuencia_Absoluta_Acumulada, TablaFreqSalary$Frecuencia_Relativa_Acumulada)

# Agregar nombres a las columnas
colnames(TablaSalary) <- c("Clases", "Frecuencia_Absoluta", "Frecuencia_Relativa", "Frecuencia_Absoluta_Acumulada", "Frecuencia_Relativa_Acumulada")

TablaSalary2 <- as.data.frame(TablaSalary)

TablaSalary2$Frecuencia_Relativa <- as.numeric(TablaSalary2$Frecuencia_Relativa)

TablaSalary2$Clases <- factor(TablaSalary2$Clases, levels = unique(TablaSalary2$Clases))

write.csv(TablaSalary2, "SalaryDF.csv", row.names = FALSE)

print(TablaSalary2)

Antiguedad en la empresa

#Codigo para la creación de las clases:
clases_ten <- seq(min(HR_Case_Study$`Tenure in Company`)-1, max(HR_Case_Study$`Tenure in Company`)+1, 2)

#Codigo para la creación de la tabla:
TablaTenure <- data.frame(table(cut(HR_Case_Study$`Tenure in Company`, breaks=clases_ten, right=FALSE)))

names(TablaTenure)[names(TablaTenure) == "Var1"]<-"Clases"

names(TablaTenure)[names(TablaTenure) == "Freq"]<-"Frecuencia_Absoluta"

TablaTenure$Frecuencia_Relativa <- table(cut(HR_Case_Study$`Tenure in Company`, breaks=clases_ten, right = FALSE))/length(HR_Case_Study$`Tenure in Company`)

TablaTenure$Frecuencia_Absoluta_Acumulada <- cumsum(TablaTenure$Frecuencia_Absoluta)

TablaTenure$Frecuencia_Relativa_Acumulada <- cumsum(TablaTenure$Frecuencia_Absoluta) / sum(TablaTenure$Frecuencia_Absoluta)

#Guardar el csv
write.csv(TablaTenure, "Tenure.csv", row.names = FALSE)

print(TablaTenure)

Graficos

Edad

library(ggplot2)
ggplot(data.frame(TablaFreq), aes(x=Clases, y=Frecuencia_Relativa))  +
geom_bar(stat="identity", color="blue", fill="cyan", width=1) +
theme_bw() + labs(x="Edad", y="Frecuencia Relativa") +
geom_text(aes(label=sprintf("%.3f", Frecuencia_Relativa)), vjust=-.5, col="black")

Salario anual

#Codigo para la creación del histograma:
library(ggplot2)
ggplot(data.frame(TablaSalary2), aes(x=Clases, y=Frecuencia_Relativa))  +
geom_bar(stat="identity", color="blue", fill="cyan", width=1) +
theme_bw() + labs(x="Salario Anual", y="Frecuencia Relativa") +
geom_text(aes(label=sprintf("%.3f", Frecuencia_Relativa)), vjust=-.5, col="black", size = 3) + theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1, size = 8)) 

Antiguedad en la empresa

#Codigo para la creación del histograma:
library(ggplot2)
ggplot(data.frame(TablaTenure), aes(x=Clases, y=Frecuencia_Relativa))  +
geom_bar(stat="identity", color="blue", fill="cyan", width=1) +
theme_bw() + labs(x="Antigüedad  en la empresa", y="Frecuencia Relativa") +
geom_text(aes(label=sprintf("%.3f", Frecuencia_Relativa)), vjust=-.5, col="black") + theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1, size = 8))