---
title: "Bar Charts - R"
output:
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    theme: united
    social: ['facebook','twitter','linkedin','pinterest']
    source: embed
---

<!-- Flexdashboard nos permite crear cuadros de control en RMarkdown -->

```{r setup,include=FALSE}

library(ggplot2)

library(lattice)

library(DT)

library(dplyr)

library(RColorBrewer)

knitr::opts_chunk$set(echo = FALSE)
```


<style>


div.a{

font-size: 15px;

}



div.b{

font-family: Arial;

}

</style>


# Overview {.sidebar}

<div class="a">

<div class="b">

<div style="text-align: justify;">

El presente **Dashboard** nos muestra los aspectos básicos de la creación de diagramas de barras (**Bar Charts**) en el lenguaje de programación R, haciendo uso de la función base `barplot()`, así como de los paquetes (**packages**) ggplot2, lattice, entre otros.
<br>
Se utilizara como base el data set **mtcars** y sus variables cyl (**cilindros**), gear (**engranajes**), carb (**carburadores**).
<br>
Incluiremos otros gráficos estadísticos como Histogramas, Pie Charts y gráficos de líneas.

</div>

</div>

</diV>


# mtcars tables {data-icon=fa-table}


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

### DT - mtcars table


```{r}

mtcars_table <- select(mtcars,cyl,gear,carb)

datatable(mtcars_table,class="cell-border hover")

```



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

### Bar Charts - cyl - gear - carb

```{r}

x <- table(mtcars$cyl)

y <- table(mtcars$gear)

z <- table(mtcars$carb)

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

par(mfrow=c(2,2))

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

barplot(y,xlab="Engranajes",ylab="Frecuencias",main="Número de Engranajes",col=rainbow(3))

barplot(z,xlab="Carburadores",ylab="Frecuencias",main="Número de Carburadores", col=rainbow(6))



```



# BarCharts_001 {data-icon=fa-bar-chart}


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

### barplot()

```{r}
x <- table(mtcars$cyl)

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

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


```



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

### ggplot2

```{r}

ggplot(mtcars,aes(cyl)) + geom_bar(fill=colores) + labs(x="Cillindros",y="Frecuencias",title="Número de Cilindros") + theme_dark()

```



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

### lattice

```{r}

barchart(x,xlab="Cilindros",ylab="Frecuencias",main="Número de Cilindros",col=colores,horizontal=FALSE)

```



# BarChars_002 {data-icon=fa-bar-chart}


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

### var_gear

```{r}

y <- table(mtcars$gear)

barplot(y,xlab="Engranajes",ylab="Frecuencias",main="Número de Engranajes",col=rainbow(3))


```



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

### var_carb

```{r}

z <- table(mtcars$carb)

barplot(z,xlab="Carburadores",ylab="Frecuencias",main="Número de Carburadores", col=rainbow(6))

```




# BarCharts_003 {data-icon=fa-bar-chart}

### var_cyl

```{r}

ggplot(mtcars,aes(cyl)) + geom_bar(fill=colores) + labs(x="Cillindros",y="Frecuencias",title="Número de Cilindros") + theme_dark()

```



# BarCharts_004 {data-icon=fa-bar-chart}


Column {data-width=600}
---------------------------------------------------------

### barplot()

```{r}
x <- table(mtcars$cyl)

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

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


```



Column {data-width=400}
---------------------------------------------------------

### ggplot2

```{r}

ggplot(mtcars,aes(cyl)) + geom_bar(fill=colores) + labs(x="Cillindros",y="Frecuencias",title="Número de Cilindros") + theme_dark()


```


### lattice

```{r}

barchart(x,xlab="Cilindros",ylab="Frecuencias",main="Número de Cilindros",col=colores,horizontal=FALSE)

```



# BarCharts_005 {data-icon=fa-chart-area}


## {.tabset .tabset-fade}


### Diagrama Barras

```{r}
cyl_table <- table(mtcars$cyl)

barp <- barplot(cyl_table,                     
                main = "Frequencia absoluta", 
                col = rainbow(3))                        
                                                         
lines(barp, c(5, 4, 12), type = "o", lwd = 3)
```



### Gráfico Sectores

```{r}
count <- c(7, 25, 16, 12, 10, 30)

color <- brewer.pal(length(count), "Set2")

pie(count, labels = paste0(count, "%"), col = color, density = 50, angle = 45)
```



### Histograma

```{r}
distancia <- c(241.1, 284.4, 220.2, 272.4, 271.1, 268.3,
               291.6, 241.6, 286.1, 285.9, 259.6, 299.6,
               253.1, 239.6, 277.8, 263.8, 267.2, 272.6,
               283.4, 234.5, 260.4, 264.2, 295.1, 276.4,
               263.1, 251.4, 264.0, 269.2, 281.0, 283.2)

hist(distancia, main = "Histograma de frecuencias", 
     ylab = "Frecuencia",col="purple")


```


### Gráficos Líneas

```{r}

x <- c(1, 2, 3, 4, 5)
y <- c(200, 300, 600, 700, 500)

# Vectores
plot(x, y, type = "l",col="darkblue")

```