vignettes/visualizando-datos-del-ministerio-de-ciencia.Rmd
visualizando-datos-del-ministerio-de-ciencia.Rmd
Estos datos tienen informacion detallada para el anio 2020, por lo que conviene usar graficos de columnas y treemaps.
Carga de paquetes:
Para tener una idea del peso relativo del Ministerio de Ciencia, se puede apreciar el siguiente treemap:
partidas_2020 <- partidas %>% filter(anio == 2020) %>% mutate( nombre_partida = gsub(",.*", "", nombre_partida), nombre_partida = gsub("MINISTERIO DE|MINISTERIO DEL|MINISTERIO DE LAS", "MIN", nombre_partida) ) hchart(partidas_2020, "treemap", hcaes(x = nombre_partida, value = valor_asignado_partida, color = log(valor_asignado_partida))) %>% hc_title(text = "Distribucion del Presupuesto de la Nacion por Partida")
Veamos que capitulos contiene la partida del Ministerio de Ciencia, pero antes debo obtener el id
de la partida.
minciencia_id <- partidas %>% filter(nombre_partida == "MINISTERIO DE CIENCIA, TECNOLOGÍA, CONOCIMIENTO E INNOVACIÓN") %>% select(anio, id_partida, valor_asignado_partida) %>% filter(valor_asignado_partida > 0) minciencia_capitulos <- capitulos %>% inner_join(minciencia_id) %>% select(anio, nombre_capitulo, valor_asignado_capitulo) minciencia_capitulos #> # A tibble: 2 x 3 #> anio nombre_capitulo valor_asignado_capit… #> <int> <fct> <dbl> #> 1 2020 Subsecretaria de Ciencia, Tecnología, Conocimient… 126621780 #> 2 2020 Agencia Nacional de Investigación y Desarrollo 367910028 hchart(minciencia_capitulos, "column", hcaes(x = anio, y = valor_asignado_capitulo, group = nombre_capitulo)) %>% hc_title(text = "Evolucion del presupuesto del Ministerio de Ciencia por Capitulo")
Ahora veamos que capitulos contiene la partida del Ministerio de Ciencia, pero antes debo obtener los id
de los capítulo para cada año ya que van cambiando.
minciencia_id_2 <- capitulos %>% inner_join(minciencia_id) %>% select(anio, id_capitulo) minciencia_programas <- programas %>% inner_join(minciencia_id_2) %>% select(anio, nombre_programa, valor_asignado_programa) minciencia_programas #> # A tibble: 5 x 3 #> anio nombre_programa valor_asignado_progr… #> <int> <fct> <dbl> #> 1 2020 SUBSECRETARIA DE CIENCIA, TECNOLOGÍA, CONOCIMIENT… 13720451 #> 2 2020 FONDO DE INNOVACIÓN PARA LA COMPETITIVIDAD 112344157 #> 3 2020 SECRETARÍA EJECUTIVA CONSEJO NACIONAL DE CTCI 557172 #> 4 2020 AGENCIA NACIONAL DE INVESTIGACIÓN Y DESARROLLO 352535978 #> 5 2020 INICIATIVA CIENTÍFICO MILENIO 15374050 hchart(minciencia_programas, "column", hcaes(x = anio, y = valor_asignado_programa, group = nombre_programa)) %>% hc_title(text = "Presupuesto del Ministerio de Ciencia por Programa")
Finalmente se puede ver el detalle (e.g gasto en personal) que se asigna a cada programa. Se procede de un modo muy similar a lo anterior.
minciencia_subtitulos <- subtitulos %>% inner_join(minciencia_id_2) %>% inner_join(programas %>% select(nombre_programa, id_programa, id_capitulo)) %>% inner_join(capitulos %>% select(nombre_capitulo, id_capitulo)) %>% select(anio, nombre_capitulo, nombre_subtitulo, valor_asignado_subtitulo) %>% group_by(nombre_capitulo, nombre_subtitulo) %>% summarise(valor_asignado_subtitulo = sum(valor_asignado_subtitulo)) minciencia_subtitulos #> # A tibble: 19 x 3 #> # Groups: nombre_capitulo [2] #> nombre_capitulo nombre_subtitulo valor_asignado_su… #> <fct> <fct> <dbl> #> 1 Subsecretaria de Ciencia, Tecnol… TRANSFERENCIAS CORRIENT… 118439133 #> 2 Subsecretaria de Ciencia, Tecnol… OTROS INGRESOS CORRIENT… 50 #> 3 Subsecretaria de Ciencia, Tecnol… APORTE FISCAL 126211330 #> 4 Subsecretaria de Ciencia, Tecnol… GASTOS EN PERSONAL 4639337 #> 5 Subsecretaria de Ciencia, Tecnol… BIENES Y SERVICIOS DE C… 2383691 #> 6 Subsecretaria de Ciencia, Tecnol… ADQUISICIÓN DE ACTIVOS … 207011 #> 7 Subsecretaria de Ciencia, Tecnol… INTEGROS AL FISCO 0 #> 8 Subsecretaria de Ciencia, Tecnol… TRANSFERENCIAS DE CAPIT… 1363008 #> 9 Agencia Nacional de Investigació… TRANSFERENCIAS CORRIENT… 403370684 #> 10 Agencia Nacional de Investigació… OTROS INGRESOS CORRIENT… 5155922 #> 11 Agencia Nacional de Investigació… APORTE FISCAL 304493223 #> 12 Agencia Nacional de Investigació… SALDO INICIAL DE CAJA 0 #> 13 Agencia Nacional de Investigació… GASTOS EN PERSONAL 11102592 #> 14 Agencia Nacional de Investigació… BIENES Y SERVICIOS DE C… 1812283 #> 15 Agencia Nacional de Investigació… ADQUISICIÓN DE ACTIVOS … 235621 #> 16 Agencia Nacional de Investigació… SERVICIO DE LA DEUDA 0 #> 17 Agencia Nacional de Investigació… RENTAS DE LA PROPIEDAD 4417 #> 18 Agencia Nacional de Investigació… INTEGROS AL FISCO 5 #> 19 Agencia Nacional de Investigació… TRANSFERENCIAS DE CAPIT… 9645309 hchart(minciencia_subtitulos, "column", hcaes(x = nombre_capitulo, y = valor_asignado_subtitulo, group = nombre_subtitulo)) %>% hc_title(text = "Presupuesto del Ministerio de Ciencia por Subtítulo")