set.seed(2019)
library(rio)
link="https://github.com/JhazminRios29/r/raw/master/data.xlsx"
inei= import(link)inei[,]=lapply(inei[,], trimws,whitespace = "[\\h\\v]") # no blanks [,] significa a todas las columnas
inei[,c(4:18)]=lapply(inei[,c(4:18)],as.numeric)## Warning in lapply(inei[, c(4:18)], as.numeric): NAs introduced by coercion
## Warning in lapply(inei[, c(4:18)], as.numeric): NAs introduced by coercion#APLICO EL SUMMARY
summary(inei)## CODIGO Departamento Provincia Hunitot
## Length:195 Length:195 Length:195 Min. : 4.64
## Class :character Class :character Class :character 1st Qu.:10.30
## Mode :character Mode :character Mode :character Median :12.70
## Mean :14.73
## 3rd Qu.:17.40
## Max. :32.54
##
## Huniurb Hunirur Hsinutot Hsinuturb
## Min. : 5.82 Min. : 4.100 Min. : 3.260 Min. : 3.390
## 1st Qu.:11.16 1st Qu.: 9.982 1st Qu.: 4.565 1st Qu.: 5.050
## Median :13.96 Median :13.525 Median : 5.220 Median : 5.890
## Mean :15.13 Mean :15.789 Mean : 5.401 Mean : 6.003
## 3rd Qu.:17.93 3rd Qu.:20.067 3rd Qu.: 6.130 3rd Qu.: 6.765
## Max. :36.79 Max. :38.990 Max. :13.920 Max. :12.010
## NA's :1
## Hsinutrur Hcomchitot Hcomchiurb Hcomchirur
## Min. : 2.920 Min. : 679 Min. : 195 Min. : 0
## 1st Qu.: 3.955 1st Qu.: 5288 1st Qu.: 1443 1st Qu.: 2352
## Median : 4.635 Median : 8112 Median : 2659 Median : 4680
## Mean : 5.011 Mean : 11445 Mean : 4859 Mean : 6586
## 3rd Qu.: 5.643 3rd Qu.: 14257 3rd Qu.: 4614 3rd Qu.: 8210
## Max. :16.110 Max. :109227 Max. :108500 Max. :27345
## NA's :1
## Hrsaludtot Hrsaludurb Hrsaludrur Hchimtot
## Min. : 185 Min. : 62.0 Min. : 0.0 Min. : 0.130
## 1st Qu.: 1613 1st Qu.: 437.5 1st Qu.: 761.5 1st Qu.: 4.245
## Median : 2893 Median : 879.0 Median : 1719.0 Median : 7.770
## Mean : 4130 Mean : 1639.7 Mean : 2489.9 Mean : 9.909
## 3rd Qu.: 5230 3rd Qu.: 1580.0 3rd Qu.: 3317.5 3rd Qu.:12.210
## Max. :29737 Max. :29570.0 Max. :12454.0 Max. :49.160
##
## Hchimurb Hchimrur
## Min. : 0.08 Min. : 0.000
## 1st Qu.: 4.27 1st Qu.: 4.765
## Median : 8.29 Median : 7.950
## Mean :10.45 Mean :11.225
## 3rd Qu.:14.15 3rd Qu.:14.705
## Max. :48.85 Max. :52.640
## #APLICO EL STR
str(inei)## 'data.frame': 195 obs. of 18 variables:
## $ CODIGO : chr "AMAZONASBAGUA" "AMAZONASBONGARA" "AMAZONASCHACHAPOYAS" "AMAZONASCONDORCANQUI" ...
## $ Departamento: chr "Amazonas" "Amazonas" "Amazonas" "Amazonas" ...
## $ Provincia : chr "Bagua" "Bongara" "Chachapoyas" "Condorcanqui" ...
## $ Hunitot : num 10.72 10.64 15.78 7.55 11.35 ...
## $ Huniurb : num 13.7 11.8 16.5 10.6 12.7 ...
## $ Hunirur : num 7.73 8.86 14.15 7.02 10.37 ...
## $ Hsinutot : num 4.57 5.33 6.59 4.29 4.71 4.89 4.15 4.91 4.78 4.01 ...
## $ Hsinuturb : num 5.57 5.87 7.47 8.56 5.24 6.45 5.32 5.74 7.47 5.52 ...
## $ Hsinutrur : num 3.55 4.47 4.56 3.56 4.3 4.09 3.17 4.47 3.73 3.56 ...
## $ Hcomchitot : num 10337 4215 6614 8131 9217 ...
## $ Hcomchiurb : num 2831 2019 2989 895 3374 ...
## $ Hcomchirur : num 7506 2196 3625 7236 5843 ...
## $ Hrsaludtot : num 4798 1542 2363 5134 3586 ...
## $ Hrsaludurb : num 1009 649 1031 506 1129 ...
## $ Hrsaludrur : num 3789 893 1332 4628 2457 ...
## $ Hchimtot : num 5.39 4.87 5.41 0.13 10.57 ...
## $ Hchimurb : num 5.64 5.05 4.97 0.08 13.56 ...
## $ Hchimrur : num 5.14 4.59 6.41 0.13 8.31 ...