Objetivo Importar y plotear datos de la poblacion
Descripcion Graficar con barplot, solo el total de población, Cargar datos de de INEGI
Población de todos los municipios, filtrar y limpiar solo los municipios que nos 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)
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.
# Que municipio de todos tienen menor poblacion en total de población?
datos$nom_mun[which.min(datos$pobtot)]
## [1] "Canatlán"
# Filtrar todos los municipios, unicamente cuando sean totales
# Total del municipio
todos.los.municipios <-datos[which(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 total 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 = "red")
