---
title: "Bar Charts"
author: "Jhonatan Flores"
date: "`r Sys.Date()`"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    theme: darkly
    social: menu
    source: embed
---


```{r setup,include=FALSE}

library(flexdashboard)

library(RColorBrewer)

library(plotrix)


```


##


### {data-width=7}
```{r}
datos <- c(20, 15, 5,35, 25)

# explode= separar los bloques
pie3D(datos, labels= datos, labelcol= "orange", explode= 0.1, col= 1:5, border= "white")

```


### {data-width=3}
```{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", # Frecuencia
     ylab = "Frecuencia", col= "lightblue")

```




##

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

# paleta de colores brewer.pal
color <- brewer.pal(length(count), "Set3") 

# lty= tipo de linea del borde
pie(count, labels = count, lty = 3)
```


###
```{r}
count <- c(2, 25, 15, 30, 20, 8)

# paleta de colores brewer.pal
color <- brewer.pal(length(count), "Set1") 


pie(count, labels = count, col = color, border = color)
```


###
```{r}

genero <- factor(c(rep("Hombre", 10), rep("Mujer", 20)))

tabla_genero <- table(genero)

pie(tabla_genero, col= 3:4, border = "yellow")
```