1. Carregar a base de dados

load("C:/Users/Usuario/Desktop/Base_de_dados-master/CARROS.RData")
load("C:/Users/Usuario/Desktop/Base_de_dados-master/df_pokemon.RData")
pokemon <- df

2. Transformação de variáveis

CARROS$Tipodecombustivel <- ifelse(CARROS$Tipodecombustivel==0, "Gas","Alc")
CARROS$TipodeMarcha <- ifelse(CARROS$TipodeMarcha==0,"Auto","Manual")

3. Operador Pipe

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
CARROS %>%
  group_by(Tipodecombustivel) %>%
  summarize(media=mean(Preco),mediana=median(Preco),desvio_padrao=sd(Preco),tamanho=n())
## `summarise()` ungrouping output (override with `.groups` argument)
## # A tibble: 2 x 5
##   Tipodecombustivel media mediana desvio_padrao tamanho
##   <chr>             <dbl>   <dbl>         <dbl>   <int>
## 1 Alc                132.    121.          56.9      14
## 2 Gas                307.    311          107.       18

4. Análise da base de dados Carros a partir do operador pipe

CARROS %>%
  group_by(TipodeMarcha) %>%
  summarise(media=mean(Kmporlitro),desvio_padrao=sd(Kmporlitro))
## `summarise()` ungrouping output (override with `.groups` argument)
## # A tibble: 2 x 3
##   TipodeMarcha media desvio_padrao
##   <chr>        <dbl>         <dbl>
## 1 Auto          17.1          3.83
## 2 Manual        24.4          6.17
CARROS %>%
  group_by(TipodeMarcha) %>%
  summarise(media=mean(HP),desvio_padrao=sd(HP))
## `summarise()` ungrouping output (override with `.groups` argument)
## # A tibble: 2 x 3
##   TipodeMarcha media desvio_padrao
##   <chr>        <dbl>         <dbl>
## 1 Auto          160.          53.9
## 2 Manual        127.          84.1
CARROS %>%
  group_by(TipodeMarcha) %>%
  summarise(media=mean(Peso),desvio_padrao=sd(Peso))
## `summarise()` ungrouping output (override with `.groups` argument)
## # A tibble: 2 x 3
##   TipodeMarcha media desvio_padrao
##   <chr>        <dbl>         <dbl>
## 1 Auto          3.77         0.777
## 2 Manual        2.41         0.617
tabela_preco <- CARROS %>%
  group_by(TipodeMarcha, Tipodecombustivel) %>%
  summarise(media=mean(Preco),mediana=median(Preco),desvio_padrao=sd(Preco))
## `summarise()` regrouping output by 'TipodeMarcha' (override with `.groups` argument)

5. Análise da base de dados Pokémon a partir do operador pipe

library(DT)
Tabela_ataque <- pokemon %>%
  group_by(egg_group_1) %>%
  summarise(media=mean(attack),mediana=median(attack),desvio_padrao=sd(attack))
## `summarise()` ungrouping output (override with `.groups` argument)
datatable(Tabela_ataque)
Tabela_sp_ataque <- pokemon %>%
  group_by(egg_group_1) %>%
  summarise(media=mean(special_attack),mediana=median(special_attack),desvio_padrao=sd(special_attack))
## `summarise()` ungrouping output (override with `.groups` argument)
datatable(Tabela_sp_ataque)
Tabela_defesa <- pokemon %>%
  group_by(type_1) %>%
  summarise(media=mean(defense),mediana=median(defense),desvio_padrao=sd(defense)) %>%
  arrange(desc(media))
## `summarise()` ungrouping output (override with `.groups` argument)
datatable(Tabela_defesa)
# Tabela Special Defese

Tabela_sp_defesa <- pokemon %>%
  group_by(type_2) %>%
  summarise(media=mean(special_defense),mediana=median(special_defense),desvio_padrao=sd(special_defense)) %>%
  arrange(desc(media))
## `summarise()` ungrouping output (override with `.groups` argument)
datatable(Tabela_sp_defesa)
library(DT)

6. Boxplot

boxplot(CARROS$Preco~CARROS$Tipodecombustivel, col = c("red","blue"))

boxplot(CARROS$Kmporlitro~CARROS$Tipodecombustivel, col = c("red","blue"))

par(cex=0.7)
boxplot(pokemon$attack~pokemon$type_1)

par(cex=0.7)
boxplot(pokemon$special_attack~pokemon$type_1, col = c("red"))

par(cex=0.7)
boxplot(pokemon$special_defense~pokemon$type_1, col = c("yellow"))