---
title: "Evaluacion_EDA"
author: "Omar Hernández Olivares"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
    vertical_layout: fill
---

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



Gráfico de dispersión
=======================================================================

Row
-----------------------------------------------------------------------

### Chart gráfico de dispersión

```{r}
ggplot(mpg, aes(x = displ, y = hwy, color = class)) +
  geom_point()
```

### Chart gráfico de dispersión

```{r}
ggplot(mpg, aes(x = displ, y = hwy, shape = class)) +
  geom_point()
```


### Chart gráfico de dispersión

```{r}
ggplot(mpg) + 
  geom_point(aes(x = displ, y = hwy, color = "blue"))
```


Row
-----------------------------------------------------------------------

### Chart gráfico de dispersión color

```{r}
  ggplot(mpg, aes(x = displ, y = hwy)) + 
  geom_point(color = "blue")
```

### Chart gráfico de dispersión

```{r}
ggplot(mpg, aes(x = displ, y = hwy, size = class)) +
  geom_point()
```



### Chart gráfico de dispersión

```{r}
ggplot(mpg, aes(x = displ, y = hwy, size = displ)) +
  geom_point()
```



Row
-----------------------------------------------------------------------

### Chart gráfico de dispersión color

```{r}
  ggplot(mpg, aes(x = displ, y = hwy, size = displ, color=displ)) +
  geom_point()
```

### Chart gráfico de dispersión color

```{r}
mpg |>
  ggplot(aes(x = displ, y = hwy)) + 
  geom_point(colour="blue")
```



gráfico de dispersión dos capas
=======================================================================

Row
-----------------------------------------------------------------------

### Chart gráfico de dispersión

```{r}
ggplot(mpg, aes(x = displ, y = hwy, color = drv)) + 
  geom_point() +
  geom_smooth(aes(linetype = drv))
```



### Chart gráfico de dispersión

```{r}
ggplot(mpg, aes(x = displ, y = hwy)) + 
  geom_point(aes(color = class)) + 
  geom_smooth()
```



### Chart gráfico de dispersión

```{r}
ggplot(mpg, aes(x = displ, y = hwy)) + 
  geom_point() + 
  geom_point(
    data = mpg |> filter(class == "2seater"), 
    color = "red"
  ) +
  geom_point(
    data = mpg |> filter(class == "2seater"), 
    shape = "circle open", size = 5, color = "red"
  )
```




gráfico de caja
=======================================================================

Row
-----------------------------------------------------------------------

### Chart gráfico de caja

```{r}
ggplot(mpg, aes(class, hwy)) +
  geom_boxplot(aes(colour = class, fill = class))
```

### Chart gráfico de caja

```{r}
ggplot(mpg, aes(class, hwy)) +
  geom_boxplot(aes(colour = class, fill = after_scale(alpha(colour, 0.4))))
```


### Chart gráfico de caja

```{r}
# Making a proportional stacked density plot
ggplot(mpg, aes(cty)) +
  geom_density(
    aes(
      colour = factor(cyl),
      fill = after_scale(alpha(colour, 0.3)),
      y = after_stat(count / sum(n[!duplicated(group)]))
    ),
    position = "stack", bw = 1
  ) +
  geom_density(bw = 1)
```



gráfico de densidad
=======================================================================

Row
-----------------------------------------------------------------------

### Chart gráfico de densidad apilada

```{r}
# Making a proportional stacked density plot
ggplot(mpg, aes(cty)) +
  geom_density(
    aes(
      colour = factor(cyl),
      fill = after_scale(alpha(colour, 0.3)),
      y = after_stat(count / sum(n[!duplicated(group)]))
    ),
    position = "stack", bw = 1
  ) +
  geom_density(bw = 1)
```



### Chart gráfico de densidad

```{r}
# Imitating a ridgeline plot
ggplot(mpg, aes(cty, colour = factor(cyl))) +
  geom_ribbon(
    stat = "density", outline.type = "upper",
    aes(
      fill = after_scale(alpha(colour, 0.3)),
      ymin = after_stat(group),
      ymax = after_stat(group + ndensity)
    )
  )
```




### Chart gráfico de densidad

```{r}
library(ggridges)

ggplot(mpg, aes(x = hwy, y = drv, fill = drv, color = drv)) +
  geom_density_ridges(alpha = 0.5, show.legend = FALSE)
#> Picking joint bandwidth of 1.28
```



gráfico de densidad
=======================================================================

Row
-----------------------------------------------------------------------

### Chart gráfico de dispersion

```{r}
ggplot(mpg, aes(x = displ, y = hwy)) + 
  geom_point() + 
  facet_wrap(~cyl)
```

### Chart gráfico de dispersion

```{r}
ggplot(mpg, aes(x = displ, y = hwy)) + 
  geom_point() + 
  facet_grid(drv ~ cyl)
```

### Chart gráfico de dispersion

```{r}
ggplot(mpg, aes(x = displ, y = hwy)) + 
  geom_point() + 
  facet_grid(drv ~ cyl, scales = "free_y")
```


Row
-----------------------------------------------------------------------

### Chart gráfico de dispersion

```{r}
ggplot(mpg) + 
  geom_point(aes(x = displ, y = hwy)) +
  facet_grid(drv ~ .)
```

### Chart gráfico de dispersion

```{r}
ggplot(mpg) + 
  geom_point(aes(x = displ, y = hwy)) +
  facet_grid(. ~ cyl)
```

### Chart gráfico de dispersion

```{r}
ggplot(mpg) + 
  geom_point(aes(x = displ, y = hwy)) + 
  facet_wrap(~ class, nrow = 2)
```




gráfico de barras   
=======================================================================

Row
-----------------------------------------------------------------------

### Chart gráfico de dispersion

```{r}
# Left
ggplot(mpg, aes(x = drv, color = drv)) + 
  geom_bar()
```

### Chart gráfico de dispersion

```{r}
# Right
ggplot(mpg, aes(x = drv, fill = drv)) + 
  geom_bar()
```

### Chart gráfico de dispersion

```{r}
ggplot(mpg, aes(x = drv, fill = class)) + 
  geom_bar()
```


Row
-----------------------------------------------------------------------

### Chart gráfico de dispersion

```{r}
ggplot(mpg, aes(x = drv, fill = class)) + 
  geom_bar(alpha = 1/2, position = "identity")
```

### Chart gráfico de dispersion

```{r}
# Right
ggplot(mpg, aes(x = drv, color = class)) + 
  geom_bar(fill = NA, position = "identity")
```

### Chart gráfico de dispersion

```{r}
# Left
ggplot(mpg, aes(x = drv, fill = class)) + 
  geom_bar(position = "fill")
```


Row
-----------------------------------------------------------------------

### Chart gráfico de dispersion

```{r}
# Right
ggplot(mpg, aes(x = drv, fill = class)) + 
  geom_bar(position = "dodge")
```



Interactividad con grafica   
=======================================================================

Row
-----------------------------------------------------------------------

### Chart gráfico interactivo

```{r}
library(shiny)

ui <- fluidPage(
  mainPanel(
    plotOutput("plot")
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    ggplot(data = df, aes(x = x, y = y)) +
      geom_point() +
      labs(title = "Título de la gráfica") +
      geom_point(aes(tooltip = paste(x, y)))
  })
}

shinyApp(ui = ui, server = server)
```