Escenario
Cierta agencia de financiamiento está interesada en invertir en el sector educativo peruano, específicamente, en el sector universitario. Ingresaron a la Plataforma Nacional de Datos Abiertos y encontraron el set de datos “Licenciamiento Institucional_5.xls” elaborado por SUNEDU.
Te encargan elaborar un pequeño reporte que les resuelva dudas muy puntuales. Además de las respuestas, la agencia está interesada en conocer el código que usaste para obtener los resultados.
library(readxl)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union#library(tidyverse)licenciamiento_universidades <- read_xls("data/Licenciamiento Institucional_5.xls")¿Cuántas universidades públicas y privadas existían en el país cuando se inició el proceso de licenciamiento institucional de universidades peruanas?
licenciamiento_universidades## # A tibble: 143 x 10
## CODIGO_ENTIDAD NOMBRE TIPO_GESTION ESTADO_LICENCIAM… PERIODO_LICENCIA…
## <chr> <chr> <chr> <chr> <dbl>
## 1 091 UNIVERSIDAD … PRIVADO LICENCIA DENEGADA 0
## 2 016 UNIVERSIDAD … PÚBLICO LICENCIA OTORGADA 6
## 3 067 UNIVERSIDAD … PRIVADO LICENCIA OTORGADA 6
## 4 118 UNIVERSIDAD … PRIVADO LICENCIA DENEGADA 0
## 5 104 UNIVERSIDAD … PRIVADO LICENCIA OTORGADA 6
## 6 037 UNIVERSIDAD … PRIVADO LICENCIA OTORGADA 6
## 7 064 UNIVERSIDAD … PRIVADO LICENCIA OTORGADA 6
## 8 006 UNIVERSIDAD … PÚBLICO LICENCIA OTORGADA 10
## 9 038 UNIVERSIDAD … PRIVADO LICENCIA OTORGADA 6
## 10 109 UNIVERSIDAD … PRIVADO LICENCIA DENEGADA 0
## # … with 133 more rows, and 5 more variables: DEPARTAMENTO_LOCAL <chr>,
## # PROVINCIA_LOCAL <chr>, DISTRITO_LOCAL <chr>, LATITUD_UBICACION <dbl>,
## # LONGITUD_UBICACION <dbl>143 universidades
¿Cuántas universidades públicas obtuvieron el licenciamiento?
licenciamiento_universidades %>%
filter(TIPO_GESTION == "PÚBLICO" ) %>%
filter(ESTADO_LICENCIAMIENTO == "LICENCIA OTORGADA")## # A tibble: 46 x 10
## CODIGO_ENTIDAD NOMBRE TIPO_GESTION ESTADO_LICENCIAM… PERIODO_LICENCI…
## <chr> <chr> <chr> <chr> <dbl>
## 1 016 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 2 006 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 10
## 3 005 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 10
## 4 032 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 5 075 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 6 121 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 7 077 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 8 011 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 8
## 9 025 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 10 051 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## # … with 36 more rows, and 5 more variables: DEPARTAMENTO_LOCAL <chr>,
## # PROVINCIA_LOCAL <chr>, DISTRITO_LOCAL <chr>, LATITUD_UBICACION <dbl>,
## # LONGITUD_UBICACION <dbl>filter(licenciamiento_universidades, TIPO_GESTION == "PÚBLICO",
ESTADO_LICENCIAMIENTO == "LICENCIA OTORGADA")## # A tibble: 46 x 10
## CODIGO_ENTIDAD NOMBRE TIPO_GESTION ESTADO_LICENCIAM… PERIODO_LICENCI…
## <chr> <chr> <chr> <chr> <dbl>
## 1 016 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 2 006 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 10
## 3 005 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 10
## 4 032 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 5 075 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 6 121 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 7 077 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 8 011 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 8
## 9 025 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## 10 051 UNIVERSIDAD N… PÚBLICO LICENCIA OTORGADA 6
## # … with 36 more rows, and 5 more variables: DEPARTAMENTO_LOCAL <chr>,
## # PROVINCIA_LOCAL <chr>, DISTRITO_LOCAL <chr>, LATITUD_UBICACION <dbl>,
## # LONGITUD_UBICACION <dbl>¿Cuántas universidades privadas obtuvieron el licenciamiento?
licenciamiento_universidades %>%
filter(TIPO_GESTION == "PRIVADO" ) %>%
filter(ESTADO_LICENCIAMIENTO == "LICENCIA OTORGADA")## # A tibble: 46 x 10
## CODIGO_ENTIDAD NOMBRE TIPO_GESTION ESTADO_LICENCIA… PERIODO_LICENCIA…
## <chr> <chr> <chr> <chr> <dbl>
## 1 067 UNIVERSIDAD C… PRIVADO LICENCIA OTORGA… 6
## 2 104 UNIVERSIDAD L… PRIVADO LICENCIA OTORGA… 6
## 3 037 UNIVERSIDAD P… PRIVADO LICENCIA OTORGA… 6
## 4 064 UNIVERSIDAD P… PRIVADO LICENCIA OTORGA… 6
## 5 038 UNIVERSIDAD P… PRIVADO LICENCIA OTORGA… 6
## 6 018 UNIVERSIDAD D… PRIVADO LICENCIA OTORGA… 6
## 7 052 UNIVERSIDAD C… PRIVADO LICENCIA OTORGA… 6
## 8 014 UNIVERSIDAD P… PRIVADO LICENCIA OTORGA… 10
## 9 074 UNIVERSIDAD C… PRIVADO LICENCIA OTORGA… 6
## 10 057 UNIVERSIDAD S… PRIVADO LICENCIA OTORGA… 6
## # … with 36 more rows, and 5 more variables: DEPARTAMENTO_LOCAL <chr>,
## # PROVINCIA_LOCAL <chr>, DISTRITO_LOCAL <chr>, LATITUD_UBICACION <dbl>,
## # LONGITUD_UBICACION <dbl>filter(licenciamiento_universidades, TIPO_GESTION == "PRIVADO",
ESTADO_LICENCIAMIENTO == "LICENCIA OTORGADA")## # A tibble: 46 x 10
## CODIGO_ENTIDAD NOMBRE TIPO_GESTION ESTADO_LICENCIA… PERIODO_LICENCIA…
## <chr> <chr> <chr> <chr> <dbl>
## 1 067 UNIVERSIDAD C… PRIVADO LICENCIA OTORGA… 6
## 2 104 UNIVERSIDAD L… PRIVADO LICENCIA OTORGA… 6
## 3 037 UNIVERSIDAD P… PRIVADO LICENCIA OTORGA… 6
## 4 064 UNIVERSIDAD P… PRIVADO LICENCIA OTORGA… 6
## 5 038 UNIVERSIDAD P… PRIVADO LICENCIA OTORGA… 6
## 6 018 UNIVERSIDAD D… PRIVADO LICENCIA OTORGA… 6
## 7 052 UNIVERSIDAD C… PRIVADO LICENCIA OTORGA… 6
## 8 014 UNIVERSIDAD P… PRIVADO LICENCIA OTORGA… 10
## 9 074 UNIVERSIDAD C… PRIVADO LICENCIA OTORGA… 6
## 10 057 UNIVERSIDAD S… PRIVADO LICENCIA OTORGA… 6
## # … with 36 more rows, and 5 more variables: DEPARTAMENTO_LOCAL <chr>,
## # PROVINCIA_LOCAL <chr>, DISTRITO_LOCAL <chr>, LATITUD_UBICACION <dbl>,
## # LONGITUD_UBICACION <dbl>