---
title: "GRAFICOS DE BARRAS EN R"
date: "`r Sys.time()`"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    social: ['facebook','twitter','linkedin','instagram']
    source: embed
---

```{r setup, include=FALSE}

library(ggplot2)
library(lattice)
library(flexdashboard)
library(readxl)
library(faraway)
library(MASS)

```

# barplot() {data-icon="fa-chart-bar"}

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

### barplot(). Grafico de barras vertical 


```{r barplot()}

x <- table(mtcars$cyl)
colores <- c("orange","blue","purple")
barplot(x,xlab="Cilindros",ylab="Frecuencias",main="Número de Cilindros",col=colores)

```


### barplot(). Grafico de barras horizontal

Los gráficos de barras en R se dibujan vertical y horizontalmente.


```{r barplo2()}

mi_tabla <- table(mtcars$cyl)
barplot(mi_tabla, main = "Gráfico de barras horizontal",
        ylab = "Número de cilindros", xlab = "Frecuencia",
        horiz = TRUE) # Gráfico de barras horizontal

```

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

### Ejemplo adicional 

Mostrar la frecuencia absoluta de los datos

```{r ejemplo}
# Una fila, dos columnas
par(mfrow = c(1, 2))

# Gráfico de barras de frecuencia absoluta
barplot(mi_tabla, main = "Frequencia absoluta",
        col = rainbow(3))

# Gráfico de barras de frecuencia relativa
barplot(prop.table(mi_tabla) * 100, main = "Frequencia relativa (%)",
        col = rainbow(3))

par(mfrow = c(1, 1))

```



# ggplot2() {data-icon="fa-chart-bar"}

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

### ggplot(). Grafico de barras vertical 

```{r}
# Create data
data <- data.frame(
  Name=c("A","B","C","D","E") ,  
  Value=c(3,12,5,18,45))

# Barplot
ggplot(data, aes(x=Name, y=Value)) + 
  geom_bar(stat = "identity")

```

### ggplot(). Grafico de barras horizontal

```{r}

# Create data
data <- data.frame(
  Name=c("A","B","C","D","E") ,  
  Value=c(3,12,5,18,45))

# Barplot
ggplot(data, aes(x=Name, y=Value)) + 
  geom_bar(stat = "identity") +
  coord_flip()

```

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

### Ejemplo adicional

```{r}
suicide_data <- suicide
#head(suicide_data)
#tail(suicide_data)
#str(suicide_data)
colnames(suicide_data) <- c("Count", "Cause", "Age", "Sex")
ggplot(suicide_data, aes(x = Cause, y = Count, fill = Age)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(x = "\n Cause Of Death", y = "Count \n", fill = "Age Group \n",
       title = "Suicide Method Data From The UK Results \n") +
  scale_x_discrete(labels = c("Drug", "Gas", "Gun", "Hang", "Jump", "Other")) +
  scale_fill_discrete(labels=c("Middle Aged", "Old", "Young")) +
  theme(plot.title = element_text(hjust = 0.5), 
        axis.title.x = element_text(face="bold", colour="blue", size = 12),
        axis.title.y = element_text(face="bold", colour="blue", size = 12),
        legend.title = element_text(face="bold", size = 10))

```

# lattice() {data-icon="fa-chart-bar"}

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

### lattice(). Grafico de barras vertical 


```{r }
barchart(yield ~ variety,  data = barley,
         main = "Grafico de barras vertical",
         xlab = "Yield Value",
         ylab = "Variety",
         col = c("chocolate", "green", "grey", "blue"),
         horiz = FALSE)

```


### lattice(). Grafico de barras horizontal


```{r}
barchart(variety ~ yield,  data = barley,
         main = "Grafico de barras horizontal",
         xlab = "Yield Value",
         ylab = "Variety",
         col = c("chocolate", "green", "grey", "blue"))

```

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

### Ejemplo adicional 

```{r}
barchart(Claims/Holders ~ Age | Group, groups=District,
         data=Insurance, main="Claims frequency", 
         auto.key=list(space="top", columns=4, 
                       title="District", cex.title=1))

```


# Desarrolladores R

Column {data-width=500}
-----------------------------------------------------------------------
### **Robert Gentleman**

George Ross Ihaka es un estadístico de Nueva Zelanda que fue profesor asociado de estadística en la Universidad de Auckland hasta su jubilación en 2017. Junto a Robert Gentleman, es uno de los creadores del lenguaje de programación R.


![](Rober_Gentleman.png){width=170}


**Web**

{target=_blank}













Column {data-width=500}
-----------------------------------------------------------------------
### **Ross Ihaka**
George Ross Ihaka es un estadístico de Nueva Zelanda que fue profesor asociado de estadística en la Universidad de Auckland hasta su jubilación en 2017. Junto a Robert Gentleman, es uno de los creadores del lenguaje de programación R.


![](Ross Ihaka.jpg){width=300}


**Web**

{target=_blank}