---
title: "MI PRIMER DASHBOARD"
author: "Maria Kathya Alvarez Balbuena"
date: "31-05-2022"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    theme: darkly
    source: embed
    social: ['facebook','twitter','linkedin','instagram']
---

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

# Diagramas de Barras {data-icon="fa-chart-bar"}

Column {data-width=333}
-----------------------------------------------------------------------

### barplot()

```{r barplot,fig.align='center'}
data("CPS1985")

x <- table(CPS1985$occupation)

barplot(x,xlab="Ocupaciones",ylab="Frecuencias",main="Distribución de la Ocupación",col=heat.colors(6))
```

Column {data-width=333}
-----------------------------------------------------------------------

### ggplot2

```{r ggplot2,fig.align='center'}
colores <- c("pink","skyblue","purple")

ggplot(CPS1985,aes(ethnicity)) + geom_bar(fill=colores) + labs(x="Raza",y="Empleados",title="Diagrama de Barras por grupo étnico") + theme_dark()
```

Column {data-width=334}
-----------------------------------------------------------------------

### ggplot2 con barras agrupadas

```{r,fig.align='center'}

ggplot(CPS1985,aes(ethnicity, fill=gender)) + geom_bar(position = "dodge") + labs(x="Raza",y="Empleados",title="Distribución de grupo étnico por Género") + scale_fill_brewer(palette = "Accent","Género",labels=c("Masculino","Femenino"))
```

# Diagramas de Sectores {data-icon="fa-chart-pie"}

Column {data-width=500}
-----------------------------------------------------------------------

### Pie chart1

```{r pie_chart1,fig.align='center'}
x <- table(CPS1985$occupation)

pie(x,col = heat.colors(6),main="Gráfico de sectores por Ocupación")
```

Column {data-width=500}
-----------------------------------------------------------------------

### Pie chart2

```{r pie_chart_02,fig.align='center'}
x1 <- table(CPS1985$ethnicity)

colores2 <- c("pink","skyblue","purple")

pie(x1,col = colores2,main="Gráfico de sectores por grupo étnico")
```