---
title: "Explore"
output: 
  html_document
---

## Describe Data

```{r fig.height=3, echo=FALSE, message=FALSE, warning=FALSE}
data %>% explore_tbl()
```

```{r echo=FALSE, message=FALSE, warning=FALSE}
describe_tbl(data)
d <- describe(data)
knitr::kable(d)
```

## Explore Variables

```{r include=FALSE}
# create buckets of variables
buckets <- data %>% 
  explore::get_var_buckets(
    bucket_size = 100
  )

# height of each plot
fig_height <- data[buckets[[1]]] %>% 
  explore::total_fig_height()

```

```{r echo=FALSE, fig.height=fig_height, fig.width=10, message=FALSE, warning=FALSE}
for (i in seq_along(buckets)) {
  data[buckets[[i]]] %>% explore_all(color = color_report_plot)
}
```

