Graficar datos de pobtot

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

library(readr)

resultados_ageb_urbana_10_cpv2010 <- read_csv("~/Curso Titulacion/Practicas R ITD/Ejercicio/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.

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="cyan")


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