Paso 1: cargar la base de datos y visualizarla

Paso 2: limpiar los datos

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(readxl)


salaries <- read_excel("Salaries.xlsx")

##Guarde las variables: salary y rank y renombrarlas

newdata <-  salaries%>%select(salary, rank)%>%mutate(rank=factor(rank))

##Resumen de datos

newdata%>%group_by(rank)%>%summarise(salario_promedio=mean(salary))
## # A tibble: 3 x 2
##   rank      salario_promedio
##   <fct>                <dbl>
## 1 AssocProf           93876.
## 2 AsstProf            80776.
## 3 Prof               126772.

##Nombre de variables

names(newdata)
## [1] "salary" "rank"

Paso 3: realizar ambos gráficos

##Gráfico Boxplot de la relación salario y rango

boxplot(newdata$salary ~ newdata$rank, data=newdata ,ylab="Rango" , xlab="Salario", col= c("skyblue1", "orangered1" , "seagreen2"), main="Boxplot relación entre salario y rango" , horizontal = TRUE)

##Barplot del rango ##Frecuencia absoluta

tablaabsoluta=table(newdata$rank)

##Frecuencia relativa

tablarelativa=round(prop.table(tablaabsoluta)*100,2)

##Gráfico

barplot(tablaabsoluta, col= c("purple" , "pink", "blue"), ylab="Rango" ,xlab="Frecuencia",  main="Frecuencia del rango", horiz=TRUE)

Paso 4: presentar los dos graficos en una misma ventana de visualización:

par(mfrow=c(1,2))
boxplot(newdata$salary ~ newdata$rank, data=newdata ,ylab="Rango" , xlab="Salario", col= c("skyblue1", "orangered1" , "seagreen2") , main="Boxplot de la relación \n salario y rango" , horizontal = TRUE)
barplot(tablaabsoluta, col= c("skyblue1", "orangered1" , "seagreen2"), xlab="Frecuencia", main="Frecuencia del rango", horiz=TRUE)
text(x = tablaabsoluta/2, y = c(0.7,1.9,3.1), label = tablaabsoluta)

Paso 5: sacar los cuartiles para poder interpretar

Primer cuartil:

quantile(newdata$salary[newdata$rank=="AssocProf"],probs = 0.25)
##   25% 
## 82475
quantile(newdata$salary[newdata$rank=="AsstProf"],probs = 0.25)
##   25% 
## 74000
quantile(newdata$salary[newdata$rank=="Prof"],probs = 0.25)
##      25% 
## 105975.2

Segundo cuartil

quantile(newdata$salary[newdata$rank=="AssocProf"],probs = 0.5)
##     50% 
## 95626.5
quantile(newdata$salary[newdata$rank=="AsstProf"],probs = 0.5)
##   50% 
## 79800
quantile(newdata$salary[newdata$rank=="Prof"],probs = 0.5)
##      50% 
## 123321.5

Tercer cuartil

quantile(newdata$salary[newdata$rank=="AssocProf"],probs = 0.75)
##      75% 
## 104226.2
quantile(newdata$salary[newdata$rank=="AsstProf"],probs = 0.75)
##     75% 
## 88597.5
quantile(newdata$salary[newdata$rank=="Prof"],probs = 0.75)
##      75% 
## 145080.5

Media

mean(newdata$salary[newdata$rank=="AssocProf"])
## [1] 93876.44
mean(newdata$salary[newdata$rank=="AsstProf"])
## [1] 80775.99
mean(newdata$salary[newdata$rank=="Prof"])
## [1] 126772.1

Paso 6. Interpretación

Gráfica de cajas:

Para los profesores asociados:

###Primer cuartil: el 25% de profesores asociados (AssocProf) ganan un salario anual menor que o igual a $82475 dólares ###Mediana o Segundo Cuartil: divide en dos partes iguales la distribución. De forma que el 50% de los profesores asociados ganan un salario anual menor que o igual a $95626 dólares ###Tercer cuartil: el 75% de los profesores asociados ganan un salario anual menor o igual a $104226 dólares

Para los profesores asistentes

###Primer cuartil: el 25% de profesores asistentes (AsstProf) ganan un salario anual menor que o igual a $74000 dólares ###Mediana o Segundo Cuartil: divide en dos partes iguales la distribución. De forma que el 50% de los profesores asistentes ganan un salario anual menor que o igual a $79800 dólares ###Tercer cuartil: el 75% de los profesores asistentes ganan un salario anual menor o igual a (punto 4 en el gráfico siguiente $88597 dólares

Para los profesores titulares

###Primer cuartil: el 25% de profesores titulares (Prof) ganan un salario anual menor que o igual a $105975 dólares ###Mediana o Segundo Cuartil: divide en dos partes iguales la distribución. De forma que el 50% de los profesores titulares ganan un salario anual menor que o igual a $123321 dólares ###Tercer cuartil: el 75% de los profedores titulares ganan un salario anual menor o igual a $145080 dólares

Por otro lado, podemos interpretar lo siguiente de acuerdo a la mediana:

###Profesores asociados (AssocProf):la mediana corta la caja en dos lados desiguales, es decir, tiene asimetría positiva o está sesgada a la derecha.

###Profesores asistentes (Asst):la mediana corta la caja en dos lados desiguales,es decir, tiene asimetría positiva o está sesgada a la derecha.

###Profesores titulares (Prof): la mediana corta la caja en dos lados desiguales, es decir, tiene asimetría negativa o sesgada a la izquierda.

Por último, de acuerdo a la media tenemos lo siguiente:

###En promedio, los profesores asociados ganan un salario anual de $93876 dólares ###En promedio, los profesores asistentes ganan un salario anual de $80775 dólares ###En promedio, los profesores titulares ganan un salario anual de $126772 dólares

###Se puede notar que, los profesores titulares ganan en promedio más que los asociados y asistentes, esto era de esperarse, porque el profesor titular es aquel que domina mayormente cierta materia y tienen un cargo de planta

Gráfico de barras:

###Por un lado, podemos observar que hay mayor cantidad de profesores titulares (Prof), la diferencia entre profesores asistentes y asocidos son 3 profesores. es muy probable que hace poco ascendieron a algunos profesores asociados a titulares.

Paso 7. Publicar en RMarkdown