Carregando a Base de Dados diamante.RData.

load("C:/Users/VIC NOTE/Documents/Ciencia Politica/8 Periodo/Estatistica/bases_curso_estatistica/Base_de_dados-master/diamante.RData")

Cruzando a variavel categorica com a quantitativa.

library(dplyr)
diamante %>%
  group_by(corte) %>%
  summarise(media=mean(preco),mediana=median(preco),desvio_padrao=sd(preco))
## # A tibble: 5 x 4
##   corte     media mediana desvio_padrao
##   <ord>     <dbl>   <dbl>         <dbl>
## 1 Justo     4359.   3282          3560.
## 2 Bom       3929.   3050.         3682.
## 3 Muito Bom 3982.   2648          3936.
## 4 Premium   4584.   3185          4349.
## 5 Ideal     3458.   1810          3808.

Criação do grafico tipo Boxplot.

boxplot(diamante$preco~diamante$corte, col=c("yellow", "royalblue"))

Conclusão

O boxlot apresenta muitos outliers, nada muito extraordinario que chame a atençao, todos os objetos sao assimetricos. A maior média e mediana estão no corte do tipo justo que tambem tem o maior desvio padrão seguido do tipo premium de corte, a menor mediana esta no tipo ideal e esta bem proxima do primeiro quartil. Os cortes Muito bom, Premium e Ideal sao os mais caros mas quando falamos de diamante devemos lembrar que no preço recai ainda a transparencia e tamanho.