Repaso de importación

Cargando paquetes

library(readxl)
library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.3     v purrr   0.3.4
## v tibble  3.1.2     v dplyr   1.0.6
## v tidyr   1.1.3     v stringr 1.4.0
## v readr   1.4.0     v forcats 0.5.1

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

Cargando data

Licenciamiento_universidades <- read_xls("data/Licenciamiento Institucional_5.xls")

ALSO, I CAN USE READ_EXCEL DOBLE COMILLA "" Y TAB PRIMERO CARPETA Y LUEGO LICENCIAMIENTO INSTITUCIONAL.

PREGUNTA 1

¿Cuántas universidades públicas y privadas existían en el país cuando se inició el proceso de licenciamiento institucional de universidades peruanas?

Respuesta: 143

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>

Pregunta 2

¿Cuántas universidad públicas obtuvieron el licenciamiento?

Respuesta 46

Forma 1

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>

Forma 2

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>

#Pregunta 3

¿Cuántas universidad públicas obtuvieron el licenciamiento?

##Respuesta 46

Forma 1:

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>

Forma 2

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>