43 lines
599 B
Plaintext
43 lines
599 B
Plaintext
---
|
|
title: "Diamonds distribution dashboard"
|
|
output: flexdashboard::flex_dashboard
|
|
---
|
|
|
|
```{r setup, include = FALSE}
|
|
library(ggplot2)
|
|
library(dplyr)
|
|
knitr::opts_chunk$set(fig.width = 5, fig.asp = 1/3)
|
|
```
|
|
|
|
## Column 1
|
|
|
|
### Carat
|
|
|
|
```{r}
|
|
ggplot(diamonds, aes(carat)) + geom_histogram(binwidth = 0.1)
|
|
```
|
|
|
|
### Cut
|
|
|
|
```{r}
|
|
ggplot(diamonds, aes(cut)) + geom_bar()
|
|
```
|
|
|
|
### Colour
|
|
|
|
```{r}
|
|
ggplot(diamonds, aes(color)) + geom_bar()
|
|
```
|
|
|
|
## Column 2
|
|
|
|
### The largest diamonds
|
|
|
|
```{r}
|
|
diamonds %>%
|
|
arrange(desc(carat)) %>%
|
|
head(100) %>%
|
|
select(carat, cut, color, price) %>%
|
|
DT::datatable()
|
|
```
|