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 <- read_xls("data/Licenciamiento Institucional_5.xls")
licenciamiento
## # 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>
Habían 143 universidades
filter(licenciamiento, 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>
46 universidades públicas
filter(licenciamiento, 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>
46 UNIVERSIDADES PRIVADAS