Atividade 7

Carregando os pacotes utilizados na atividade

library(dplyr)

## Warning: package 'dplyr' was built under R version 4.0.3

## 
## 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(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.0.3

## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --

## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.4     v stringr 1.4.0
## v tidyr   1.1.2     v forcats 0.5.0
## v readr   1.4.0

## Warning: package 'ggplot2' was built under R version 4.0.3

## Warning: package 'tibble' was built under R version 4.0.3

## Warning: package 'tidyr' was built under R version 4.0.3

## Warning: package 'forcats' was built under R version 4.0.3

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(ggplot2)
theme_set(theme_bw(base_size=16))

Carregando o banco de dados

load("C:/Users/Priscila/Desktop/Base_de_dados-master/diamante.RData")
view(diamante)
diamante_data <- diamante

Análise de variável qualitativa e quantitativa

tabela_preco_corte <- diamante %>%
  group_by(corte) %>%
  summarise(media=mean(preco), mediana=median(preco), desvio_padrao=sd(preco))

## `summarise()` ungrouping output (override with `.groups` argument)

tabela_preco_corte

## # 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.

Boxplot para visualização dos resultados

diamante %>%
  ggplot(aes(x=preco, y=corte)) +
  geom_boxplot()+
  labs(x="Preço do diamante", y="Corte")

O preço mediana de cortes justo é maior em relação aos outros e o desvio padrão desde corte é menor. Também podemos observar que os cortes são assimétricos por apresentarem o míinimo próximo ao primeiro quartil.