---
title: "DashBoard de gráficos estadísticos"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    social: menu
    source: embed
---

```{r setup, include=FALSE}
library(flexdashboard)

library(ggplot2)

library(datos)

```

# Data {data-icon="fa-chart-bar"}

Column {data-width=650}
-----------------------------------------------------------------------

### Gr?fico_barras_01

```{r}
ggplot(data=diamantes)+
  coord_flip()+
  geom_bar(mapping = aes(x=corte,  fill=claridad))
```

Column {data-width=350}
-----------------------------------------------------------------------

### Gráfico_barras_02

```{r}
ggplot(data = diamantes)+
  geom_bar(mapping = aes(x=corte),fill="blue", color="red")
```

### Gráfico_barras_03

```{r}
ggplot(data=diamantes)+
  geom_bar(mapping = aes(x=corte, y=..prop.., group=1),fill="blue")
```


# Bar_Charts_02 {data-icon="fa-chart-bar"}

Column {data-width=550}
----------------------------------------------------------------------

### Gráfico_barras_04

```{r}
ggplot(data=diamantes)+
  coord_flip()+
  geom_bar(mapping = aes(x=corte,  fill=corte))
```

Column {data-width=450}
-----------------------------------------------------------------------

### Gráfico_barras_05

```{r}
ggplot(data=diamantes)+
  coord_flip()+
  geom_bar(mapping = aes(x=corte,  fill=claridad))
```


### Gráfico_06

```{r}
ggplot(data=diamantes)+
  geom_bar(mapping = aes(x=corte, y=..prop.., group=1),fill="blue")
```