ZIWAUA0/Rodział 6/flexboard_661.Rmd
2020-04-17 20:10:04 +02:00

44 lines
637 B
Plaintext

---
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}
iris %>%
ggplot(aes(y=Sepal.Width, x=Sepal.Length, color=Species)) +
geom_point()
```
## Kolumna II
### Szerokość płatka (1)
```{r}
iris %>%
ggplot(aes(x=Sepal.Width, fill=Species)) +
geom_histogram(bins=13)
```
### Szerokość płatka(2)
```{r}
iris %>%
ggplot(aes(x=Sepal.Width, y=Sepal.Length, color=Petal.Width)) +
geom_point()
```
# diamonds