Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(presenter)
library(dplyr)
## -----------------------------------------------------------------------------
iris %>%
summarize(across(where(is.numeric), mean), .groups = "drop") -> sumr0
sumr0
## -----------------------------------------------------------------------------
sumr0 %>%
pivot_summary()
## -----------------------------------------------------------------------------
iris %>%
group_by(Species) %>%
summarize(across(where(is.numeric), mean), .groups = "drop") -> sumr1
sumr1
## -----------------------------------------------------------------------------
sumr1 %>%
pivot_summary(Species)
## -----------------------------------------------------------------------------
iris %>%
mutate(Species1 = sample(Species)) %>%
group_by(Species, Species1) %>%
summarize(across(where(is.numeric), mean), .groups = "drop") -> sumr2
sumr2
## -----------------------------------------------------------------------------
sumr2 %>%
pivot_summary(matches("Spec"))
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.