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

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