Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Amazonas en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
AMAZONAS2011=read.xlsx(link,
sheet = 1, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(AMAZONAS2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 010101-300001: MUNICIPALIDAD PROVINCIAL DE CHACHAPOYAS 1573 2351747
## 3 010102-300002: MUNICIPALIDAD DISTRITAL DE ASUNCION 54 120995
## 4 010103-300003: MUNICIPALIDAD DISTRITAL DE BALSAS 266 55366
## 5 010104-300004: MUNICIPALIDAD DISTRITAL DE CHETO 105 145448
## 6 010105-300005: MUNICIPALIDAD DISTRITAL DE CHILIQUIN 137 154126
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 0.0 0.0 0.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
AMAZONAS2011=AMAZONAS2011[-c(1,2,23,29,41,44,67,79),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(AMAZONAS2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
AMAZONAS2011$ubigeoDistrito = substr(AMAZONAS2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
AMAZONAS2011$MUNICIPALIDADES=substr(AMAZONAS2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(AMAZONAS2011)=NULL
head(AMAZONAS2011)## MUNICIPALIDADES PIM2011 ubigeoDistrito
## 1 MUNICIPALIDAD DISTRITAL DE ASUNCION 120995 010102
## 2 MUNICIPALIDAD DISTRITAL DE BALSAS 55366 010103
## 3 MUNICIPALIDAD DISTRITAL DE CHETO 145448 010104
## 4 MUNICIPALIDAD DISTRITAL DE CHILIQUIN 154126 010105
## 5 MUNICIPALIDAD DISTRITAL DE CHUQUIBAMBA 200626 010106
## 6 MUNICIPALIDAD DISTRITAL DE GRANADA 450379 010107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Ancash en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
ANCASH2011=read.xlsx(link,
sheet = 2, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(ANCASH2011)## Municipalidad PIA
## 1 <NA> NA
## 2 020101-300085: MUNICIPALIDAD PROVINCIAL DE HUARAZ 13466562
## 3 020102-300086: MUNICIPALIDAD DISTRITAL DE COCHABAMBA 1504895
## 4 020103-300087: MUNICIPALIDAD DISTRITAL DE COLCABAMBA 368088
## 5 020104-300088: MUNICIPALIDAD DISTRITAL DE HUANCHAY 1403539
## 6 020105-300089: MUNICIPALIDAD DISTRITAL DE INDEPENDENCIA 22142067
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 46850733 0.0 0.0 0.0 0.0
## 3 2063965 0.0 0.0 0.0 0.0
## 4 650241 0.0 0.0 0.0 0.0
## 5 2712519 0.0 0.0 0.0 0.0
## 6 66151284 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
ANCASH2011=ANCASH2011[-c(1,2,14,19,25,27,42,53,56,60,67,83,88,98,106,116,127,131,141,150,160),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(ANCASH2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
ANCASH2011$ubigeoDistrito = substr(ANCASH2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
ANCASH2011$MUNICIPALIDADES=substr(ANCASH2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(ANCASH2011)=NULL
head(ANCASH2011)## MUNICIPALIDADES PIM2011 ubigeoDistrito
## 1 MUNICIPALIDAD DISTRITAL DE COCHABAMBA 2063965 020102
## 2 MUNICIPALIDAD DISTRITAL DE COLCABAMBA 650241 020103
## 3 MUNICIPALIDAD DISTRITAL DE HUANCHAY 2712519 020104
## 4 MUNICIPALIDAD DISTRITAL DE INDEPENDENCIA 66151284 020105
## 5 MUNICIPALIDAD DISTRITAL DE JANGAS 9049449 020106
## 6 MUNICIPALIDAD DISTRITAL DE LA LIBERTAD 944980 020107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Apurimac en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
APURIMAC2011=read.xlsx(link,
sheet = 3, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(APURIMAC2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 030101-300251: MUNICIPALIDAD PROVINCIAL DE ABANCAY 10493 12972387
## 3 030102-300252: MUNICIPALIDAD DISTRITAL DE CHACOCHE 782 70229
## 4 030103-300253: MUNICIPALIDAD DISTRITAL DE CIRCA 1610 226295
## 5 030104-300254: MUNICIPALIDAD DISTRITAL DE CURAHUASI 10840 3365728
## 6 030105-300255: MUNICIPALIDAD DISTRITAL DE HUANIPACA 2946 438754
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 0.0 0.0 0.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
APURIMAC2011=APURIMAC2011[-c(1,2,11,30,37,54,60,68),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(APURIMAC2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
APURIMAC2011$ubigeoDistrito = substr(APURIMAC2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
APURIMAC2011$MUNICIPALIDADES=substr(APURIMAC2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(APURIMAC2011)=NULL
head(APURIMAC2011)## MUNICIPALIDADES PIM2011 ubigeoDistrito
## 1 MUNICIPALIDAD DISTRITAL DE CHACOCHE 70229 030102
## 2 MUNICIPALIDAD DISTRITAL DE CIRCA 226295 030103
## 3 MUNICIPALIDAD DISTRITAL DE CURAHUASI 3365728 030104
## 4 MUNICIPALIDAD DISTRITAL DE HUANIPACA 438754 030105
## 5 MUNICIPALIDAD DISTRITAL DE LAMBRAMA 272252 030106
## 6 MUNICIPALIDAD DISTRITAL DE PICHIRHUA 519840 030107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Arequipa en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
AREQUIPA2011=read.xlsx(link,
sheet = 4, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(AREQUIPA2011)## Municipalidad PIA
## 1 <NA> NA
## 2 040101-300331: MUNICIPALIDAD PROVINCIAL DE AREQUIPA 3624531
## 3 040102-300332: MUNICIPALIDAD DISTRITAL DE ALTO SELVA ALEGRE 8921360
## 4 040103-300333: MUNICIPALIDAD DISTRITAL DE CAYMA 10093985
## 5 040104-300334: MUNICIPALIDAD DISTRITAL DE CERRO COLORADO 33455649
## 6 040105-300335: MUNICIPALIDAD DISTRITAL DE CHARACATO 2641917
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 17301631 0.0 0.0 0.0 0.0
## 3 32102079 120.0 120.0 120.0 0.0
## 4 33141995 164.0 164.0 0.0 0.0
## 5 139104543 0.0 0.0 0.0 0.0
## 6 7152179 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
AREQUIPA2011=AREQUIPA2011[-c(1,2,31,39,52,66,86,94,100),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(AREQUIPA2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
AREQUIPA2011$ubigeoDistrito = substr(AREQUIPA2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
AREQUIPA2011$MUNICIPALIDADES=substr(AREQUIPA2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(AREQUIPA2011)=NULL
head(AREQUIPA2011)## MUNICIPALIDADES PIM2011 ubigeoDistrito
## 1 MUNICIPALIDAD DISTRITAL DE ALTO SELVA ALEGRE 32102079 040102
## 2 MUNICIPALIDAD DISTRITAL DE CAYMA 33141995 040103
## 3 MUNICIPALIDAD DISTRITAL DE CERRO COLORADO 139104543 040104
## 4 MUNICIPALIDAD DISTRITAL DE CHARACATO 7152179 040105
## 5 MUNICIPALIDAD DISTRITAL DE CHIGUATA 3190201 040106
## 6 MUNICIPALIDAD DISTRITAL DE JACOBO HUNTER 15880869 040107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Ayacucho en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
AYACUCHO2011=read.xlsx(link,
sheet = 5, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(AYACUCHO2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 050101-300440: MUNICIPALIDAD PROVINCIAL DE HUAMANGA 5368708 19615773
## 3 050102-300441: MUNICIPALIDAD DISTRITAL DE ACOCRO 1790036 4574602
## 4 050103-300442: MUNICIPALIDAD DISTRITAL DE ACOS VINCHOS 241664 1260280
## 5 050104-300443: MUNICIPALIDAD DISTRITAL DE CARMEN ALTO 367006 1155603
## 6 050105-300444: MUNICIPALIDAD DISTRITAL DE CHIARA 1529324 3894849
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 0.0 0.0 0.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
AYACUCHO2011=AYACUCHO2011[-c(1,2,17,23,27,35,43,64,72,82,93,105),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(AYACUCHO2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
AYACUCHO2011$ubigeoDistrito = substr(AYACUCHO2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
AYACUCHO2011$MUNICIPALIDADES=substr(AYACUCHO2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(AYACUCHO2011)=NULL
head(AYACUCHO2011)## MUNICIPALIDADES PIM2011 ubigeoDistrito
## 1 MUNICIPALIDAD DISTRITAL DE ACOCRO 4574602 050102
## 2 MUNICIPALIDAD DISTRITAL DE ACOS VINCHOS 1260280 050103
## 3 MUNICIPALIDAD DISTRITAL DE CARMEN ALTO 1155603 050104
## 4 MUNICIPALIDAD DISTRITAL DE CHIARA 3894849 050105
## 5 MUNICIPALIDAD DISTRITAL DE OCROS 1236674 050106
## 6 MUNICIPALIDAD DISTRITAL DE PACAICASA 554798 050107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Cajamarca en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
CAJAMARCA2011=read.xlsx(link,
sheet = 6, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(CAJAMARCA2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 060101-300549: MUNICIPALIDAD PROVINCIAL DE CAJAMARCA 50570352 168224521
## 3 060102-300550: MUNICIPALIDAD DISTRITAL DE ASUNCION 4437253 7945168
## 4 060103-300551: MUNICIPALIDAD DISTRITAL DE CHETILLA 1867318 5106321
## 5 060104-300552: MUNICIPALIDAD DISTRITAL DE COSPAN 3982418 9018205
## 6 060105-300553: MUNICIPALIDAD DISTRITAL DE ENCAÑADA 17380645 24905291
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 0.0 0.0 0.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
CAJAMARCA2011=CAJAMARCA2011[-c(1,2,14,18,30,49,57,72,75,87,94,101,114,118),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(CAJAMARCA2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
CAJAMARCA2011$ubigeoDistrito = substr(CAJAMARCA2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
CAJAMARCA2011$MUNICIPALIDADES=substr(CAJAMARCA2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(CAJAMARCA2011)=NULL
head(CAJAMARCA2011)## MUNICIPALIDADES PIM2011 ubigeoDistrito
## 1 MUNICIPALIDAD DISTRITAL DE ASUNCION 7945168 060102
## 2 MUNICIPALIDAD DISTRITAL DE CHETILLA 5106321 060103
## 3 MUNICIPALIDAD DISTRITAL DE COSPAN 9018205 060104
## 4 MUNICIPALIDAD DISTRITAL DE ENCAÑADA 24905291 060105
## 5 MUNICIPALIDAD DISTRITAL DE JESUS 12476523 060106
## 6 MUNICIPALIDAD DISTRITAL DE LLACANORA 3791448 060107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de CALLAO en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
CALLAO2011=read.xlsx(link,
sheet = 7, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(CALLAO2011)## Municipalidad
## 1 <NA>
## 2 070101-300677: MUNICIPALIDAD PROVINCIAL DEL CALLAO
## 3 070102-300678: MUNICIPALIDAD DISTRITAL DE BELLAVISTA
## 4 070103-300679: MUNICIPALIDAD DISTRITAL DE CARMEN DE LA LEGUA REYNOSO
## 5 070104-300680: MUNICIPALIDAD DISTRITAL DE LA PERLA
## 6 070105-300681: MUNICIPALIDAD DISTRITAL DE LA PUNTA
## PIA PIM Ejecución X5 X6 Avance.%
## 1 NA NA Compromiso Devengado Girado <NA>
## 2 42589674 58183619 0.0 0.0 0.0 0.0
## 3 16583466 24816846 0.0 0.0 0.0 0.0
## 4 14363339 19293712 0.0 0.0 0.0 0.0
## 5 15599466 18483040 0.0 0.0 0.0 0.0
## 6 13574891 18109948 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
CALLAO2011=CALLAO2011[-c(1,2),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(CALLAO2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
CALLAO2011$ubigeoDistrito = substr(CALLAO2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
CALLAO2011$MUNICIPALIDADES=substr(CALLAO2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(CALLAO2011)=NULL
head(CALLAO2011)## MUNICIPALIDADES PIM2011
## 1 MUNICIPALIDAD DISTRITAL DE BELLAVISTA 24816846
## 2 MUNICIPALIDAD DISTRITAL DE CARMEN DE LA LEGUA REYNOSO 19293712
## 3 MUNICIPALIDAD DISTRITAL DE LA PERLA 18483040
## 4 MUNICIPALIDAD DISTRITAL DE LA PUNTA 18109948
## 5 MUNICIPALIDAD DISTRITAL DE VENTANILLA 66236803
## ubigeoDistrito
## 1 070102
## 2 070103
## 3 070104
## 4 070105
## 5 070106Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Cusco en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
CUSCO2011=read.xlsx(link,
sheet = 8, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(CUSCO2011)## Municipalidad PIA
## 1 <NA> NA
## 2 080101-300684: MUNICIPALIDAD PROVINCIAL DEL CUZCO 15290266
## 3 080102-300685: MUNICIPALIDAD DISTRITAL DE CCORCCA 1308106
## 4 080103-300686: MUNICIPALIDAD DISTRITAL DE POROY 2699577
## 5 080104-300687: MUNICIPALIDAD DISTRITAL DE SAN JERONIMO 7072444
## 6 080105-300688: MUNICIPALIDAD DISTRITAL DE SAN SEBASTIAN 13458034
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 45002999 0.0 0.0 0.0 0.0
## 3 3009861 0.0 0.0 0.0 0.0
## 4 7433039 0.0 0.0 0.0 0.0
## 5 15574796 0.0 0.0 0.0 0.0
## 6 36425923 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
CUSCO2011=CUSCO2011[-c(1,2,10,17,26,34,42,50,58,66,76,85,91,103),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(CUSCO2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
CUSCO2011$ubigeoDistrito = substr(CUSCO2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
CUSCO2011$MUNICIPALIDADES=substr(CUSCO2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(CUSCO2011)=NULL
head(CUSCO2011)## MUNICIPALIDADES PIM2011 ubigeoDistrito
## 1 MUNICIPALIDAD DISTRITAL DE CCORCCA 3009861 080102
## 2 MUNICIPALIDAD DISTRITAL DE POROY 7433039 080103
## 3 MUNICIPALIDAD DISTRITAL DE SAN JERONIMO 15574796 080104
## 4 MUNICIPALIDAD DISTRITAL DE SAN SEBASTIAN 36425923 080105
## 5 MUNICIPALIDAD DISTRITAL DE SANTIAGO 32509994 080106
## 6 MUNICIPALIDAD DISTRITAL DE SAYLLA 2802264 080107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Huancavelica en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
HUANCAVELICA2011=read.xlsx(link,
sheet = 9, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(HUANCAVELICA2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 090101-300792: MUNICIPALIDAD PROVINCIAL DE HUANCAVELICA 6554578 22724762
## 3 090102-300793: MUNICIPALIDAD DISTRITAL DE ACOBAMBILLA 667968 3359007
## 4 090103-300794: MUNICIPALIDAD DISTRITAL DE ACORIA 6183777 10459907
## 5 090104-300795: MUNICIPALIDAD DISTRITAL DE CONAYCA 213053 572146
## 6 090105-300796: MUNICIPALIDAD DISTRITAL DE CUENCA 354867 905662
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 0.0 0.0 0.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
HUANCAVELICA2011=HUANCAVELICA2011[-c(1,2,21,29,41,54,65,81),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(HUANCAVELICA2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
HUANCAVELICA2011$ubigeoDistrito = substr(HUANCAVELICA2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
HUANCAVELICA2011$MUNICIPALIDADES=substr(HUANCAVELICA2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(HUANCAVELICA2011)=NULL
head(HUANCAVELICA2011)## MUNICIPALIDADES PIM2011 ubigeoDistrito
## 1 MUNICIPALIDAD DISTRITAL DE ACOBAMBILLA 3359007 090102
## 2 MUNICIPALIDAD DISTRITAL DE ACORIA 10459907 090103
## 3 MUNICIPALIDAD DISTRITAL DE CONAYCA 572146 090104
## 4 MUNICIPALIDAD DISTRITAL DE CUENCA 905662 090105
## 5 MUNICIPALIDAD DISTRITAL DE HUACHOCOLPA 1414526 090106
## 6 MUNICIPALIDAD DISTRITAL DE HUAYLLAHUARA 455309 090107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Huanuco en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
HUANUCO2011=read.xlsx(link,
sheet = 10, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(HUANUCO2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 100101-300885: MUNICIPALIDAD PROVINCIAL DE HUANUCO 56316 8161400
## 3 100102-300886: MUNICIPALIDAD DISTRITAL DE AMARILIS 64172 2011100
## 4 100103-300887: MUNICIPALIDAD DISTRITAL DE CHINCHAO 56381 1969127
## 5 100104-300888: MUNICIPALIDAD DISTRITAL DE CHURUBAMBA 66869 2849779
## 6 100105-300889: MUNICIPALIDAD DISTRITAL DE MARGOS 15480 2439179
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 0.0 0.0 0.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
HUANUCO2011=HUANUCO2011[-c(1,2,14,22,31,35,46,52,55,59,64,71),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(HUANUCO2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
HUANUCO2011$ubigeoDistrito = substr(HUANUCO2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
HUANUCO2011$MUNICIPALIDADES=substr(HUANUCO2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(HUANUCO2011)=NULL
head(HUANUCO2011)## MUNICIPALIDADES PIM2011
## 1 MUNICIPALIDAD DISTRITAL DE AMARILIS 2011100
## 2 MUNICIPALIDAD DISTRITAL DE CHINCHAO 1969127
## 3 MUNICIPALIDAD DISTRITAL DE CHURUBAMBA 2849779
## 4 MUNICIPALIDAD DISTRITAL DE MARGOS 2439179
## 5 MUNICIPALIDAD DISTRITAL DE QUISQUI 2500580
## 6 MUNICIPALIDAD DISTRITAL DE SAN FRANCISCO DE CAYRAN 482058
## ubigeoDistrito
## 1 100102
## 2 100103
## 3 100104
## 4 100105
## 5 100106
## 6 100107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Ica en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
ICA2011=read.xlsx(link,
sheet = 11, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(ICA2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 110101-300960: MUNICIPALIDAD PROVINCIAL DE ICA 8269986 36219667
## 3 110102-300961: MUNICIPALIDAD DISTRITAL DE TINGUIÑA 1054655 16147014
## 4 110103-300962: MUNICIPALIDAD DISTRITAL DE LOS AQUIJES 1598491 13110766
## 5 110104-300963: MUNICIPALIDAD DISTRITAL DE OCUCAJE 373054 1414363
## 6 110105-300964: MUNICIPALIDAD DISTRITAL DE PACHACUTEC 499239 1774118
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 0.0 0.0 0.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
ICA2011=ICA2011[-c(1,2,16,27,32,37),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(ICA2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
ICA2011$ubigeoDistrito = substr(ICA2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
ICA2011$MUNICIPALIDADES=substr(ICA2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(ICA2011)=NULL
head(ICA2011)## MUNICIPALIDADES PIM2011 ubigeoDistrito
## 1 MUNICIPALIDAD DISTRITAL DE TINGUIÑA 16147014 110102
## 2 MUNICIPALIDAD DISTRITAL DE LOS AQUIJES 13110766 110103
## 3 MUNICIPALIDAD DISTRITAL DE OCUCAJE 1414363 110104
## 4 MUNICIPALIDAD DISTRITAL DE PACHACUTEC 1774118 110105
## 5 MUNICIPALIDAD DISTRITAL DE PARCONA 10775469 110106
## 6 MUNICIPALIDAD DISTRITAL DE PUEBLO NUEVO 1160464 110107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Junin en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
JUNIN2011=read.xlsx(link,
sheet = 12, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(JUNIN2011)## Municipalidad PIA
## 1 <NA> NA
## 2 120101-301003: MUNICIPALIDAD PROVINCIAL DE HUANCAYO 1352992
## 3 120104-301004: MUNICIPALIDAD DISTRITAL DE CARHUACALLANGA 46636
## 4 120105-301005: MUNICIPALIDAD DISTRITAL DE CHACAPAMPA 49698
## 5 120106-301006: MUNICIPALIDAD DISTRITAL DE CHICCHE 56307
## 6 120107-301007: MUNICIPALIDAD DISTRITAL DE CHILCA 1267789
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 12341737 0.0 0.0 0.0 0.0
## 3 244343 0.0 0.0 0.0 0.0
## 4 310183 0.0 0.0 0.0 0.0
## 5 2028710 0.0 0.0 0.0 0.0
## 6 6124479 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
JUNIN2011=JUNIN2011[-c(1,2,30,45,51,85,89,97,106,116),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(JUNIN2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
JUNIN2011$ubigeoDistrito = substr(JUNIN2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
JUNIN2011$MUNICIPALIDADES=substr(JUNIN2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(JUNIN2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de LA LIBERTAD en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
LIBERTAD2011=read.xlsx(link,
sheet = 13, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(LIBERTAD2011)## Municipalidad PIA
## 1 <NA> NA
## 2 130101-301127: MUNICIPALIDAD PROVINCIAL DE TRUJILLO 8651755
## 3 130102-301128: MUNICIPALIDAD DISTRITAL DE EL PORVENIR 13036822
## 4 130103-301129: MUNICIPALIDAD DISTRITAL DE FLORENCIA DE MORA 1684245
## 5 130104-301130: MUNICIPALIDAD DISTRITAL DE HUANCHACO 6371409
## 6 130105-301131: MUNICIPALIDAD DISTRITAL DE LA ESPERANZA 9826739
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 27074659 0.0 0.0 0.0 0.0
## 3 21210718 0.0 0.0 0.0 0.0
## 4 2869446 0.0 0.0 0.0 0.0
## 5 10692347 0.0 0.0 0.0 0.0
## 6 24981473 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
LIBERTAD2011=LIBERTAD2011[-c(1,2,13,21,27,30,34,44,49,62,70,78,82),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(LIBERTAD2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
LIBERTAD2011$ubigeoDistrito = substr(LIBERTAD2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
LIBERTAD2011$MUNICIPALIDADES=substr(LIBERTAD2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(LIBERTAD2011)=NULL
head(LIBERTAD2011)## MUNICIPALIDADES PIM2011 ubigeoDistrito
## 1 MUNICIPALIDAD DISTRITAL DE EL PORVENIR 21210718 130102
## 2 MUNICIPALIDAD DISTRITAL DE FLORENCIA DE MORA 2869446 130103
## 3 MUNICIPALIDAD DISTRITAL DE HUANCHACO 10692347 130104
## 4 MUNICIPALIDAD DISTRITAL DE LA ESPERANZA 24981473 130105
## 5 MUNICIPALIDAD DISTRITAL DE LAREDO 3452290 130106
## 6 MUNICIPALIDAD DISTRITAL DE MOCHE 7059828 130107Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Lambayeque en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
LAMBAYEQUE2011=read.xlsx(link,
sheet = 14, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(LAMBAYEQUE2011)## Municipalidad PIA
## 1 <NA> NA
## 2 140101-301212: MUNICIPALIDAD PROVINCIAL DE CHICLAYO 9069
## 3 140102-301213: MUNICIPALIDAD DISTRITAL DE CHONGOYAPE 1323
## 4 140103-301214: MUNICIPALIDAD DISTRITAL DE ETEN 564
## 5 140104-301215: MUNICIPALIDAD DISTRITAL DE ETEN PUERTO 149
## 6 140105-301216: MUNICIPALIDAD DISTRITAL DE JOSE LEONARDO ORTIZ 5764
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 8594477 0.0 0.0 0.0 0.0
## 3 1637894 0.0 0.0 0.0 0.0
## 4 1262101 0.0 0.0 0.0 0.0
## 5 501910 0.0 0.0 0.0 0.0
## 6 4261436 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
LAMBAYEQUE2011=LAMBAYEQUE2011[-c(1,2,22,28),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(LAMBAYEQUE2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
LAMBAYEQUE2011$ubigeoDistrito = substr(LAMBAYEQUE2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
LAMBAYEQUE2011$MUNICIPALIDADES=substr(LAMBAYEQUE2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(LAMBAYEQUE2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Lima en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
LIMA2011=read.xlsx(link,
sheet = 15, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(LIMA2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 150101-301250: MUNICIPALIDAD PROVINCIAL DE LIMA 142507 31609659
## 3 150102-301251: MUNICIPALIDAD DISTRITAL DE ANCON 55820 2184797
## 4 150103-301252: MUNICIPALIDAD DISTRITAL DE ATE - VITARTE 619983 19334702
## 5 150104-301253: MUNICIPALIDAD DISTRITAL DE BARRANCO 10493 499321
## 6 150105-301254: MUNICIPALIDAD DISTRITAL DE BREÑA 23785 1048036
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 0.0 0.0 0.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
LIMA2011=LIMA2011[-c(1,2,45,50,55,62,78,90,122,134,140),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(LIMA2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
LIMA2011$ubigeoDistrito = substr(LIMA2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
LIMA2011$MUNICIPALIDADES=substr(LIMA2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(LIMA2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Loreto en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
LORETO2011=read.xlsx(link,
sheet = 16, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(LORETO2011)## Municipalidad PIA
## 1 <NA> NA
## 2 160101-301422: MUNICIPALIDAD PROVINCIAL DE MAYNAS - IQUITOS 5623755
## 3 160102-301423: MUNICIPALIDAD DISTRITAL DE ALTO NANAY 817979
## 4 160103-301424: MUNICIPALIDAD DISTRITAL DE FERNANDO LORES 1195335
## 5 160104-301425: MUNICIPALIDAD DISTRITAL DE INDIANA 1113440
## 6 160105-301426: MUNICIPALIDAD DISTRITAL DE LAS AMAZONAS 1053947
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 15824769 0.0 0.0 0.0 0.0
## 3 1674649 0.0 0.0 0.0 0.0
## 4 2794799 0.0 0.0 0.0 0.0
## 5 2454150 0.0 0.0 0.0 0.0
## 6 2444598 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
LORETO2011=LORETO2011[-c(1,2,15,21,26,30,41,47),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(LORETO2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
LORETO2011$ubigeoDistrito = substr(LORETO2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
LORETO2011$MUNICIPALIDADES=substr(LORETO2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(LORETO2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Madre de Dios en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
MADRE2011=read.xlsx(link,
sheet = 17, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(MADRE2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 170101-301471: MUNICIPALIDAD PROVINCIAL DE TAMBOPATA 219426 2915496
## 3 170102-301472: MUNICIPALIDAD DISTRITAL DE INAMBARI 43437 575680
## 4 170103-301473: MUNICIPALIDAD DISTRITAL DE LAS PIEDRAS 64574 266554
## 5 170104-301474: MUNICIPALIDAD DISTRITAL DE LABERINTO 26735 530701
## 6 170201-301475: MUNICIPALIDAD PROVINCIAL DE MANU 9655 226842
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 3151.0 3151.0 3151.0 0.5
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
MADRE2011=MADRE2011[-c(1,2,6,10),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(MADRE2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
MADRE2011$ubigeoDistrito = substr(MADRE2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
MADRE2011$MUNICIPALIDADES=substr(MADRE2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(MADRE2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Moquegua en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
MOQUEGUA2011=read.xlsx(link,
sheet = 18, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(MOQUEGUA2011)## Municipalidad
## 1 <NA>
## 2 180101-301481: MUNICIPALIDAD PROVINCIAL DE MARISCAL NIETO - MOQUEGUA
## 3 180102-301482: MUNICIPALIDAD DISTRITAL DE CARUMAS
## 4 180103-301483: MUNICIPALIDAD DISTRITAL DE CUCHUMBAYA
## 5 180104-301484: MUNICIPALIDAD DISTRITAL DE SAMEGUA
## 6 180105-301485: MUNICIPALIDAD DISTRITAL DE SAN CRISTOBAL
## PIA PIM Ejecución X5 X6 Avance.%
## 1 NA NA Compromiso Devengado Girado <NA>
## 2 68987743 163036662 0.0 0.0 0.0 0.0
## 3 19728605 46351768 20.0 20.0 20.0 0.0
## 4 6090088 10169417 0.0 0.0 0.0 0.0
## 5 8457243 13692160 0.0 0.0 0.0 0.0
## 6 11194530 19850210 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
MOQUEGUA2011=MOQUEGUA2011[-c(1,2,8,19),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(MOQUEGUA2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
MOQUEGUA2011$ubigeoDistrito = substr(MOQUEGUA2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
MOQUEGUA2011$MUNICIPALIDADES=substr(MOQUEGUA2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(MOQUEGUA2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Pasco en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
PASCO2011=read.xlsx(link,
sheet = 19, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(PASCO2011)## Municipalidad PIA
## 1 <NA> NA
## 2 190101-301501: MUNICIPALIDAD PROVINCIAL DE PASCO - CHAUPIMARCA 13052756
## 3 190102-301502: MUNICIPALIDAD DISTRITAL DE HUACHON 3585756
## 4 190103-301503: MUNICIPALIDAD DISTRITAL DE HUARIACA 2941922
## 5 190104-301504: MUNICIPALIDAD DISTRITAL DE HUAYLLAY 12289739
## 6 190105-301505: MUNICIPALIDAD DISTRITAL DE NINACACA 2513364
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 35649090 2117.0 2117.0 0.0 0.0
## 3 5814142 0.0 0.0 0.0 0.0
## 4 6031915 5394.0 5394.0 5394.0 0.1
## 5 35205219 0.0 0.0 0.0 0.0
## 6 5292605 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
PASCO2011=PASCO2011[-c(1,2,15,23),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(PASCO2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
PASCO2011$ubigeoDistrito = substr(PASCO2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
PASCO2011$MUNICIPALIDADES=substr(PASCO2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(PASCO2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Piura en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
PIURA2011=read.xlsx(link,
sheet = 20, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(PIURA2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 200101-301529: MUNICIPALIDAD PROVINCIAL DE PIURA 5803097 51676800
## 3 200104-301530: MUNICIPALIDAD DISTRITAL DE CASTILLA 2868791 12231059
## 4 200105-301531: MUNICIPALIDAD DISTRITAL DE CATACAOS 2513423 8165210
## 5 200107-301532: MUNICIPALIDAD DISTRITAL DE CURA MORI 931375 2100345
## 6 200108-301533: MUNICIPALIDAD DISTRITAL DE EL TALLAN 197420 1006615
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 0.0 0.0 0.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
PIURA2011=PIURA2011[-c(1,2,11,21,29,39,46,54,60),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(PIURA2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
PIURA2011$ubigeoDistrito = substr(PIURA2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
PIURA2011$MUNICIPALIDADES=substr(PIURA2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(PIURA2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Puno en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
PUNO2011=read.xlsx(link,
sheet = 21, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(PUNO2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 210101-301593: MUNICIPALIDAD PROVINCIAL DE PUNO 4574391 22191512
## 3 210102-301594: MUNICIPALIDAD DISTRITAL DE ACORA 3928515 10255822
## 4 210103-301595: MUNICIPALIDAD DISTRITAL DE AMANTANI 447216 1188209
## 5 210104-301596: MUNICIPALIDAD DISTRITAL DE ATUNCOLLA 602357 1600479
## 6 210105-301597: MUNICIPALIDAD DISTRITAL DE CAPACHICA 1074850 4207669
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 30.0 30.0 30.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
PUNO2011=PUNO2011[-c(1,2,17,32,42,49,54,62,72,81,85,90,94,104),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(PUNO2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
PUNO2011$ubigeoDistrito = substr(PUNO2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
PUNO2011$MUNICIPALIDADES=substr(PUNO2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(PUNO2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de San Martin en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
MARTIN2011=read.xlsx(link,
sheet = 22, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(MARTIN2011)## Municipalidad PIA PIM
## 1 <NA> NA NA
## 2 220101-301701: MUNICIPALIDAD PROVINCIAL DE MOYOBAMBA 17107 9203468
## 3 220102-301702: MUNICIPALIDAD DISTRITAL DE CALZADA 1462 545022
## 4 220103-301703: MUNICIPALIDAD DISTRITAL DE HABANA 641 230161
## 5 220104-301704: MUNICIPALIDAD DISTRITAL DE JEPELACIO 6483 4546984
## 6 220105-301705: MUNICIPALIDAD DISTRITAL DE SORITOR 7275 4408744
## Ejecución X5 X6 Avance.%
## 1 Compromiso Devengado Girado <NA>
## 2 0.0 0.0 0.0 0.0
## 3 0.0 0.0 0.0 0.0
## 4 0.0 0.0 0.0 0.0
## 5 0.0 0.0 0.0 0.0
## 6 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
MARTIN2011=MARTIN2011[-c(1,2,8,14,19,25,36,41,51,60,74),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(MARTIN2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
MARTIN2011$ubigeoDistrito = substr(MARTIN2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
MARTIN2011$MUNICIPALIDADES=substr(MARTIN2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(MARTIN2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Tacna en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
TACNA2011=read.xlsx(link,
sheet = 23, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(TACNA2011)## Municipalidad PIA
## 1 <NA> NA
## 2 230101-301778: MUNICIPALIDAD PROVINCIAL DE TACNA 19854579
## 3 230102-301779: MUNICIPALIDAD DISTRITAL DE ALTO DE LA ALIANZA 8009295
## 4 230103-301780: MUNICIPALIDAD DISTRITAL DE CALANA 1747686
## 5 230104-301781: MUNICIPALIDAD DISTRITAL DE CIUDAD NUEVA 9793063
## 6 230105-301782: MUNICIPALIDAD DISTRITAL DE INCLAN 5132740
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 44714902 0.0 0.0 0.0 0.0
## 3 16607348 0.0 0.0 0.0 0.0
## 4 3477477 0.0 0.0 0.0 0.0
## 5 19336615 147415.0 147325.0 147325.0 0.8
## 6 15071434 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
TACNA2011=TACNA2011[-c(1,2,12,18,21),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(TACNA2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
TACNA2011$ubigeoDistrito = substr(TACNA2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
TACNA2011$MUNICIPALIDADES=substr(TACNA2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(TACNA2011)=NULLCargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Tumbes en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
TUMBES2011=read.xlsx(link,
sheet = 24, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(TUMBES2011)## Municipalidad PIA
## 1 <NA> NA
## 2 240101-301804: MUNICIPALIDAD PROVINCIAL DE TUMBES 14415003
## 3 240102-301805: MUNICIPALIDAD DISTRITAL DE CORRALES 4164170
## 4 240103-301806: MUNICIPALIDAD DISTRITAL DE LA CRUZ 1142518
## 5 240104-301807: MUNICIPALIDAD DISTRITAL DE PAMPAS DE HOSPITAL 1098574
## 6 240105-301808: MUNICIPALIDAD DISTRITAL DE SAN JACINTO 1286124
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 30688100 96.0 96.0 96.0 0.0
## 3 6896905 0.0 0.0 0.0 0.0
## 4 2856104 0.0 0.0 0.0 0.0
## 5 3012309 0.0 0.0 0.0 0.0
## 6 3442696 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
TUMBES2011=TUMBES2011[-c(1,2,8,11),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(TUMBES2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
TUMBES2011$ubigeoDistrito = substr(TUMBES2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
TUMBES2011$MUNICIPALIDADES=substr(TUMBES2011$MUNICIPALIDADES,15,100)Formateamos el indice
Cargamos la data de Canon recibido por las municipalidades municipalidades provinciales y distritales de Ucayali en el año 2011
link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTgRCygMeUxFFTHC-Burb59i2fuQXkfpHqBsha08ni9XSnxT63-Sqas73VGgZBPCWqNJyy4wA1UCNdt/pub?output=xlsx"
library(openxlsx)
UCAYALI2011=read.xlsx(link,
sheet = 25, #hoja que cargaremos, corresponde al año 2011.
startRow = 16, #desde esta fila empezaremos a leer, aseguremonos de no perder títulos
skipEmptyRows = T, skipEmptyCols = T)
head(UCAYALI2011)## Municipalidad PIA
## 1 <NA> NA
## 2 250101-301816: MUNICIPALIDAD PROVINCIAL DE CORONEL PORTILLO 9860190
## 3 250102-301817: MUNICIPALIDAD DISTRITAL DE CAMPOVERDE 1225135
## 4 250103-301818: MUNICIPALIDAD DISTRITAL DE IPARIA 1604551
## 5 250104-301819: MUNICIPALIDAD DISTRITAL DE MASISEA 2033477
## 6 250105-301820: MUNICIPALIDAD DISTRITAL DE YARINACOCHA 5143332
## PIM Ejecución X5 X6 Avance.%
## 1 NA Compromiso Devengado Girado <NA>
## 2 32291981 0.0 0.0 0.0 0.0
## 3 3221673 0.0 0.0 0.0 0.0
## 4 3654269 0.0 0.0 0.0 0.0
## 5 4959103 0.0 0.0 0.0 0.0
## 6 13302999 0.0 0.0 0.0 0.0Eliminamos columnas que no sean las municipalidades y el PIM y a su vez, filas que contenga la informacion de municipalidades provinciales
UCAYALI2011=UCAYALI2011[-c(1,2,9,13,16),-c(2,4,5,6,7)]Cambiamos el nombre de las columnas
names(UCAYALI2011)=c("MUNICIPALIDADES","PIM2011")Creamos el ubigeo de distrito, copiando los primeros caracteres de la columna de Municipalidades que contenia el ubigeo
UCAYALI2011$ubigeoDistrito = substr(UCAYALI2011$MUNICIPALIDADES,1,6)Eliminamos los caracteres que contengan el ubigeo en la columna Municipalidades, para que de esta manera solo quede el nombre de la municipalidad
UCAYALI2011$MUNICIPALIDADES=substr(UCAYALI2011$MUNICIPALIDADES,15,100)Formateamos el indice
row.names(UCAYALI2011)=NULLUnimos todos las datas del canon 2011
CANON2011 <- rbind(AMAZONAS2011,ANCASH2011,APURIMAC2011,AREQUIPA2011,AYACUCHO2011,CAJAMARCA2011,CALLAO2011,CUSCO2011,HUANCAVELICA2011,HUANUCO2011,ICA2011,JUNIN2011,LIBERTAD2011,LAMBAYEQUE2011,LIMA2011,LORETO2011,MADRE2011,MOQUEGUA2011,PASCO2011,PIURA2011,PUNO2011,MARTIN2011,TACNA2011,TUMBES2011,UCAYALI2011)write.csv(CANON2011, "datacanon.csv")