Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(dplyr) library(explore)
A classic count()
returns the number of observations.
data <- use_data_penguins() data %>% count(island)
To add percent values, simply use count_pct()
from {explore}.
data %>% count_pct(island)
data %>% glimpse()
To add an id variable, simply use add_var_id()
from {explore}.
data %>% add_var_id() %>% glimpse()
Create a user defined report (RMarkdown template) to explore your own data.
create_notebook_explore( output_dir = tempdir(), output_file = "notebook-explore.Rmd")
Create a Data Dictionary of a data set (Markdown File data_dict.md)
```{R eval=FALSE, echo=TRUE} iris %>% data_dict_md(output_dir = tempdir())
Add title, detailed descriptions and change default filename ```{R eval=FALSE, echo=TRUE} description <- data.frame( variable = c("Species"), description = c("Species of Iris flower")) data_dict_md(iris, title = "iris flower data set", description = description, output_file = "data_dict_iris.md", output_dir = tempdir())
data <- use_data_titanic(count = FALSE) glimpse(data)
data <- data %>% clean_var(Age, name = "age") glimpse(data)
data <- use_data_beer() data %>% describe(energy_kcal_100ml)
data <- data %>% clean_var(energy_kcal_100ml, na = 42) data %>% describe(energy_kcal_100ml)
data <- create_data_person() data %>% describe(age)
data <- data %>% clean_var(age, min_val = 20, max_val = 80) data %>% describe(age)
data %>% describe(income)
data <- data %>% clean_var(income, rescale01 = TRUE) data %>% describe(income)
data[1, "handset"] <- " android " data[2, "handset"] <- "ANDROID" data %>% describe(handset)
data <- data %>% clean_var(handset, simplify_text = TRUE) data %>% describe(handset)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.