---
title: "Zbiory danych"
output: flexdashboard::flex_dashboard
---

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

# iris

## Gatunki

### Gatunki
```{r}
p <- iris %>% 
  ggplot(aes(y=Sepal.Width, x=Sepal.Length, color=Species)) +
    geom_point() 

ggplotly(p)
```

## Kolumna II

### Szerokość płatka (1)
```{r}
p <- iris %>% 
  ggplot(aes(x=Sepal.Width, fill=Species)) +
    geom_histogram(bins=13) 

ggplotly(p)
```

### Szerokość płatka(2)
```{r}
p <- iris %>% 
  ggplot(aes(x=Sepal.Width, y=Sepal.Length, color=Petal.Width)) +
    geom_point() 

ggplotly(p)

# diamonds