wd = "C:/Users/MAEI/Documents/R/Taller #1/Taller #1" 
setwd(wd)

TD <- read.table("salaries.txt", header=TRUE, dec=".")

library(paletteer) 
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

Una vez tengamos listo los datos sobre los que vamos a trabajar y listas las librerias que utilizaremos, seguimos al siguiente paso

Creamos el boxplot del “salary” en función del “rank” y el barplot para el “rank”.

Nota: Para que las dos gráficas nos quedén en el mismo tablero introducimos el siguiente código:

par(mfrow=c(1,2))

Ahora que ya tenemos el código anterior, podemos realizar la grafica del boxplot, para ello utilizamos el siguiente código:

TD.6 <- dplyr::select(TD, rank, salary)
attach(TD.6) # Lo utilizamos para extraer las variables de la tabla
boxplot(salary ~ rank,
        data = TD.6,
        xlab = "Salario",
        ylab ="Rank", 
        col = paletteer_c("grDevices::Blues 3", 8),
        main ="Boxplot de Salary en Rank",
        boxwex = 0.5, 
        horizontal = TRUE)

Una vez obtenemos el boxplot, creamos el código para el barplot:

TD.S <- table(TD$rank)

barplot(TD.S, 
        horiz = TRUE,
        xlab = "Frecuencias", 
        ylab = "Rank",
        col = paletteer_c("grDevices::Reds 3", 8),
        main = "Barplot de Rank")

Y así obtenemos el siguiente panel gráfico:

En la gráfica del lado derecho, podemos encontrarnos con un gráfico tipo boxplot, el cual nos describe la mediana, los cuartiles y el máx y min de los datos, que en este caso es para “AssocProf”, “AsstProf” y “Prof”. En el lado izquierdo nos enontramos con un barplot, el cual nos ayuda a ver la frecuencia de los datos, o lo que es lo mismo, el número de veces que se repiten los datos de las variables anteriormente nombradas.