49 lines
687 B
Plaintext
49 lines
687 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}
|
||
|
|
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
|
||
|
|
|
||
|
|
|