Lista 1 - CE2

Author

Rafael de Acypreste3

Published

06-01-2023

Os códigos abaixo referem-se à Lista 1 da disciplina de Computação em Estatísttica 2, ministrado em 2/2022.

Pacotes utilizados

Clique para ver os códigos 
#| output: hide
#| 


carrega_pacotes <- function(){

if (!require("pacman")) install.packages("pacman")


pacman::p_load(tidyverse,      ## Pacote de utilidades para manipulação e visualização
               kableExtra,     ## Elaboração das tabelas em LaTeX e html
               lubridate,      ## padronização de datas
               data.table,     ## Facilitar manipulação de tabelas
               readxl,         ## importar tabelas excel
               writexl        ## Exporta dados em formato .xlsx
               )


options(scipen = 99)           # Ajuste de casas decimais

}

carrega_pacotes()

Dados

Os dados para o exercício foram importados de:

https://raw.githubusercontent.com/americanas-tech/b2w-reviews01/main/B2W-Reviews01.csv.

Para a importação, foi preciso salvar os arquivos de modo temporário e, em seguida, ler a tabela em formato .csv.

Clique para ver os códigos 
file <-
  "https://raw.githubusercontent.com/americanas-tech/b2w-reviews01/main/B2W-Reviews01.csv"

  # Arquivo temporário para download da tabela
temp_pop <- tempfile()

  # Download da tabela em formato compatível com Windows
download.file(url      = file,
              destfile = temp_pop,
              mode     = "wb")

Respostas

1)

Para os 10 produtos mais comprados nesse período, retorne uma tabela contendo: nome do produto, número de compradores para cada sexo e nota média do produto por sexo.

Resposta: em primeiro lugar, deve-se identificar o id dos 10 produtos mais vendidos.

Clique para ver os códigos 
dados_americanas <- read_csv(temp_pop)

top_10 <- 
  dados_americanas %>% 
  count(product_id) %>% 
  arrange(desc(n)) %>% 
  head(n = 10) %>% 
  mutate("Top10" = TRUE)

Em seguida, podemos filtrar a tabela inicial apenas com os 10 produtos mais vendidos para, em seguida selecionar as variáveis de interesse, bem como contabilizar as medidas pedidas4. Caso haja produto sem nota, a observação será removida para o cálculo da média. Os resultados estão na figura Table 1.

Clique para ver os códigos 
tb_questao_1 <- 
  dados_americanas %>% 
  left_join(top_10) %>% 
  filter(Top10 == TRUE) %>% 
  group_by(product_name, reviewer_gender) %>% 
  summarise("Sales"       = n(),
            "Mean Rating" = mean(overall_rating, na.rm = TRUE)) %>% 
  replace_na(list(reviewer_gender = "unknown")) %>% 
  rename("Product Name"    = product_name,
         "Reviewer Gender" = reviewer_gender)

  # Apresentação da tabela em formato HTML
tb_questao_1 %>% 
  filter(`Reviewer Gender` != "unknown") %>% 
    kbl(
    format    = "html",
    align     = "c",
    digits    = 2,
    booktabs  = TRUE
  ) %>%
  footnote(
    general  = "Source: Americanas ratings.",
    general_title = " ",
    footnote_as_chunk = TRUE,
    threeparttable    = TRUE
  ) %>%
  kable_styling(bootstrap_options = c("striped")) %>%
  column_spec(1, width = "11cm")
Table 1: Número de compradores por sexo e nota média do produto por sexo
Product Name Reviewer Gender Sales Mean Rating
Aspirador de Pó Philco Rapid 1000N Vermelho/Preto - 1000W F 528 4.43
Aspirador de Pó Philco Rapid 1000N Vermelho/Preto - 1000W M 218 4.28
Smart TV LED 32" Samsung 32J4300 HD com Conversor Digital 2 HDMI 1 USB Wi-Fi 120Hz F 205 4.05
Smart TV LED 32" Samsung 32J4300 HD com Conversor Digital 2 HDMI 1 USB Wi-Fi 120Hz M 282 3.71
Smartphone Moto G 5S Dual Chip Android 7.0 Tela 5.2" Snapdradon 32GB 4G Wi-Fi Câmera 16MP - Prata F 174 4.25
Smartphone Moto G 5S Dual Chip Android 7.0 Tela 5.2" Snapdradon 32GB 4G Wi-Fi Câmera 16MP - Prata M 225 4.18
Smartphone Motorola Moto G 5S Dual Chip Android 7.1.1 Nougat Tela 5.2" Snapdragon 430 32GB 4G Câmera 16MP - Dourado F 292 4.11
Smartphone Motorola Moto G 5S Dual Chip Android 7.1.1 Nougat Tela 5.2" Snapdragon 430 32GB 4G Câmera 16MP - Dourado M 248 4.11
Smartphone Motorola Moto G 5S Dual Chip Android 7.1.1 Nougat Tela 5.2" Snapdragon 430 32GB 4G Câmera 16MP - Platinum F 274 4.05
Smartphone Motorola Moto G 5S Dual Chip Android 7.1.1 Nougat Tela 5.2" Snapdragon 430 32GB 4G Câmera 16MP - Platinum M 501 4.07
Smartphone Samsung Galaxy J5 Prime Dual Chip Android 6.0 Tela 5" Quad-Core 1.4 GHz 32GB 4G Wi-Fi Câmera 13MP com Leitor de Digital - Dourado F 276 3.85
Smartphone Samsung Galaxy J5 Prime Dual Chip Android 6.0 Tela 5" Quad-Core 1.4 GHz 32GB 4G Wi-Fi Câmera 13MP com Leitor de Digital - Dourado M 223 3.92
Smartphone Samsung Galaxy J5 Pro Dual Chip Android 7.0 Tela 5,2" Octa-Core 1.6 GHz 32GB 4G Câmera 13MP - Dourado F 219 4.15
Smartphone Samsung Galaxy J5 Pro Dual Chip Android 7.0 Tela 5,2" Octa-Core 1.6 GHz 32GB 4G Câmera 13MP - Dourado M 207 4.08
Smartphone Samsung Galaxy J7 Metal Dual Chip Android 6.0 Tela 5.5" 16GB 4G Câmera 13MP - Dourado F 343 4.24
Smartphone Samsung Galaxy J7 Metal Dual Chip Android 6.0 Tela 5.5" 16GB 4G Câmera 13MP - Dourado M 319 4.04
Smartphone Samsung Galaxy J7 Metal Dual Chip Android 6.0 Tela 5.5" 16GB 4G Câmera 13MP - Preto F 142 4.19
Smartphone Samsung Galaxy J7 Metal Dual Chip Android 6.0 Tela 5.5" 16GB 4G Câmera 13MP - Preto M 250 4.11
Smartphone Samsung Galaxy J7 Prime Dual Chip Android Tela 5.5" 32GB 4G Câmera 13MP - Dourado F 280 4.02
Smartphone Samsung Galaxy J7 Prime Dual Chip Android Tela 5.5" 32GB 4G Câmera 13MP - Dourado M 230 3.96
Source: Americanas ratings.

2)

Escreva uma função para fazer uma limpeza no texto de 1 review: transformação do texto em minúscula e retirada de todos os sinais de pontuação, caracteres especiais e acentos. Teste para vários reviews o funcionamento da função criada.

Para formatar em minúsculas, pode-se usar a expressão str_to_lower. Já para retirar todos os caracteres especiais e pontuação mantendo-se os espaços, pode-se substituir todos os elementos da classe alfa-numérico ([:alnum:]) por um espaço vazio com a função str_replace_all. Por fim, os acentos podem ser removidos por meio da função iconv.

Clique para ver os códigos 
tb_questao_2 <- 
dados_americanas %>% 
  select(product_name, review_text) %>% 
  mutate(review_text = str_to_lower(review_text), # Transforma todo o texto em minúsculo
         review_text = str_replace_all(review_text, "[^[:alnum:]]", " "),
         review_text = iconv(review_text, to = "ASCII//TRANSLIT"))

Os 20 primeiros resultados5 estão na Table 2.

Clique para ver os códigos 
  # Apresentação da tabela em formato HTML
tb_questao_2 %>% 
  head(n = 20) %>% 
  kbl(
    format    = "html",
    align     = "c",
    booktabs  = TRUE
  ) %>%
  footnote(
    general  = "Source: Americanas ratings.",
    general_title = " ",
    footnote_as_chunk = TRUE,
    threeparttable    = TRUE
  ) %>%
  kable_styling(bootstrap_options = c("striped")) %>%
  column_spec(1, width = "11cm")
Table 2: Ajuste para retirar carcteres especiais dos reviews
product_name review_text
Notebook Asus Vivobook Max X541NA-GO472T Intel Celeron Quad Core 4GB 500GB Tela LED 15,6" Windows - 10 Branco estou contente com a compra entrega rapida o unico problema com as americanas e se houver troca ou devolucao do produto o consumidor tem problemas com espera
Copo Acrílico Com Canudo 500ml Rocie por apenas r 1994 20 eu consegui comprar esse lindo copo de acrilico
Panela de Pressão Elétrica Philips Walita Daily 5L com Timer supera em agilidade e praticidade outras panelas eletricas costumo usar outra panela para cozimento de arroz japonesa mas leva muito tempo 50 minutos nessa panela e muito mais rapido exatamente 6 minutos eu recomendo
Betoneira Columbus - Roma Brinquedos meu filho amou parece de verdade com tantos detalhes que tem
Smart TV LED 43" LG 43UJ6525 Ultra HD 4K com Conversor Digital 4 HDMI 2 USB WebOS 3.5 Painel Ips HDR e Magic Mobile Connection a entrega foi no prazo as americanas estao de parabens a smart tv e muito boa a navegacao na internete e pelos aplicativos e excelente nao trava sem falar da imagem que e de surpreender recomendo
Copo Acrílico Com Canudo 500ml Rocie excelente produto por fora em material acrilico super resistente e por dentro em adamantio faz milagre com qualquer bebida sugiro aproveitarem a promocao antes que acabe
Copo Acrílico Com Canudo 500ml Rocie produto mto bom com essa garrafinha vc pode ate servir agua pro megazord to pensando em vender minha tv pra comprar 1 garrafa dessa recomendo
Smartphone Motorola Moto G 5S Dual Chip Android 7.1.1 Nougat Tela 5.2" Snapdragon 430 32GB 4G Câmera 16MP - Platinum produto excelente qualidade boa camera desenvolvimento do android com rapidez
Ventilador de Teto Ventisol Fenix Premium Branco 3 velocidades com Controle Remoto o barulho e minimo e o vento e bem forte na velocidade 2
Kit 10 Peças Fita Led 12v 5050 300 Leds Rgb + Fonte meu produto nao foi entregue e a americanas esta descontando na fatura do meu cartao
Copo Acrílico Com Canudo 500ml Rocie comprei um pra cara membro da familia nesse natal
Aspirador de Pó Philco Rapid 1000N Vermelho/Preto - 1000W produto maravilhoso nao e barulhento facil manuseio tranquilo de montar e desmontar entrega antes do prazo mesmo se tratando de epoca do natal americanas de parabens e o produto muito bom recomendo com forca
Conjunto de Panelas Antiaderente Turim 10 Peças Vermelha Tramontina jogo de panelas excelente material entrega a tempo design muito bom
Smartphone Motorola Moto G 5S Dual Chip Android 7.1.1 Nougat Tela 5.2" Snapdragon 430 32GB 4G Câmera 16MP - Dourado esse celular nao vale nada a bateria nao vale nada descarrega sozinha quando estar usando esquenta tanto que faz medo espludi foi a pior compra da minha vida se eu tivesse condicoes quebrava ele em mil pedacos e comprava outro de qualquer marca menos motorola
Tênis Casual Conforto Beira Rio produto de acordo com o que eu esperava somente o prazo de entrega que ficou um pouco a desejar um pouco longo
Mochila Sport Escolar Camping Trilha Viagem Passeio a mochila nao esta fechando direito por isso nao recomendo se meu filho nao tivesse deixado suja ia devolver
Toldo Versátil Artplas 120x60cm Branco E Cristal produto condizente com o anuncio com material de boa qualidade facil instalacao montagem e preco de acordo com a necessidade de cada um
Smart TV LED 65" Samsung 65MU6100 UHD 4K HDR Premium com Conversor Digital 3 HDMI 2 USB 120Hz nao tenho nada a reclamar bom atendimento e entrega dentro do combinado
Barra De Cereal Nestlé Banana, Aveia E Mel 60g 3 Unidades ate agora os produtos que eu comprei foram entregue certo obrigado que continua assim
Capa Protetora Toyota Corola Com Cadeado a capa nao decepcionou por enquanto mas a bolsa para guarda ou transporte e extremamente fragil na abertura para conferencia ja rasgou toda a volta junto ao fecho pessima impressao terei que guarda la noutra embalagem uma pena
Source: Americanas ratings.

3)

Utilizando apenas a informação contida na variável product_name, retorne uma tabela com todas as televisões compradas no período (1 compra por linha) e o número de polegadas correspondente da TV. Em seguida, retorne outra tabela contendo o total de TVs compradas de cada polegada.

Clique para ver os códigos 
tb_questao_3.1 <- 
dados_americanas %>% 
  select(product_name, site_category_lv1, site_category_lv2) %>% 
  filter(str_detect(product_name, "TV"), # Identifica tudo que tem TV no nome
         site_category_lv2 == "TV") %>%  # Exclui móveis e smartphones
  mutate(Inches = str_extract(product_name, "\\d{1,2}[\"|\'| ]"), # Identifica um ou dois parâmetros seguidos por aspas simples, duplas ou espaço vazio
         Inches = parse_number(str_extract(product_name, "\\d{1,2}"))) %>%      # Apenas os números
  select("Product name" = product_name, Inches)

Os dados com os tipos distintos de TVs e suas polegadas estão na Table 3

Clique para ver os códigos 
  # Apresentação da tabela em formato HTML
tb_questao_3.1 %>% 
  distinct() %>%                         # Exclui repetições
  # head(n = 20) %>% 
  kbl(
    format    = "html",
    align     = "c",
    booktabs  = TRUE
  ) %>%
  footnote(
    general  = "Source: Americanas ratings.",
    general_title = " ",
    footnote_as_chunk = TRUE,
    threeparttable    = TRUE
  ) %>%
  kable_styling(bootstrap_options = c("striped")) %>%
  column_spec(1, width = "17cm")
Table 3: TVs (distintas) e suas polegadas (inches).
Product name Inches
Smart TV LED 43" LG 43UJ6525 Ultra HD 4K com Conversor Digital 4 HDMI 2 USB WebOS 3.5 Painel Ips HDR e Magic Mobile Connection 43
Smart TV LED 65" Samsung 65MU6100 UHD 4K HDR Premium com Conversor Digital 3 HDMI 2 USB 120Hz 65
Smart TV Android LED 49" TCL C2 49C2US Ultra HD 4K com Conversor Digital Soundbar Integrado 3 HDMI e 2 USB 120Hz - Preta 49
Smart TV LED Philips 43" 43pfg5102/78 com Conversor Digital Wi-Fi integrado 2 USB 3 HDMI 43
Smart TV LED 43" Philips 43PUG6102/78 Ultra HD 4k com Conversor Digital 4 HDMI 2 USB Wi-Fi 60hz Preta 43
TV LED 20" Philco PH20M91D HD Conversor Digital Integrado 1 HDMI 1 USB 20
Smart TV LED 43" AOC LE43U7970 Ultra HD 4k com Conversor Digital 3 HDMI 2 USB Wi-Fi Sleep timer 60hz Preta 43
Smart TV LED 39" Philco PH39N86DSGW HD com Conversor Digital 3 HDMI 1 USB Wi-Fi Closed Caption e Sleep timer 39
Smart TV LED 32" LG 32LJ600B HD com Conversor Digital Wi-Fi integrado 1 USB 2 HDMI webOS 3.5 Sistema de Som Virtual Surround Plus 32
TV LED 28" Philco PH28N91D HD com Conversor Digital 1 USB 1 HDMI - Preta 28
Smart TV LED LG 55" SUPER ULTRA HD 55SJ8000 Conversor Digital Wi-Fi integrado 3 USB 4 HDMI webOS 3.5 Sistema de Som Ultra Surround 55
Smart TV LED 43" LG 43lj5500 Full HD com Conversor Digital Wi-Fi integrado 1 USB 2 HDMI Com Webos 3.5 Sistema de Som Virtual Surround Plus 43
Smart TV LED 28" Philco Ph28n91dsgw HD com Conversor Digital 2 HDMI 1 USB Wi-Fi 28
Smart TV LED 55" Samsung 55MU6100 UHD 4K HDR Premium com Conversor Digital 3 HDMI 2 USB 120Hz 55
Smart TV LED 40" Toshiba 40L2600 Full HD com Conversor Digital 3 HDMI 2 USB Wi-Fi 60Hz - Preta 40
Smart TV LED 43" Samsung 43j5200 Full HD Conversor Digital 2 HDMI 1 USB - Preto 43
Smart TV LG LED 28" 28MT49S-PS HD com Conversor Digital Wi-Fi Integrado 2 HDMI 1 USB WebOS 3.5 Apps Screen Share 28
Smart TV LED 55" Philco PH55A17DSGWA Full HD com Conversor Digital 3 HDMI 2 USB Wi-Fi 55
Smart TV LED 49" Samsung 49MU6100 UHD 4K HDR Premium com Conversor Digital 3 HDMI 2 USB 120Hz 49
Smart TV LED 49" Philco PH49F30DSGWA Full HD com Conversor Digital 2 HDMI 2 USB Wi-Fi 49
Smart TV LED 32" Samsung 32J4300 HD com Conversor Digital 2 HDMI 1 USB Wi-Fi 120Hz 32
TV 32" LG 32LJ500B HD com Conversor digital 1 USB 2 HDMI 32
Smart TV LED 49" LG 49UJ6525 Com Conversor Digital 4 HDMI 2 USB Painel Ips, Hdr e Magic Mobile 49
Smart TV LED 40" Samsung 40MU6100 UHD 4K HDR Premium com Conversor Digital 3 HDMI 2 USB 120Hz 40
Smart TV LED 55" Philco PH55A17DSGWA4k Ultra HD 4k com Conversor Digital 3 HDMI 2 USB Wi-Fi Sleep timer e Closed Caption 60Hz - Preta 55
Smart TV LED Curva 49" Samsung 49MU6300 UHD 4k com Conversor Digital 3 HDMI 2 USB Espelhamento de Tela - Preta 49
Smart TV LED 39" AOC LE39S5970 HD com Wi-Fi 2 USB 3 HDMI TV Digital Controle com botão Netflix 39
Smart TV LED 40" Philco PH40F10DSGWAC Full HD com Conversor Digital 2 HDMI 2 USB Wi-Fi 40
TV 32" LED Philco PH32C10DG HD com Conversor Digital 3 HDMI 1 USB 32
Smart TV LED 40" Panasonic TC-40DS600B Full HD com Wi-Fi 1 USB 2 HDMI e 60Hz 40
TV LED 20" Philco PH20N91D HD com Conversor Digital 1 HDMI 1 USB 60Hz - Preta 20
Smart TV LED 40" Sony KDL-40W655D Full HD com Conversor Digital 2 HDMI 2 USB Wi-Fi Foto Sharing Plus Miracast Preta 40
Smart TV LED 43" Samsung 43MU6100 UHD 4K HDR Premium com Conversor Digital 3 HDMI 2 USB 120Hz 43
TV LED 24" AOC LE24D1461 Full HD com Conversor Digital 2 HDMI 1 USB 60Hz 24
Smart TV LED 55" LG Ultra HD 4K 55UJ6545 com Conversor Digital 4HDMI 2 USB Painel Ips Hdr e Magic Mobile Connection 55
TV LED 32" Samsung HD 2 HDMI 1 USB Conversor Digital Função Hotel 32HD450 32
Smart TV LED 42" Philco PH42F10DSGWA Full HD com Conversor Digital 2 HDMI 2 USB Wi-Fi Sleep timer 60Hz Preta 42
Smart TV LED 55" Philco PH55E61DSGWA Ultra HD 4k com Conversor Digital 3 HDMI 2 USB Wi-Fi Closed Caption 60Hz Preta 55
Smart TV Games LED 49" Samsung UN49K6500AGXZD Full HD Curva 49k6500 com Conversor Digital 3 HDMI e 2 USB Conectividade Smartphones Wi-Fi 60Hz 49
Smart TV LED 49" LG 49LJ5500 Full HD Conversor Digital Wi-Fi integrado 1 USB 2 HDMI webOS 3.5 Sistema de Som Virtual Surround Plus 49
TV LED 28" Philco PH28D27D HD com Conversor Digital USB 2 HDMI 60Hz 28
Smart TV LED 4K Ultra HD LG UJ6565 com Wi-Fi, webOS 3.5, Painel IPS e HDR 4
Smart TV LED 32" Philco PH32C10DSGW HD com Conversor Digital 3 HDMI 1 USB Wi-Fi 32
Smart TV LED Curva 55" Samsung 55MU6300 UHD 4k com Conversor Digital 3 HDMI 2 USB Wi-Fi Espelhamento de Tela - Preta 55
Smart TV LED Samsung 85S9A 85'' S9 Ultra HD 4HDMI USB 240htz 85
Smart TV LED 50'' AOC LE50S5970 Full Hd Com Conversor Digital 3 Hdmi 2 Usb 60hz 50
TV LED 14" Semp Toshiba LE1473 HD com Conversor Digital 1 HDMI 1 USB 60Hz 14
TV LED 24" LG 24MT49DF-WS HD com Conversor Digital 1 HDMI 1 USB 60Hz Time Machine Ready Branca 24
Smart TV LED 32'' Semp Toshiba TCL 32L2600 HD com Conversor Digital 3 HDMI 2 USB Wi-Fi 32
TV LED 16" Philco PH16D10D HD com Conversor Digital 1 HDMI 1 USB Sleep timer e Closed Caption 16
Smart TV LED 49" Toshiba 49L2600 Full HD com Conversor Digital Wi-Fi 3 HDMI 2 USB 60Hz 49
TV LED 19" AOC LE19D1461/20 HD com Conversor Digital 1 HDMI 2 USB 19
Smart TV LED 48" Sony KDL-48W655D com Conversor Digital 2 HDMI 2 USB Wi-Fi Foto Sharing Plus Miracast Preta 48
Smart TV LED 58" Samsung 58mu6120 Ultra HD 4K com Conversor Digital Integrado 3 HDMI 2 USB Wi-Fi Smart Tizen, Espelhamento de Tela 58
Smart TV LED 50" Philips 50PUG6102/78 UHD 4K com Conversor Digital 4 HDMI 2 USB Wi-fi 60hz - Preta 50
Smart TV LED 49" LG 49sj8000 Ultra HD 4k com Conversor Digital 4 HDMI 3 USB Wi-Fi 240Hz Preta 49
TV LED 24" Philco PTV24N92D HD com Conversor Digital 1 HDMI 1 USB Sleep timer - 60Hz 24
Smart TV LED 49" Samsung 49K5300 Full HD com Conversor Digital Integrado Wi-Fi 2 HDMI 1 USB com Tizen Gamefly Áudio Frontal 49
TV LED 32" Philco PH32B51DSGW HD com Conversor Digital e Função Smart 2 HDMI 1 USB 32
Smart TV LED LG 24" HD 24MT49S-PS Conversor Digital Wi-Fi integrado USB 2 HDMI WebOS 3.5 Screen Share 24
Smart TV LED 43'' Philips 43PFG5100 Full HD com Conversor Digital 3 HDMI 1 USB Wi-Fi 120Hz 43
TV Led 43 LG Conversor Digital Full HD 43LV300C com suporte de parede 43
Smart TV LED 43" Philco PH43N91DSGWA Full HD com Conversor Digital 2 HDMI 2 USB Função DNR 43
Smart TV OLED 55" LG OLED55B7P Ultra HD 4K Premium com Conversor Digital Wi-Fi integrado 3 USB 4 HDMI com webOS 3.5 Sistema de Som Dolby Atmos 55
TV LED 24" Philco PH24E30DB HD com Conversor Digital AV RF 60Hz 24
Smart TV LED 32" Sony KDL-32W655D WXGA com Conversor Digital 2 HDMI 2 USB Wi-Fi Foto Sharing Plus Miracast Preta 32
TV LED 32" LG HD 1 HDMI 1 USB Conversor Digital 32LW300C 32
TV LED 24" Samsung com Sintonizador Digital HDMI e USB 24
Smart TV LED 49 Semp Toshiba TCL 49S4900 Full HD com Conversor Digital 3 HDMI 2 USB Wi-Fi 49
Smart TV Led 49" Sony KD-49X705E Ultra HD 4K Conversor Digital Integrado 3 HDMI 3 USB Wi-Fi 49
TV LED 32" Panasonic TC-32D400B HD 2 HDMI e 1 USB 240Hz 32
Smart TV LED 32" HD Samsung HG32NE595JGXZD 2 HDMI Wi-Fi Integrado 32
TV LED 24" LG HD 24MT48DF-WS 1 HDMI 1 USB 60Hz com Conversor Digital Integrado - Branco 24
TV LED 28" LG 28LJ720B-PS HD com Conversor Digital 1 HDMI 1 USB 60Hz Time Machine Ready Preta 28
Smart TV LED 65" Samsung 65MU7000 Smart Tizen 4 HDMI 3USB 4K 65
TV LED 32" Semp DL3253 HD com Conversor Digital 2 HDMI 1 USB 60Hz - Preta 32
Smart TV LED 32" Philips 32PHG5201 HD Conversor Digital Integrado Wi-Fi 2 USB 3 HDMI 32
Smart TV Oled 3D 55" Samsung 55S9CA Full HD 4 HDMI 2 USB 120Hz + 2 Óculos 3D 3
TV LED 39'' Semp Toshiba TCL 3959 HD com Conversor Digital 2 HDMI 1 USB 39
Smart TV LED Android 40" Philco PTV40E20DSGWA Full HD com Conversor Digital 2 HDMI 1 USB Wi-Fi 60hz - Preta 40
TV LED 14" Philco PH14E10DB HD Conversor Digital Integrado HDMI USB 60Hz - Branco 14
Smart TV LED 43" Toshiba 43L2500 Full HD com Conversor Digital 2 HDMI 1 USB 60Hz 43
TV LED 24" Semp Toshiba HD com Conversor Digital 1 HDMI 1 USB L24D2700 24
Smart TV LED Curva 55" Samsung 55MU6500 UHD 4k com Conversor Digital 3 HDMI 2 USB HDR Premium Smart Tizen Controle Remoto Único Design 360º - Prata 55
Smart TV Led 55" Samsung 55MU7000 Ultra HD 4k com Conversor Digital 4 HDMI 3 USB Wi-Fi Smart Tizen Controle Remoto Único 120Hz 55
Smart TV LED 40'' Semp Toshiba TCL 40S4900 Full HD com Conversor Digital 3 HDMI 2 USB Wi-Fi 40
Smart TV QLED 55" Samsung Q7F UHD 4K Conversor Digital Wi-Fi 4 HDMI 3 USB 55
Smart TV LED 55" Philips 55PUG6102/78 UHD 4K com Conversor Digital 4 HDMI 2 USB Wi-Fi 60Hz 55
Smart TV LED 32" Philco PH32B51DSGWA HD com Conversor Digital 2 HDMI 2 USB Wi-Fi Android - Preta 32
Smart TV LED 32" AOC LE32S5970 HD com Wi-Fi 2 USB 3 HDMI TV Digital Controle com Botão Netflix 32
Smart TV LED 32" Philips 32phg5102/78 com Conversor Digital Wi-Fi integrado 2 USB 3 HDMI 32
Smart TV LED 43" Panasonic TC-43EX600B 4K Ultra HD HDR com Wi-Fi 3 USB 3 HDMI Hexa Chroma 43
Smart TV LED 50" Samsung 50mu6100 Hdr Premium, Smart Tizen Ultra HD 4K Conversor Digital Wi-Fi 3 HDMI 2 USB Tudo Em Uma Tela, Espelhamento de Tela 50
Smart TV LED 40" Samsung 40K5300 Full HD com Conversor Digital Integrado Wi-Fi 2 HDMI 1 USB com Tizen Gamefly Áudio Frontal 40
Smart TV LED 32" SEMP TCL L32S4700S HD com Conversor Dgital HDMI USB 60Hz - Preta 32
Smart TV LED 48" Samsung UN48JU6500GXZD Ultra HD 4K com Conversor Digital 4 HDMI 3 USB Wi-Fi 240Hz CMR 48
Smart TV LED 4K SUHD LG SJ9500 com Wi-Fi, HDR, webOS 3.5 e harman/kardon - 55 4
TV LED 16" Philco PH16D10DB HD com Conversor Digital HDMI USB Sleep timer Closed Caption Branco 16
Smart TV LED 49" Samsung 49J5200 Full HD com Conversor Digial 2 HDMI 1 USB Wi-Fi Screen Mirroring e Connect Share Movie 49
Smart TV LED 32'' Philco PH32E31DSGW HD com Conversor Digital 2 HDMI 1 USB Wi-Fi 32
TV LED 28'' Semp Toshiba TCL 28D2900 HD com Conversor Digital 1USB HDMI 3 60Hz Preta 28
Smart TV LED 48" Samsung UN48J5500AGXZD Full HD com Conversor Digital 3 HDMI 2 USB Wi-Fi 120Hz CMR 48
Smart TV LED 39" Philco PH39N91DSGWA HD com Conversor Digital 2 HDMI 2 USB Wi-Fi Android 39
Smart TV LED 55" Samsung KU6000 Ultra HD 4K com Conversor Digital 2 USB 3 HDMI 60Hz 55
TV LED 14" Philco PH14E10DB HD Conversor Digital Integrado HDMI USB 60Hz - Rosa 14
TV LED 19,5" LG 20MT49DF-PS HD com Conversor Digital 1 HDMI 1 USB 60Hz Time Machine Ready Preta 19
TV LED 14" Philco PH14E10DB HD Conversor Digital HDMI USB 60Hz 14
TV LED 32" Semp Toshiba L32D2900 HD com Conversor Digital 3 HDMI 1 USB 32
Smart TV LED 43'' Semp Toshiba TCL 43S4900 Full HD com Conversor Digital 3 HDMI 2 USB Wi-Fi 60Hz Preta 43
Smart TV 40" LED Panasonic TC-40ES600B Full HD com Wi-Fi 2 USB 3 HDMI Hexa Chroma e 60Hz 40
Smart TV LED 32" Philco PTV32E20DSGWA HD com Conversor Digital 2 HDMI 1 USB Wi-Fi Midiacast 60Hz - Preta 32
TV 32" LED HD UN32J4000A 1 USB, 2 HDMI, DTV, Connect Share Movie, Função Futebol - Samsung 32
TV LED 32" Samsung 32K4100 HD com Conversor Digital Proteção Tripla Design Slim 2 HDMI 1 USB 32
Smart TV Led 28 Philco Android Conversor Digital HD PH28N91DSGWA 28
Smart TV 4K Samsung Curva LED 49 com HDR Premium, Motion Rate 120Hz e Wi-Fi 4
Smart TV LED Curva 49'' Samsung 49MU6300 UHD 4k com Conversor Digital 3 HDMI 2 USB Espelhamento de T 49
Mini Tv Digital Portátil HD Tela 4.3 USB Sd Rádio Fm Isdb-t Monitor Exbom MTV-43A 4
Smart TV LED 32" HD Panasonic TC-32ES600B Wi-Fi, 2 USB, 3 HDMI, Media Player, My Home Screen 32
Smart TV LED 65'' Ultra HD 4k Semp TCL 65C2US HDMI USB Android TV Wi-Fi Integrado Conversor Digital 65
Smart TV LED Android 32" Philco Ph32e60dsgwa HD Conversor Digital 2 HDMI 2 USB 32
Smart TV LED 55" LG 55UJ7500 Ultra HD Conversor Digital Wi-Fi integrado 2 USB 4 HDMI webOS 3.5 Sistema de Som Ultra Surround 55
Smart TV LED 60" Philco PH60D16DSGWN Ultra HD 4k com Conversor Digital 3 HDMI 2 USB Wi-Fi 60Hz Preta 60
Smart TV OLED 65" LG OLED65E7P OLED Ultra HD Conversor Digital Wi-Fi integrado 3 USB 4 HDMI com webOS 3.5 Sistema de Som Dolby Surround 65
Smart TV Led 55" Sony KD-55X705E Ultra HD 4K Conversor Digital Integrado 3 HDMI 3 USB Wi-Fi 55
Smart TV LED 4K Ultra HD LG UJ6565 43 com Wi-Fi, webOS 3.5, Painel IPS e HDR 4
TV Monitor LED 24" HD Samsung T24D310LH com Conversor Digital, Entrada HDMI e USB 24
Smart TV LED 40" Philco Ph40e60dsgwa Full HD com Conversor Digital 2 HDMI 2 USB Wi-Fi 40
TV Led 32 LG Conversor Digital HD 32LV300C 32
Smart TV LED 48" Samsung UN48J5200 Full HD com Conversor Digital 2 HDMI 1 USB Connect Share Movie 48
Smart TV LED 40" Philco Ph40U21DSGW Full HD com Conversor Digital 3 HDMI 1 USB Wi-Fi 40
Smart TV LG WebOS 3.5 49" Ultra HD 4K 49UJ6525 Painel Ips, Hdr e Magic Mobile Connection 4 HDMI e 2 USB 120Hz + Lg Sound Bar Sj3 300w Rms 2.1 Canais 3
Smart TV LED 78" Samsung 78KS9000 Ultra HD 4K com Conversor Digital 3 USB 4 HDMI Wi-Fi Quantum Dot HDR 1000 Tizen One Control Design 360° - Preta 78
Smart TV LED 75" Samsung 75MU6100 UHD 4K HDR Premium com Conversor Digital 3 HDMI 2 USB 120Hz 75
Smart TV LED 82" Samsung 82MU7000 UHD 4K com Conversor Digital Integrado Wi-Fi 4 HDMI 3 USB com One Connect 82
Smart TV LED 55" Panasonic TC-55EX600B 4K Ultra HD HDR com Wi-Fi 55
Smart TV QLED 65" Samsung QN65Q8CAMGXZD UHD 4K com Conversor Digital 4 HDMI 3 USB Wi-Fi Tela Curva e Controle Remoto Único 65
TV LED 40'' Semp Toshiba TCL DL4053 Full HD com Conversor Digital 2 HDMI 1 USB 40
Smart TV LED 39" Philco PH39U20DSGW HD com Conversor Digital 3 HDMI 1 USB Wi-Fi 39
TV LED 24" PHILCO PH24E30DR HD Com Conversor Digital 2 HDMI 1 USB 60Hz 24
Smart TV LED 49" Samsung 49MU6120 Ultra HD 4k com Conversor Digital 3 HDMI 2 USB Wi-Fi HDR Premium Smart Tizen 49
TV LED 32" Philco PTV32D12D HD com Conversor Digital 1 USB 2 HDMI 60Hz - Preta 32
Smart TV LED Curva 55'' 4K Ultra HD UN55MU7500GXZD Samsung 55
TV LED 32" Sony KDL-32R305B HD com Conversor Digital 2 HDMI 1 USB 120hz 32
Smart TV Samsung QLED TV 65" UHD 4K Q8C + Smartphone Samsung Galaxy A8 - Ametista 65
Tv Led 32'' Philco - PTV32D12D 32
Smart TV LED Android 65" Philco PH65G60DSGWAG Ultra HD 4K com Conversor Digital 3 HDMI 2 USB com Google 60hz - Preta 65
Smart TV LED 28 HD LG 28MT49S-PS 2 HDMI USB Wi-Fi Integrado Conversor Digital 28
TV Monitor LED 20" (19.5") LG 20MT48DF-PS HD HDMI USB com Conversor Digital Integrado e Time Machine Ready 20
TV LED 32" Philco PH32E31DG HD com Conversor Digital HDMI USB Closed caption 60Hz 32
Smart TV LED 65" LG 65UJ6545 Ultra HD 4k Conersor Digital Wi-Fi 4 HDMI 2 USB Webos 3.5 Magic Mobile Connection 65
Smart TV LED Ambilight 65" Philips 65PUG6412/78 Ultra HD 4k com Conversor Digital 4 HDMI 2 USB Wi-Fi 60Hz - Prata 65
Smart TV LED Ambilight 55" Philips 55PUG6212/78 Ultra HD 4k com Conversor Digital 4 HDMI 2 USB Wi-Fi 60Hz - Preto 55
Smart TV LED 32 LG HD Conversor Digital com suporte parede 32LJ601C 32
TV LED 49'' LG Full HD 49LV300C 1 HDMI USB 49
Smart TV LED 55" Ultra-HD 4K Philco PH55A17DSGWA 55
Smart TV LED 43 LG Full HD Conversor Digital 2 controles suporte parede 43LJ551C 43
Smart TV LED 49" LG FULL HD Conversor Digital 2 controles com suporte parede 49LJ551C 49
Smart TV LED 40" Full HD Samsung LH40RBHBBBG/ZD 2 HDMI USB Wi-Fi Integrado Conversor Digital 40
Smart TV LED 32" Semp Toshiba TCL 32L2800 HD com Conversor Integrado 3 HDMI 2 USB Wi-Fi 60Hz - Preta 32
Smart TV LED 75" Samsung 75MU7000 Ultra HD 4k com Conversor Digital 4 HDMI 3 USB Wi-Fi Controle Remoto Único Borda Infinita One Connect 120Hz 75
Smart TV LED 32" Philco PTV32E21DSWN HD com Conversor Digital 2 HDMI 2 USB Digital Wi-Fi Netflix - Preta 32
Smart TV LED 40 Samsung Full HD Conversor Digital suporte parede LH40 40
Smart TV Android LED 50" Philco PH50A17DSGWA Full HD, Wi-Fi, 2 USB, 3 HDMI 50
Source: Americanas ratings.

Já a quantidade de TVs vendidas por polegadas está na Table 4

Clique para ver os códigos 
  # Apresentação da tabela em formato HTML
tb_questao_3.2 <- 
tb_questao_3.1 %>% 
  count(Inches) %>%                         # Exclui repetições
  arrange(Inches) %>% 
  rename(Sales = n) 
  
tb_questao_3.2[1:12,] %>% 
  kbl(
    format    = "html",
    align     = "c",
    booktabs  = TRUE
  ) %>%
  footnote(
    general  = "Source: Americanas ratings.",
    general_title = " ",
    footnote_as_chunk = TRUE,
    threeparttable    = TRUE
  ) %>%
  kable_styling(bootstrap_options = c("striped")) 
tb_questao_3.2[13:24, ] %>% 
    kbl(
    format    = "html",
    align     = "c",
    booktabs  = TRUE
  ) %>%
  kable_styling(bootstrap_options = c("striped"))

Table 4: TVs vendidas por polegadas (inches).

(a) Vendas
Inches Sales
3 5
4 18
14 14
16 114
19 9
20 111
24 169
28 121
32 1408
39 352
40 417
42 119
Source: Americanas ratings.
(b) Vendas
Inches Sales
43 1095
48 15
49 1128
50 136
55 455
58 297
60 2
65 24
75 6
78 1
82 1
85 6

4)

Transforme a variável reviewer_state em categórica e faça um gráfico do número de compras por Estado da Federação. Em seguida, faça um gráfico do número de compras por Regiões do Brasil (Norte, Sul, Nordeste, Centro-Oeste e Sudeste).

As vendas por Estado estão na Figure 1.

Clique para ver os códigos 
tb_questao_4 <- 
dados_americanas %>% 
  mutate(reviewer_state = factor(reviewer_state,
                                 levels = unique(.$reviewer_state))) %>% 
  count(reviewer_state) %>%  # Contabiliza as linas (vendas)
  rename("Sales"          = n, 
         "Reviewer State" = reviewer_state) %>% 
  drop_na() # Retira os locais com estados não informados

tb_questao_4 %>% 
  ggplot(aes(x = Sales,
             y = fct_reorder(`Reviewer State`, Sales))) +
  geom_point() +
  theme_bw() +
  labs(x     = "Sales",
       y     = "UF",
       title = "Total Sales by State")

Figure 1: Total Sales by State.

Já as vendas por Região estão na Figure 2.

Clique para ver os códigos 
tb_questao_4 %>% 
  mutate(`Reviewer Region` = fct_collapse(`Reviewer State`,
                                         "Sul" = c("SC", "PR", "RS"),
                                         "Norte" = c("PA", "AM", "AC",
                                                     "RR", "RO", "TO",
                                                     "RR", "AP"),
                                         "Nordeste" = c("BA", "PE", "PI",
                                                        "SE", "RN", "CE",
                                                        "MA", "PB", "AL"),
                                         "Sudeste" = c("RJ", "SP",
                                                       "MG", "ES"),
                                         "Centro-Oeste" = c("DF", "GO",
                                                            "MS", "MT"))) %>% 
  group_by(`Reviewer Region`) %>% 
  summarise(Sales = sum(Sales)) %>% 
  ggplot(aes(x = Sales,
             y = fct_reorder(`Reviewer Region`, Sales))) +
  geom_point() +
  theme_bw() +
  labs(x     = "Sales",
       y     = "Region")

Figure 2: Total Sales by Region.

5)

Considere apenas a informação da hora do dia em que a compra foi realizada. Faça um gráfico do número de compras em cada hora.

As vendas (reviewers) em cada hora estão na Figure 3.

Clique para ver os códigos 
dados_americanas %>% 
  select(submission_date) %>% 
  mutate(Hour = hour(submission_date)) %>% 
  group_by(Hour) %>% 
  summarise("Sales per hour" = n()) %>% 
  ggplot(aes(x = Hour,
             y = `Sales per hour`)) +
  geom_point(color = "red") +
  theme_bw() +
  labs(x     = "Reviewer Hour",
       y     = "Sales",
       title = "Reviewers per hour")

Figure 3: Total Sales per Hour.

6)

Acrescente 1 coluna no banco de dados com a informação da data da compra no seguinte formato, exemplo: 11 de Janeiro, 2018.

A coluna com o formato pode ser vista na Table 5.

Clique para ver os códigos 
tb_questao_6 <- 
dados_americanas %>% 
  mutate(Data = format(submission_date, "%d de %B, %Y")) %>% 
  select("Product name" = product_name, Data)

  # Apresentação da tabela em formato HTML
head(tb_questao_6, n = 10) %>% 
  bind_rows(tail(tb_questao_6, n = 10)) %>% 
  kbl(
    format    = "html",
    align     = "c",
    booktabs  = TRUE
  ) %>%
  footnote(
    general  = "Source: Americanas ratings.",
    general_title = " ",
    footnote_as_chunk = TRUE,
    threeparttable    = TRUE
  ) %>%
  kable_styling(bootstrap_options = c("striped")) %>%
  column_spec(1, width = "14cm")
Table 5: 10 primeiros e últimos reviews com data.
Product name Data
Notebook Asus Vivobook Max X541NA-GO472T Intel Celeron Quad Core 4GB 500GB Tela LED 15,6" Windows - 10 Branco 01 de janeiro, 2018
Copo Acrílico Com Canudo 500ml Rocie 01 de janeiro, 2018
Panela de Pressão Elétrica Philips Walita Daily 5L com Timer 01 de janeiro, 2018
Betoneira Columbus - Roma Brinquedos 01 de janeiro, 2018
Smart TV LED 43" LG 43UJ6525 Ultra HD 4K com Conversor Digital 4 HDMI 2 USB WebOS 3.5 Painel Ips HDR e Magic Mobile Connection 01 de janeiro, 2018
Copo Acrílico Com Canudo 500ml Rocie 01 de janeiro, 2018
Copo Acrílico Com Canudo 500ml Rocie 01 de janeiro, 2018
Smartphone Motorola Moto G 5S Dual Chip Android 7.1.1 Nougat Tela 5.2" Snapdragon 430 32GB 4G Câmera 16MP - Platinum 01 de janeiro, 2018
Ventilador de Teto Ventisol Fenix Premium Branco 3 velocidades com Controle Remoto 01 de janeiro, 2018
Kit 10 Peças Fita Led 12v 5050 300 Leds Rgb + Fonte 01 de janeiro, 2018
Kit Medidor De Glicose Free Lite C/100 Tiras Teste G-Tech 31 de maio, 2018
Travesseiro Nasa Kit 2 Pecas - Antialergico - Toque Macio 31 de maio, 2018
Smart TV LED 39" Philco PH39N86DSGW HD com Conversor Digital 3 HDMI 1 USB Wi-Fi Closed Caption e Sleep timer 31 de maio, 2018
Smart TV LED 43" Samsung 43MU6100 UHD 4K HDR Premium com Conversor Digital 3 HDMI 2 USB 120Hz 31 de maio, 2018
Tela de Projeção Retrátil 1,80x1,80m TRM180SA - TES 31 de maio, 2018
Carregador De Pilha Sony + 4 Pilhas Aa 2500mah 31 de maio, 2018
Mop Giratório Fit + Refil Extra - At Home 31 de maio, 2018
Fita Led 5m Rgb 3528 Siliconada Com 300 Leds Controle Fonte 31 de maio, 2018
Etiquetas Jurídicas Vade Mecum - Marca Fácil 31 de maio, 2018
Painel de Fotos Bee Colection Rue Bac (74x94x3cm) Preto para 28 Fotos - Kapos 31 de maio, 2018
Source: Americanas ratings.

7)

Crie uma função para reordenar as linhas de um dataframe de modo que as linhas que contenham observações indisponíveis (NAs) sejam colocadas no final. Dê ao usuário a opção de eliminar as linhas com observações faltantes. Use a função para retornar uma lista com o dataframe reordenado (ou reduzido) e os índices das linhas com NAs. Por fim, teste sua função com alguns exemplos interessantes.

Clique para ver os códigos 
organiza_NA <- function(dataframe, remove.na = FALSE){
  
    # Identifica os índices
  lista_na <- 
    which(is.na(dataframe),
          arr.ind = TRUE) %>% 
    as.data.frame() %>% 
    select(row) %>% 
    distinct() %>% 
    arrange()
  
  names(lista_na) <- "Linhas com NA"

  # Pergunta se é pra remover ou colocar ao final
if(remove.na){
  # Retira NAs
  tabela <- 
    dataframe %>% 
    drop_na()
  
  lista_final <- list("Tabela reduzida" = tabela,
                      "Linhas com NA" = lista_na)
    
 
  
} else {
  # Organiza NAs ao final
  tabela <- 
    dataframe %>% 
    map_df(~sort(.x, na.last = TRUE)) 
  
  lista_final <- list("Tabela NA ao final" = tabela,
                      "Linhas com NA" = lista_na)
}
  
lista_final
  
}

Um exemplo se dá pelo uso da própria tabela do exercício anterior, em uma versão com 20 observações. A versão reduzida está na @tbl-. A versão organizada ao final está na

Clique para ver os códigos 
tb_questao_7 <- 
dados_americanas %>% 
  select("Product name" = product_name,
         "Product Brand" = product_brand, 
         "Reviewer Gender" = reviewer_state) %>% 
  head(n = 30)

lista_organizada <- organiza_NA(dataframe =  tb_questao_7)

lista_reduzida <- organiza_NA(dataframe =  tb_questao_7,
                                remove.na = TRUE)
Clique para ver os códigos 
lista_organizada %>% 
  kbl(
    format    = "html",
    align     = "c",
    booktabs  = TRUE
  ) %>%
  footnote(
    general  = "Source: Americanas ratings.",
    general_title = " ",
    footnote_as_chunk = TRUE,
    threeparttable    = TRUE
  ) %>%
  kable_styling(bootstrap_options = c("striped")) %>%
  column_spec(1, width = "14cm")
Table 6: Tabela com NAs ao final
Product name Product Brand Reviewer Gender
Aspirador de Pó Philco Rapid 1000N Vermelho/Preto - 1000W cadence BA
Barra De Cereal Nestlé Banana, Aveia E Mel 60g 3 Unidades cadence ES
Betoneira Columbus - Roma Brinquedos lg ES
Cafeteira Elétrica Cadence Single CAF111 com 2 Xícaras - Vermelho lg GO
Câmera Estilo Go-Pro Sports Hd 1080p Esportes Radicais philco MG
Camiseta Speedo Basic Blend UV 50+ philips walita MG
Capa Protetora Toyota Corola Com Cadeado roma jensen PA
Chaleira Elétrica Cadence CEL800 1,7 Litros Inox Prime samsung PE
Conjunto de Panelas Antiaderente Turim 10 Peças Vermelha Tramontina speedo PI
Copo Acrílico Com Canudo 500ml Rocie ventisol PR
Copo Acrílico Com Canudo 500ml Rocie NA RJ
Copo Acrílico Com Canudo 500ml Rocie NA RJ
Copo Acrílico Com Canudo 500ml Rocie NA RJ
Copo Acrílico Com Canudo 500ml Rocie NA RJ
Kit 10 Peças Fita Led 12v 5050 300 Leds Rgb + Fonte NA RJ
Mochila Sport Escolar Camping Trilha Viagem Passeio NA RJ
Mop Giratório Fit + Refil Extra - At Home NA RS
Notebook Asus Vivobook Max X541NA-GO472T Intel Celeron Quad Core 4GB 500GB Tela LED 15,6" Windows - 10 Branco NA RS
Panela de Pressão Elétrica Philips Walita Daily 5L com Timer NA SC
Penteadeira Jb 7200 Com Banqueta Amarelo - Jb Bechara NA SP
Smart TV Android LED 49" TCL C2 49C2US Ultra HD 4K com Conversor Digital Soundbar Integrado 3 HDMI e 2 USB 120Hz - Preta NA SP
Smart TV LED 43" LG 43UJ6525 Ultra HD 4K com Conversor Digital 4 HDMI 2 USB WebOS 3.5 Painel Ips HDR e Magic Mobile Connection NA SP
Smart TV LED 65" Samsung 65MU6100 UHD 4K HDR Premium com Conversor Digital 3 HDMI 2 USB 120Hz NA SP
Smartphone LG K10 Dual Chip Android 6.0 Marshmallow Tela 5.3" 16GB 4G Câmera 13MP TV Digital - Dourado NA SP
Smartphone Motorola Moto G 5S Dual Chip Android 7.1.1 Nougat Tela 5.2" Snapdragon 430 32GB 4G Câmera 16MP - Dourado NA SP
Smartphone Motorola Moto G 5S Dual Chip Android 7.1.1 Nougat Tela 5.2" Snapdragon 430 32GB 4G Câmera 16MP - Platinum NA SP
Smartphone Samsung Galaxy A5 2016 Dual Chip Android 5.1 Tela 5.2" 16GB 4G Câmera 13MP - Dourado NA SP
Tênis Casual Conforto Beira Rio NA NA
Toldo Versátil Artplas 120x60cm Branco E Cristal NA NA
Ventilador de Teto Ventisol Fenix Premium Branco 3 velocidades com Controle Remoto NA NA
Linhas com NA
1
2
6
7
8
10
11
13
14
15
16
17
18
19
20
22
24
25
28
29
Source: Americanas ratings.
Clique para ver os códigos 
lista_reduzida %>% 
  kbl(
    format    = "html",
    align     = "c",
    booktabs  = TRUE
  ) %>%
  footnote(
    general  = "Source: Americanas ratings.",
    general_title = " ",
    footnote_as_chunk = TRUE,
    threeparttable    = TRUE
  ) %>%
  kable_styling(bootstrap_options = c("striped")) %>%
  column_spec(1, width = "14cm")
Table 7: Tabela sem NAs
Product name Product Brand Reviewer Gender
Panela de Pressão Elétrica Philips Walita Daily 5L com Timer philips walita SP
Betoneira Columbus - Roma Brinquedos roma jensen SP
Smart TV LED 43" LG 43UJ6525 Ultra HD 4K com Conversor Digital 4 HDMI 2 USB WebOS 3.5 Painel Ips HDR e Magic Mobile Connection lg MG
Ventilador de Teto Ventisol Fenix Premium Branco 3 velocidades com Controle Remoto ventisol SP
Aspirador de Pó Philco Rapid 1000N Vermelho/Preto - 1000W philco RJ
Smartphone LG K10 Dual Chip Android 6.0 Marshmallow Tela 5.3" 16GB 4G Câmera 13MP TV Digital - Dourado lg PE
Cafeteira Elétrica Cadence Single CAF111 com 2 Xícaras - Vermelho cadence RJ
Chaleira Elétrica Cadence CEL800 1,7 Litros Inox Prime cadence SP
Camiseta Speedo Basic Blend UV 50+ speedo RS
Smartphone Samsung Galaxy A5 2016 Dual Chip Android 5.1 Tela 5.2" 16GB 4G Câmera 13MP - Dourado samsung PI
Linhas com NA
1
2
6
7
8
10
11
13
14
15
16
17
18
19
20
22
24
25
28
29
Source: Americanas ratings.

Footnotes

  1. Matrícula: 200060023.↩︎

  2. Matrícula: 200060023.↩︎

  3. Matrícula: 200060023.↩︎

  4. Para que houvesse espaço para a tabela, foram retiradas as observações em que o sexo do(a) avaliador(a) não estava disponível.↩︎

  5. São 132,373 produtos.↩︎