Diagramas de barras

---
title: "Mi primer dashboard con FlexDashboard en RMarkdown"
author: "Renzo Crispin Díaz"
date: "`r Sys.Date()`"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source: embed
    social: menu
    theme: united
---

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

library(ggplot2)

library(lattice)

library(reticulate)

```

# Diagramas de barras {data-icon="fa-chart-column"}

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

### barplot

```{r barplot,fig.align='center'}
x <- table(mtcars$gear)

colores <- c("dark blue","orange","purple")

barplot(x,xlab="Llantas",ylab="Frecuencias",main="Número de llantas",col=colores)
x
```

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

### ggplot2

```{r ggplot2,fig.align='center'}
ggplot(mtcars,aes(gear)) + geom_bar(fill=colores) + labs(x="Llantas",y="Frecuencias",title="Número de llantas") + theme_gray()

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


### Lattice

```{r lattice,fig.align='center'}
carburadores <- table(mtcars$carb)
barchart(carburadores,xlab="Carburadores",ylab="Frecuencias",main="Número de carburadores",col=colores,horizontal=TRUE)

```
# Pie chart {data-icon="fa-chart-pie"}

Column {data-width=1000}
-----------------------------------------------------------------------

La función `pie` nos permite crear diagramas circulares en el lenguaje de programación R.

```{r piechart,fig.align='center'}
carburadores_tabla <- table(mtcars$carb)
porcentaje <- round(100*carburadores_tabla/sum(carburadores_tabla), 1)
pielabels<- paste(porcentaje, "%", sep="")
pie(carburadores_tabla,col = rainbow(length(carburadores_tabla)), labels = porcentaje , 
    main = '% de carburadores', cex = 0.8)
legend("topright", c("Carburador 1","Carburador 2","Carburador 3",
                     "Carburador 4","Carburador 6","Carburador 8"), 
       cex=0.8, fill=  rainbow(length(carburadores_tabla)))
```