# Practica 10: Importar y generar un dataframe mas práctico
##Objetivo: Importar un archivo csv y generar un nuevo dataframe para hacer análisis
###Descripción: Importar y generar análisis del archivo resultados_ageb_urbana_10_cpv2010.csv
library(readr)
datos<- read_csv("C:/Users/Cecilia/Documents/practicas R/resageburb_10_2010_csv/resultados_ageb_urbana_10_cpv2010/conjunto_de_datos/resultados_ageb_urbana_10_cpv2010.csv")
## Parsed with column specification:
## cols(
## .default = col_character(),
## entidad = col_integer(),
## pobtot = col_integer(),
## vivtot = col_integer()
## )
## See spec(...) for full column specifications.
###Determinar lo siguiente:
###Cuantas observaciones tiene el conjunto de datos
print(paste("El total de observaciones son ", length(datos$entidad)))
## [1] "El total de observaciones son 30876"
###Cuantas variables contienen el conjunto de datos
print(paste("El total de variables son ", length(datos)))
## [1] "El total de variables son 198"
###Determinar un nuevo data frame (conjunto de datos) solo con los municipios de Canatlán, Durango, Gomez Palacio, Guadalupe Victoria, Lerdo, Pueblo Nuevo, Santiago Papasquiaro, Tepehuanes, Vicente Guerrero y Nuevo Ideal,. Incluir todas las columnas
###Dejar listos el data frame para posterior análisis
nuevadf <- datos[which(datos$nom_mun== 'Canatlán' | datos$nom_mun== 'Durango' | datos$nom_mun== 'Gómez Palacio' | datos$nom_mun== 'Guadalupe Victoria' | datos$nom_mun== 'Lerdo' | datos$nom_mun== 'Pueblo Nuevo' | datos$nom_mun== 'Santiago Papasquiaro' | datos$nom_mun== 'Tepehuanes' | datos$nom_mun== 'Vicente Guerrero' | datos$nom_mun== 'Nuevo Ideal'), ]
###Mostrar solo los primeros 6 registros
head(nuevadf)
## # A tibble: 6 x 198
## entidad nom_ent mun nom_mun loc nom_loc ageb mza pobtot pobmas
## <int> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <int> <chr>
## 1 10 Durango 001 Canatlán 0000 Total de~ 0000 000 31401 15633
## 2 10 Durango 001 Canatlán 0001 Total de~ 0000 000 11495 5482
## 3 10 Durango 001 Canatlán 0001 Total AG~ 0054 000 658 308
## 4 10 Durango 001 Canatlán 0001 Canatlán 0054 001 37 17
## 5 10 Durango 001 Canatlán 0001 Canatlán 0054 002 16 6
## 6 10 Durango 001 Canatlán 0001 Canatlán 0054 003 27 12
## # ... with 188 more variables: pobfem <chr>, p_0a2 <chr>, p_0a2_m <chr>,
## # p_0a2_f <chr>, p_3ymas <chr>, p_3ymas_m <chr>, p_3ymas_f <chr>,
## # p_5ymas <chr>, p_5ymas_m <chr>, p_5ymas_f <chr>, p_12ymas <chr>,
## # p_12ymas_m <chr>, p_12ymas_f <chr>, p_15ymas <chr>, p_15ymas_m <chr>,
## # p_15ymas_f <chr>, p_18ymas <chr>, p_18ymas_m <chr>, p_18ymas_f <chr>,
## # p_3a5 <chr>, p_3a5_m <chr>, p_3a5_f <chr>, p_6a11 <chr>,
## # p_6a11_m <chr>, p_6a11_f <chr>, p_8a14 <chr>, p_8a14_m <chr>,
## # p_8a14_f <chr>, p_12a14 <chr>, p_12a14_m <chr>, p_12a14_f <chr>,
## # p_15a17 <chr>, p_15a17_m <chr>, p_15a17_f <chr>, p_18a24 <chr>,
## # p_18a24_m <chr>, p_18a24_f <chr>, p_15a49_f <chr>, p_60ymas <chr>,
## # p_60ymas_m <chr>, p_60ymas_f <chr>, rel_h_m <chr>, pob0_14 <chr>,
## # pob15_64 <chr>, pob65_mas <chr>, prom_hnv <chr>, pnacent <chr>,
## # pnacent_m <chr>, pnacent_f <chr>, pnacoe <chr>, pnacoe_m <chr>,
## # pnacoe_f <chr>, pres2005 <chr>, pres2005_m <chr>, pres2005_f <chr>,
## # presoe05 <chr>, presoe05_m <chr>, presoe05_f <chr>, p3ym_hli <chr>,
## # p3ym_hli_m <chr>, p3ym_hli_f <chr>, p3hlinhe <chr>, p3hlinhe_m <chr>,
## # p3hlinhe_f <chr>, p3hli_he <chr>, p3hli_he_m <chr>, p3hli_he_f <chr>,
## # p5_hli <chr>, p5_hli_nhe <chr>, p5_hli_he <chr>, phog_ind <chr>,
## # pcon_lim <chr>, pclim_mot <chr>, pclim_vis <chr>, pclim_leng <chr>,
## # pclim_aud <chr>, pclim_mot2 <chr>, pclim_men <chr>, pclim_men2 <chr>,
## # psin_lim <chr>, p3a5_noa <chr>, p3a5_noa_m <chr>, p3a5_noa_f <chr>,
## # p6a11_noa <chr>, p6a11_noam <chr>, p6a11_noaf <chr>, p12a14noa <chr>,
## # p12a14noam <chr>, p12a14noaf <chr>, p15a17a <chr>, p15a17a_m <chr>,
## # p15a17a_f <chr>, p18a24a <chr>, p18a24a_m <chr>, p18a24a_f <chr>,
## # p8a14an <chr>, p8a14an_m <chr>, p8a14an_f <chr>, p15ym_an <chr>,
## # p15ym_an_m <chr>, ...
###Mostrar solos los últimos 6 registros
tail(nuevadf)
## # A tibble: 6 x 198
## entidad nom_ent mun nom_mun loc nom_loc ageb mza pobtot pobmas
## <int> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <int> <chr>
## 1 10 Durango 039 Nuevo Id~ 0001 Nuevo I~ 0475 001 0 0
## 2 10 Durango 039 Nuevo Id~ 0001 Nuevo I~ 0475 002 0 0
## 3 10 Durango 039 Nuevo Id~ 0001 Nuevo I~ 0475 003 0 0
## 4 10 Durango 039 Nuevo Id~ 0001 Nuevo I~ 0475 004 2 *
## 5 10 Durango 039 Nuevo Id~ 0001 Nuevo I~ 0475 005 0 0
## 6 10 Durango 039 Nuevo Id~ 0001 Nuevo I~ 0475 006 3 *
## # ... with 188 more variables: pobfem <chr>, p_0a2 <chr>, p_0a2_m <chr>,
## # p_0a2_f <chr>, p_3ymas <chr>, p_3ymas_m <chr>, p_3ymas_f <chr>,
## # p_5ymas <chr>, p_5ymas_m <chr>, p_5ymas_f <chr>, p_12ymas <chr>,
## # p_12ymas_m <chr>, p_12ymas_f <chr>, p_15ymas <chr>, p_15ymas_m <chr>,
## # p_15ymas_f <chr>, p_18ymas <chr>, p_18ymas_m <chr>, p_18ymas_f <chr>,
## # p_3a5 <chr>, p_3a5_m <chr>, p_3a5_f <chr>, p_6a11 <chr>,
## # p_6a11_m <chr>, p_6a11_f <chr>, p_8a14 <chr>, p_8a14_m <chr>,
## # p_8a14_f <chr>, p_12a14 <chr>, p_12a14_m <chr>, p_12a14_f <chr>,
## # p_15a17 <chr>, p_15a17_m <chr>, p_15a17_f <chr>, p_18a24 <chr>,
## # p_18a24_m <chr>, p_18a24_f <chr>, p_15a49_f <chr>, p_60ymas <chr>,
## # p_60ymas_m <chr>, p_60ymas_f <chr>, rel_h_m <chr>, pob0_14 <chr>,
## # pob15_64 <chr>, pob65_mas <chr>, prom_hnv <chr>, pnacent <chr>,
## # pnacent_m <chr>, pnacent_f <chr>, pnacoe <chr>, pnacoe_m <chr>,
## # pnacoe_f <chr>, pres2005 <chr>, pres2005_m <chr>, pres2005_f <chr>,
## # presoe05 <chr>, presoe05_m <chr>, presoe05_f <chr>, p3ym_hli <chr>,
## # p3ym_hli_m <chr>, p3ym_hli_f <chr>, p3hlinhe <chr>, p3hlinhe_m <chr>,
## # p3hlinhe_f <chr>, p3hli_he <chr>, p3hli_he_m <chr>, p3hli_he_f <chr>,
## # p5_hli <chr>, p5_hli_nhe <chr>, p5_hli_he <chr>, phog_ind <chr>,
## # pcon_lim <chr>, pclim_mot <chr>, pclim_vis <chr>, pclim_leng <chr>,
## # pclim_aud <chr>, pclim_mot2 <chr>, pclim_men <chr>, pclim_men2 <chr>,
## # psin_lim <chr>, p3a5_noa <chr>, p3a5_noa_m <chr>, p3a5_noa_f <chr>,
## # p6a11_noa <chr>, p6a11_noam <chr>, p6a11_noaf <chr>, p12a14noa <chr>,
## # p12a14noam <chr>, p12a14noaf <chr>, p15a17a <chr>, p15a17a_m <chr>,
## # p15a17a_f <chr>, p18a24a <chr>, p18a24a_m <chr>, p18a24a_f <chr>,
## # p8a14an <chr>, p8a14an_m <chr>, p8a14an_f <chr>, p15ym_an <chr>,
## # p15ym_an_m <chr>, ...