FLEXTABLE

Passo 0 - carregar as bibliotecas de hoje

# Passo 0 - carregar as bibliotecas de hoje
library(dplyr)     # operador pipe e tratamento dos dados

## 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(flextable) # para fazer uma tabela no RMarkdown

## Warning: package 'flextable' was built under R version 4.0.5

library(reactable) # para fazer uma tabela no RMarkdown

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

library(RColorBrewer) # para colocar a cor

Passo 1 - carregar a base de dados

# Passo 1 - carregar a base de dados
load("C:/Users/Hp/Desktop/Base_de_dados-master/CARROS.RData")

Passo 2 - transformacao

# Passo 2 - transformacao
CARROS$Tipodecombustivel<-ifelse(CARROS$Tipodecombustivel==1,
                                 'Alc','Gas')

CARROS$TipodeMarcha<-ifelse(CARROS$TipodeMarcha==0,
                                 'Auto','Manual')

Passo 3 - cruzamento de uma variável qualitativa

# Passo 3 - cruzamento de uma variável qualitativa 
# e uma variável quantitativa

ft1 <- CARROS %>% select(Tipodecombustivel,Preco) %>%
           group_by(Tipodecombustivel) %>%
           summarise(media.preco=mean(Preco),
                     desvio.padrao_preco=sd(Preco),
                     quantidade=n()) %>%
          data.frame() %>% flextable()   

ft1 <- bg(ft1, bg = "wheat", part = "header")
ft1

ft1 <- bg(ft1, i = ~ media.preco < 300, bg = "skyblue", part = "body")
ft1

ft1 <- bg(ft1, i = ~ media.preco > 300, bg = "pink", part = "body")
# minha formatacao
ft1

tema do Dark Lord

# tema do Dark Lord
ft1 %>% theme_vader()

#-------------------------------------------------
# tipo de marcha (quali) vs Km/l (quanti)
#-------------------------------------------------

ft2 <- CARROS %>% select(TipodeMarcha,Kmporlitro) %>%
                  group_by(TipodeMarcha) %>%
                  summarise(media=round(mean(Kmporlitro),1),
                            desvio.padrao=round(sd(Kmporlitro),1),
                            media2=mean(Kmporlitro),
                            desvio.padrao2=sd(Kmporlitro),
                            tamanho=n()) %>%
                  data.frame() %>% flextable()
ft2

ft2 %>% theme_tron()

#-------------------------------------------------
#-------------------------------------------------
# Passo 4 -  visualizacao 
#-------------------------------------------------
#-------------------------------------------------

boxplot(Preco~Tipodecombustivel,data=CARROS,
        main="Gráfico 1 - Preço do carro por tipo de combustivel",
        col=c("skyblue","pink"))

# tipo de marcha (quali) vs Km/l (quanti)
library(RColorBrewer)
cor_dark <- brewer.pal(2,"Dark2")

## Warning in brewer.pal(2, "Dark2"): minimal value for n is 3, returning requested palette with 3 different levels

cor_dark

## [1] "#1B9E77" "#D95F02" "#7570B3"

par(bg='lightyellow')
boxplot(Kmporlitro~TipodeMarcha,data = CARROS,
        col=cor_dark,main="Gráfico 2 - Boxplot do Km/l por tipo de marcha",
        horizontal = T)

load("C:/Users/Hp/Desktop/Base_de_dados-master/Game of Thrones.RData")
#-------------------------------------------------
#-------------------------------------------------
#-------------------------------------------------
#-------------------------------------------------
#-------------------------------------------------
#-------------------------------------------------


names(personagens_livro)

##  [1] "nome"                   "lealdade"               "sexo"                  
##  [4] "nobre"                  "Guerra_dos_Tronos"      "Furia_dos_Reis"        
##  [7] "Tormenta_de_Espadas"    "Festim_dos_Corvos"      "Danca_dos_Dragoes"     
## [10] "capitulo_apresentacao"  "ano_morte"              "livro inteiro da morte"
## [13] "capitulo_morte"

personagens_livro$nobre<-ifelse(personagens_livro$nobre==1,'nobre','não nobre')

# criando a tabela empilhada
tabela_para_flex <- personagens_livro %>% select(lealdade,nobre) %>%
  table() %>% prop.table(1)%>% data.frame()

# transformando a tabela empilhada em novas colunas
# names_from = novas colunas
# values_from = conteudo)

library(tidyr)

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

tabela_para_flex2<-tabela_para_flex %>%
  pivot_wider(names_from = nobre, values_from = Freq)

# visualizacao da nova tabela
tabela_para_flex2 %>% flextable() %>% theme_vader()