## Warning: package 'readxl' was built under R version 4.1.2

Diagrma de caja de los salarios en funcion del Rango (Boxplot)

Con este diagrama podemos afirmar que el grupo que presenta más dispersión de las observaciones del salario es “Prof”, este mismo presenta el mayor salario promedio y es el único que presenta datos atípicos. por otro lado, el grupo que presenta menor dispersión es “AsstProf” y menor media salarial. Todos presentan distribución asimétrica, positiva para (Prof y AsstProf) y negativa para (AssocProf).

Diagrama de caja <- boxplot(boxplot_$salary~boxplot_$rank,
        main = "Grafico de caja", 
        xlab = "Salary",
        ylab = "Rank", 
        col= rainbow(6), 
        horizontal =1,
        las= 1)

Frecuencia absoluta rango de los profesores (Barplot)

El grupo con mayor frecuencia con según las observaciones es “prof” con un 67% de la muestra, le siguen “AsstProf” con una participación del 16,9% de la muestra, por ultimo el grupo de menor participación sobre la muestra es “AssocProf” con un 16,1%.

Frecuencia_abs <-barplot(p, main = "Frequencia absoluta",
           ylab = "Rank",
           xlab= "Frecuencia",
           col = rainbow(10),
           xlim = c(0,300),
           horiz = TRUE, las=1
           ) 
text( p + 15 ,b, labels = p)

Visualización de resultados

par(mfrow = c(1,2))