---
title: "tablero 1"
author: "Juan Felipe Duque Rodriguez"
date: "2024-04-04"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(plotly)
library(plyr)
data("iris")

```

# Encabezado 1

## Row

### Grafico 1

```{r grafico}
p <- ggplot(iris, aes(x=Sepal.Length, y=Petal.Length)) +
            geom_point(shape=1)      # Use hollow circles
ggplotly(p)
```

### Grafico 2

```{r grafico2}
p <- ggplot(iris, aes(x=Sepal.Length, y=Petal.Width)) +
            geom_point(shape=1)      # Use hollow circles
ggplotly(p)
```

# Estadisticas

## Row

```{r estadisticas}
summary (iris)

```

Histogramas
=======================================================================

Row
-----------------------------------------------------------------------

### Sepal Length
```{r sepal1}
ggplot(iris, aes(Sepal.Length))+
  geom_histogram(fill="red")
```

Row
-----------------------------------------------------------------------

### Sepal Width
```{r sepal2}
ggplot(iris, aes(Sepal.Width))+
  geom_histogram(fill="blue")
```

Row
-----------------------------------------------------------------------

### Petal Length
```{r petal1}
ggplot(iris, aes(Petal.Length))+
  geom_histogram(fill="green")
```

Row
-----------------------------------------------------------------------

### Petal.Width
```{r petal2}
ggplot(iris, aes(Petal.Width))+
  geom_histogram(fill="gold")

```



Cajas
=======================================================================

Row
-----------------------------------------------------------------------

### Caja Sepal Length

```{r caja1}
ggplot(iris, aes(Sepal.Length))+
  geom_boxplot(fill="red")
```

Row
-----------------------------------------------------------------------

### Caja Sepal Width

```{r caja2}
ggplot(iris, aes(Sepal.Width))+
  geom_boxplot(fill="blue")
```


Row
-----------------------------------------------------------------------

### Caja Petal Length

```{r caja3}
ggplot(iris, aes(Petal.Length))+
  geom_boxplot(fill="green")
```

Row
-----------------------------------------------------------------------

### Caja Petal Width

```{r caja4}
ggplot(iris, aes(Petal.Width))+
  geom_boxplot(fill="gold")
```