---
title: "Rozkład danych diamentów"
output: flexdashboard::flex_dashboard
---

```{r setup, include = FALSE}
library(DT)
library(ggplot2)
library(dplyr)
knitr::opts_chunk$set(fig.width = 5, fig.asp = 1/3)
```

## Kolumna 1

### Karaty (zmienna carat)

```{r}
ggplot(diamonds, aes(carat)) + geom_histogram(binwidth = 0.1)
```

### Szlif (zmienna cut)

```{r}
ggplot(diamonds, aes(cut)) + geom_bar()
```

### Kolor (zmienna color)

```{r}
ggplot(diamonds, aes(color)) + geom_bar()
```

## Kolumna 2

### Największe diamenty

```{r}
diamonds %>% 
  arrange(desc(carat)) %>% 
  head(100) %>% 
  select(carat, cut, color, price) %>% 
  DT::datatable()
```