IMPORTAR Y PLOTEAR DATOS DE POBLACION

PRáctica.. Cargar datos de INEGI

Graficar con barplot, solo el total de población

Cargar datos de de INGEI.

Población de todos los municipios

Filtrar y limpiar solo los municipioso qu enos interesan

Clave del municipio Municipio

  • 001 Canatlán
  • 005 Durango
  • 007 Gómez Palacio
  • 008 Guadalupe Victoria
  • 012 Lerdo
  • 023 Pueblo Nuevo
  • 032 Santiago Papasquiaro
  • 035 Tepehuanes
  • 038 Vicente Guerrero
  • 039 Nuevo Ideal
# Importando
library(readr)

resultados_ageb_urbana_10_cpv2010 <- read_csv("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.
# Importar datos
mis.datos <- resultados_ageb_urbana_10_cpv2010 # nombre mas corto y practico



# View(mis.datos)


# Que municipio de todos tienen menor poblacion en total de población?

mis.datos$nom_mun[which.min(mis.datos$pobtot)]
## [1] "Canatlán"
# Filtrar todos los municipios, unicamente cuando sean totales
# Total del municipio

todos.los.municipios <- mis.datos[which(mis.datos$nom_loc == "Total del municipio"),]
tlm <- todos.los.municipios


# View(tlm)

summary(tlm$pobtot)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1709    6882   11927   41870   26230  582267

Generando plot

# Ejemplos de plot, coordenadas x, y
# ? plot()
plot.new()  # Nuevo plot
plot(1:10, 101:110)
plot(x=1:10, y=101:110)

plot(sample(1:10, 10), sample(1:10, 10))

Plot …

# solo Plot población tottal de cada municipio
plot(x = tlm$mun, y = tlm$pobtot / 1000, type = "b", xlab = "Municipios", ylab = "Población" )

# Dibujando una linea de la media de la población total
abline(h=mean(tlm$pobtot) / 1000, lty=1, col="red")


points(x = tlm$mun, y = tlm$pobtot / 1000, pch=19, col = "blue")