Shiny apps

Práctica independiente

Nuestro compañero de trabajo, Estatikoz,realizó el siguiente código para visualizar la información de gapminder.

• Si bien la idea del gráfico es interesante, el objetivo de Estatikoz no era ver sólo la información del año 2000
• Tampóco le interesa sólo la información de Europa
• Por último, en gapminder también hay información sobre la esperanza de vida (lifeExp) que es relevante en el análisis.

library(tidyverse)

Registered S3 method overwritten by 'dplyr':
  method           from
  print.rowwise_df     
── Attaching packages ───────────────────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 3.2.1     ✔ purrr   0.3.2
✔ tibble  2.1.3     ✔ dplyr   0.8.3
✔ tidyr   0.8.3     ✔ stringr 1.4.0
✔ readr   1.3.1     ✔ forcats 0.4.0
── Conflicts ──────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()

library(treemapify)
library(gapminder)
library(viridis)

Loading required package: viridisLite

gapminder <- gapminder_unfiltered

gapminder %>% 
  filter(year==2000, continent=='Europe') %>%
  ggplot(., aes(area = pop, fill = gdpPercap, label = country)) +
  geom_treemap() +
  geom_treemap_text(fontface = "italic", colour = "white", place = "centre",
                    grow = TRUE)+
  scale_fill_viridis(option = 'C')+
  labs(title = 'Treemap Europe', subtitle = 'Año 2000',caption = 'Tamaño según población.')

El objetivo es transformar este código en una visualización Shiny que incorpore todos los elementos que faltan.

• hint: A veces esta bueno pegar las cosas con \(glue\)
• hint: Qué pasa con el ancho y largo del gráfico? lo podemos mejorar?
• hint: Que tipo de widget nos conviene usar para el input de años? podemos mirar las opciones acá: inputs