load da base

load("C:/Users/Hp/Desktop/Base_de_dados-master/CARROS.RData")
load("C:/Users/Hp/Desktop/Base_de_dados-master/df_pokemon.RData")

Transformação das variáveis

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

O 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

Análise da base carros

# Km/l por tipo de marcha
# Manual é mais econômico
CARROS %>%
  group_by(TipodeMarcha) %>%
  summarize(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) %>%
  summarize(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) %>%
  summarize(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) %>%
  summarize(media=mean(Preco),mediana=median(Preco),desvio_padrao=sd(Preco))
## `summarise()` regrouping output by 'TipodeMarcha' (override with `.groups` argument)

Análise da base pokemon

library(DT)
# Ataque a Ataque especial por tipo de ovo

tabela_pokemon <-df %>%
  group_by(egg_group_1) %>%
  summarize(media=mean(attack),mediana=median(attack),desvio_padrao=sd(attack))
## `summarise()` ungrouping output (override with `.groups` argument)
tabela_pokemon2 <-df %>%
  group_by(egg_group_1) %>%
  summarize(media=mean(special_attack),mediana=median(special_attack),desvio_padrao=sd(special_attack))
## `summarise()` ungrouping output (override with `.groups` argument)
datatable(tabela_pokemon)
datatable(tabela_pokemon2)
# Defesa por tipo 1

tabela_pokemon3 <-df %>%
  group_by(type_1) %>%
  summarize(media=mean(defense),mediana=median(defense),desvio_padrao=sd(defense)) %>%
  arrange(desc(media))
## `summarise()` ungrouping output (override with `.groups` argument)
datatable(tabela_pokemon3)
# Defesa especial por tipo 2

tabela_pokemon4 <-df %>%
  group_by(type_2) %>%
  summarize(media=mean(special_defense),
            mediana=median(special_defense),
            desvio_padrao=sd(special_defense)) %>%
  arrange(desc(media))
## `summarise()` ungrouping output (override with `.groups` argument)
tabela_pokemon4$media <-round(tabela_pokemon4$media,2)
tabela_pokemon4$desvio_padrao<-round(tabela_pokemon4$desvio_padrao,2)

datatable(tabela_pokemon4)

Boxplot

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

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

par(cex=0.7)
boxplot(df$attack~df$type_1,col="red")

boxplot(df$special_attack~df$type_1,col="skyblue")

boxplot(df$special_defense~df$type_1,col="yellow")