---
title: "Presentación de resultados"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(readxl)
library(ggplot2)
library(tidyverse)
library(plotly)
library(dplyr)
```


```{r}
resultados <- read_excel("C:/Users/Enzo V/OneDrive/Escritorio/netlogo/Resultados.xlsx")

```


# Zona Baja


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

### Personas en el pach Bajo



```{r}
resultados_bajos <- resultados %>% 
  select(`Estrato1-bajo`, `Estrato2-bajo`, `Estrato3-bajo`)

# Convertir los datos a formato largo
resultados_long <- resultados_bajos %>% 
  pivot_longer(cols = everything(), names_to = "Estrato", values_to = "Valor")

# Crear el boxplot
p = ggplot(resultados_long, aes(x = Estrato, y = Valor)) +
  geom_boxplot( fill = c("red", "yellow","green")) +
  labs(title = "Boxplot de Zonas Bajas", x = "Estrato", y = "Valor") +
  theme_minimal()

p <- ggplotly(p)
p
```


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

### Personas E1

```{r}
resultados_bajos <- resultados %>% 
  select(`Estrato1-bajo`)

# Convertir los datos a formato largo
resultados_long <- resultados_bajos %>% 
  pivot_longer(cols = everything(), names_to = "Estrato", values_to = "Valor")

# Crear el boxplot
p = ggplot(resultados_long, aes(x = Estrato, y = Valor)) +
  geom_boxplot(fill="red") +
  labs(title = "Boxplot de Clase baja", x = "Estrato", y = "Valor") +
  theme_minimal()

p <- ggplotly(p)
p
```


### Personas E2

```{r}
resultados_bajos <- resultados %>% 
  select(`Estrato2-bajo`)

# Convertir los datos a formato largo
resultados_long <- resultados_bajos %>% 
  pivot_longer(cols = everything(), names_to = "Estrato", values_to = "Valor")

# Crear el boxplot
p = ggplot(resultados_long, aes(x = Estrato, y = Valor)) +
  geom_boxplot(fill="yellow") +
  labs(title = "Boxplot de Clase media", x = "Estrato", y = "Valor") +
  theme_minimal()

p <- ggplotly(p)
p
```


### Personas E3



```{r}
resultados_bajos <- resultados %>% 
  select(`Estrato3-bajo`)

# Convertir los datos a formato largo
resultados_long <- resultados_bajos %>% 
  pivot_longer(cols = everything(), names_to = "Estrato", values_to = "Valor")

# Crear el boxplot
p = ggplot(resultados_long, aes(x = Estrato, y = Valor)) +
  geom_boxplot(fill="green") +
  labs(title = "Boxplot de Clase alta", x = "Estrato", y = "Valor") +
  theme_minimal()

p <- ggplotly(p)
p
```




# Zona Media



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

### Personas en el pach MEDIO


```{r}
resultados_medio <- resultados %>% 
  select(`Estrato1-medio`,`Estrato2-medio`, `Estrato3-medio`)

# Convertir los datos a formato largo
resultados_long <- resultados_medio %>% 
  pivot_longer(cols = everything(), names_to = "Estrato", values_to = "Valor")

# Crear el boxplot
p = ggplot(resultados_long, aes(x = Estrato, y = Valor)) +
  geom_boxplot(fill = c("red", "yellow","green")) +
  labs(title = "Boxplot de zona media", x = "Estrato", y = "Valor") +
  theme_minimal()

p <- ggplotly(p)
p
```

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

### E2

```{r}
resultados_medio <- resultados %>% 
  select(`Estrato2-medio`)

# Convertir los datos a formato largo
resultados_long <- resultados_medio %>% 
  pivot_longer(cols = everything(), names_to = "Estrato", values_to = "Valor")

# Crear el boxplot
p = ggplot(resultados_long, aes(x = Estrato, y = Valor)) +
  geom_boxplot(fill = "yellow") +
  labs(title = "Boxplot de Clase media", x = "Estrato", y = "Valor") +
  theme_minimal()

p <- ggplotly(p)
p
```


### E3

```{r}
resultados_medio <- resultados %>% 
  select(`Estrato3-medio`)

# Convertir los datos a formato largo
resultados_long <- resultados_medio %>% 
  pivot_longer(cols = everything(), names_to = "Estrato", values_to = "Valor")

# Crear el boxplot
p = ggplot(resultados_long, aes(x = Estrato, y = Valor)) +
  geom_boxplot(fill="red") +
  labs(title = "Boxplot de Clase alta", x = "Estrato", y = "Valor") +
  theme_minimal()

p <- ggplotly(p)
p
```




# Zona Alta

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

### Personas en el pach ALTO

```{r}
resultados_alto <- resultados %>% 
  select(`Estrato1-alto`,`Estrato2-alto`,`Estrato3-alto`)

# Convertir los datos a formato largo
resultados_long <- resultados_alto %>% 
  pivot_longer(cols = everything(), names_to = "Estrato", values_to = "Valor")

# Crear el boxplot
p = ggplot(resultados_long, aes(x = Estrato, y = Valor)) +
  geom_boxplot(fill = c("red", "yellow","green")) +
  labs(title = "Boxplot de Zona alta", x = "Estrato", y = "Valor") +
  theme_minimal()

p <- ggplotly(p)
p

```



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

### E3

```{r}
resultados_alto <- resultados %>% 
  select(`Estrato3-alto`)

# Convertir los datos a formato largo
resultados_long <- resultados_alto %>% 
  pivot_longer(cols = everything(), names_to = "Estrato", values_to = "Valor")

# Crear el boxplot
p = ggplot(resultados_long, aes(x = Estrato, y = Valor)) +
  geom_boxplot(fill = "green") + 
  labs(title = "Boxplot de Estratos alto", x = "Estrato", y = "Valor") +
  theme_minimal()

p <- ggplotly(p)
p
```