In cienciadedatos/dados: Translate Datasets to Portuguese

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/",
  out.width = "100%"
)

library(dados)
library(ggplot2)
library(dplyr)
library(purrr)
library(stringr)
knitr::opts_chunk$set(echo = TRUE)

dados

Este pacote disponibiliza a tradução de conjuntos de dados em inglês originalmente disponíveis em outros pacotes de R. Os dados traduzidos são utilizados nos exemplos do livro R for Data Science de Hadley Wickham & Garrett Grolemund, cuja versão em português foi publicada por AltaBooks & O'Reilly.

Instalação

Este pacote pode ser instalado a partir do CRAN:

install.packages("dados")

A versão de desenvolvimento pode ser instalada a partir do GitHub:

# install.packages("remotes")
remotes::install_github("cienciadedatos/dados")

Traduções

As traduções disponíveis dentro de dados são as seguintes:

specs <- list.files("inst/specs")
all <- map(file.path("inst", "specs", specs), yaml::read_yaml)
sources <- map_chr(all, ~.x$df$source)
pkgs <- tibble(
  Nome = map_chr(all, ~.x$df$name),
  `Título` = map_chr(all, ~.x$help$title),
  Pacote = map_chr(strsplit(sources, "::"), ~.x[[1]]),
  Dataset = map_chr(strsplit(sources, "::"), ~.x[[2]])
)


pkgs %>%
  arrange(Pacote, Dataset) %>%
  knitr::kable()

Os dados para praticar a manipulação de strings são frases, palavras e frutas.

Uso

O pacote dados pode ser carregado como qualquer outro pacote de R:

library(dados)
library(ggplot2)
library(dplyr)

Ao carregar o pacote, as variáveis que contêm os dados estarão disponíveis imediatamente para uso. Porém, os dados não serão traduzidos até que a variável seja "chamada" explicitamente por um comando. Neste exemplo, o conjunto de dados diamante, que provém de ggplot2::diamonds, é carregado no workspace do R no momento em que o chamamos pela primeira vez em português:

glimpse(diamante)

Os dados traduzidos permanecerão carregados em sua sessão de R:

diamante %>%
  filter(corte == "Bom") %>%
  ggplot() +
  geom_boxplot(aes(transparencia, preco, fill = transparencia)) +
  theme(legend.position = "none") +
  labs(title = "Diamantes", subtitle = "Preço e transparência", y = "Preço", x = "Transparência")