##########################################################
# Cargar programas
library("ggplot2")
library("ggthemes")
library("scales")
##########################################################
### Base de datos desde URL
urlfile<-'https://alanphd.com/archivos/tomas.csv'
Tomas<- read.csv(urlfile, header=T, na.strings= c('NA', -99), quote="\"", dec=".")
Tomas
##########################################################
# Graficar
p2 <- ggplot(Tomas, aes(x = year, y = tomas)) +
geom_point() + geom_line()+
ggtitle("Cobertura del sistema de agua potable: Hermosillo") +
labs(caption = "(CEA, 2010. Análisis costo-beneficio social
del proyecto de abastecimiento de agua potable Acueducto Independencia)")+
xlab("Año") + ylab("Número de tomas") + geom_vline(xintercept = 2010)
p2
##########################################################
# Economist puts scales on the right-hand side
p2 + theme_economist() + scale_colour_economist() +
scale_y_continuous(position = "right", labels=comma) +
theme(text = element_text(size=12))
##################################################################
Gráfica Tipo El Economista
Dr. Luis Alan Navarro Navarro
Centro de Estudios en Gobierno y Asuntos Públicos
El Colegio de Sonora
La gráfica siguiente fue tomada del "Análisis costo-beneficio social del proyecto de abastecimiento de agua potable Acueducto Independencia" elaborado el año 2010 por una consultoría para la Comisión Estatal del Agua del Gobierno del Estado de Sonora. La gráfica hace una proyección lineal del número total de tomas de agua que tendrá la ciudad de Hermosillo, en función de las proyecciones poblacionales del CONAPO (Consejo Nacional de Población) y la relación que había en aquél entonces entre el número de tomas y la población.
Esta gráfica posee un formato tipo la revista "The Economist" (El Economista). Esto es gracias a una extensión del programa "ggplot2" que posee estilos predeterminados.
Get in touch
Puedes estar en contacto conmigo a través de las redes sociales.
© 2013 All rights Reserved | Design by W3Layouts