Tabelas e gráficos simples no R: Uma análise do Esquisse, flexpivot e rpivotTable
O objetivo do pacote Esquisse é permitir que você explore seus dados rapidamente para extrair as informações que eles contêm. Você pode criar visualização com ggplot2 e recuperar o código gerado para reproduzi-lo. Esse é o jeito simples de construir um gráfico com o ggplot2
Fazer um gráfico do ggplot2 é facil com o pacote esquisse. Depois de instalar o pacote, você deve procurar o “Addins” chamado ggplot2 builder. O próximo passo é navegar na nova janela que foi aberta e construir o seu gráfico. Depois de escolher o seu gráfico, clique em Export & code. O gif abaixo mostra o funcionamento.
O pacote flexpivot
Inspirado no Esquisse, o pacote flexpivot faz a mesma coisa , mas com tabelas. Ele é utilizado para criar tabelas de frequência para usar no Shiny e no Rmarkdown. O código abaixo mostra o funcionamento básico.
# remotes::install_github("DATAUNIRIO/flexpivot")
library(flexpivot)
library(magrittr)
#------------------------------------------------
#pivot_addin(nobel_laureates)
#------------------------------------------------
nobel_laureates %>%
subset(category %in% c("Chemistry", "Physics")) %>%
pivot_table("category", "gender") %>%
pivot_format()gender | ||||
category | Statistic | male | female | Total |
Chemistry | N | 179 | 5 | 184 |
% | 45.1% | 1.3% | 46.4% | |
Col % | 46% | 62.5% | 46.4% | |
Row % | 97.3% | 2.7% | 100% | |
Physics | N | 210 | 3 | 213 |
% | 52.9% | 0.8% | 53.6% | |
Col % | 54% | 37.5% | 53.6% | |
Row % | 98.6% | 1.4% | 100% | |
Total | N | 389 | 8 | 397 |
% | 98% | 2% | 100% | |
Col % | 100% | 100% | 100% | |
Row % | 98% | 2% | 100% | |
Utilizando na base de dados CARROS
CARROS %>%
pivot_table("TipodeMarcha", "Cilindros") %>%
pivot_format()Cilindros | |||||
TipodeMarcha | Statistic | 4 | 6 | 8 | Total |
Automático | N | 3 | 4 | 12 | 19 |
% | 9.4% | 12.5% | 37.5% | 59.4% | |
Col % | 27.3% | 57.1% | 85.7% | 59.4% | |
Row % | 15.8% | 21% | 63.2% | 100% | |
Manual | N | 8 | 3 | 2 | 13 |
% | 25% | 9.4% | 6.2% | 40.6% | |
Col % | 72.7% | 42.9% | 14.3% | 40.6% | |
Row % | 61.5% | 23.1% | 15.4% | 100% | |
Total | N | 11 | 7 | 14 | 32 |
% | 34.4% | 21.9% | 43.8% | 100% | |
Col % | 100% | 100% | 100% | 100% | |
Row % | 34.4% | 21.9% | 43.8% | 100% | |
CARROS %>%
pivot_table("TipodeMarcha", "NumdeMarchas") %>%
pivot_format()NumdeMarchas | |||||
TipodeMarcha | Statistic | 3 | 4 | 5 | Total |
Automático | N | 15 | 4 | 0 | 19 |
% | 46.9% | 12.5% | 0% | 59.4% | |
Col % | 100% | 33.3% | 0% | 59.4% | |
Row % | 79% | 21% | 0% | 100% | |
Manual | N | 0 | 8 | 5 | 13 |
% | 0% | 25% | 15.6% | 40.6% | |
Col % | 0% | 66.7% | 100% | 40.6% | |
Row % | 0% | 61.5% | 38.5% | 100% | |
Total | N | 15 | 12 | 5 | 32 |
% | 46.9% | 37.5% | 15.6% | 100% | |
Col % | 100% | 100% | 100% | 100% | |
Row % | 46.9% | 37.5% | 15.6% | 100% | |
#-------------------------------------------------------
#pivot_addin(CARROS)
#-------------------------------------------------------
# Pacotes relacionados
# devtools::install_github("DanChaltiel/crosstable")
# devtools::install_github("DanChaltiel/crosstableAssistant")
# This crosstableAssistant package is highly inspired by dreamRs’ amazing addin esquisse
# library(crosstable)
# library(cross)
# meu_banco_de_dados <- crosstable::mtcars2
# crosstableAssistant(meu_banco_de_dados)O pacote rpivotTable
O pacote rpivotTable é uma alternativa ao esquisse e ao flexpivot.
library(rpivotTable)
rpivotTable(CARROS)