Graficar como sea la población total de los municipios
#Leyendo archivo
library(readr)
resultados<-read.csv("resultados_ageb_urbana_10_cpv2010.csv")
#Crear data.frame con los municipios señalados
#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
mis_resultados<-resultados[which(resultados$mun=='1'|resultados$mun=='5'|resultados$mun=='7'|resultados$mun=='8'|resultados$mun=='12'|resultados$mun=='23'|resultados$mun=='32'|resultados$mun=='35'|resultados$mun=='38'|resultados$mun=='39'),]
Generando gráfica
#mis_resultados # contienene los datos de los municipios seleccionados
total_mpio<-mis_resultados[which(mis_resultados$nom_loc=='Total del municipio'),]
plot(total_mpio$pobtot/100, type = "b", col = "blue", xlab = "Municipios", ylab = "Población", main = "Población Total" )
