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)
library(treemapify)
library(gapminder)
library(viridis)

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.

Hagamos una guía paso a paso

1. Pensamos qué queremos mostrar ✅
2. Escribimos código estático para un caso particular.✅

3. Pensamos qué partes queremos generalizar.✅

4. Armamos una función que tome como parámetros aquello que generalizamos

grafico_treemap <- function(){
  
}

5. Armamos un shiny estático que nos muestre el resultado de la función con parámetros fijos

# El shiny mejor hacerlo en un archivo separado, que se llame app.r

6. Agregamos los inputs en el ui
7. reemplazamos los parámetros fijos por los de input en el server
8. Agregamos texto y otros elementos ‘cosméticos’

• 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