diegovalle

########################################################
#####       Author: Diego Valle Jones
#####       Website: www.diegovalle.net
#####       Date Created: Thu Feb 18 19:34:27 2010
########################################################
#Corruption indicators and their correlations

library(ggplot2)

grid.newpage()

diegovalle

########################################################
#####       Author: Diego Valle Jones
#####       Website: www.diegovalle.net
#####       Date Created: Mon Feb 22 19:11:54 2010
########################################################
#Pretty plots of Mexico's gdp

library(ggplot2)

#deseasonalized quarterly gdp 1993-2009 in 2003 pesos

diegovalle

########################################################
#####       Author: Diego Valle Jones
#####       Website: www.diegovalle.net
#####       Date Created: Mon Mar 01 18:51:27 2010
########################################################
#1. For what foods are Americans and Mexicans outliers
#2. Partition the data around medoids to classify the 
#countries of the world according to what they eat

library(ggplot2)

diegovalle

########################################################
#####       Author: Diego Valle Jones
#####       Website: www.diegovalle.net
#####       Date Created: Sun Jun 20 20:30:49 2010
########################################################
#Compare the SNSP homicide data for Chihuahua

library(ggplot2)
#Chihuahua 2008: 1,414 - SNSP data http://www.icesi.org.mx/documentos/estadisticas/estadisticas/denuncias_homicidio_doloso_1997_2008.xls
#Cd. Juarez 2008:  1653 - http://www.google.com/hostednews/afp/article/ALeqM5g2iONUbtwl8in-a_sCMRSmoX8veA

diegovalle

########################################################
#####       Author: Diego Valle Jones
#####       Website: www.diegovalle.net
#####       Date Created: Tue Jul 13 11:02:59 2010
########################################################
#1. -Compare homicide rates according Vital Statistics in the US (Hispanics) and in Mexico
#2.- Homicides in the three North American coutries

#Sources:
#INEGI Estadísticas Vitales for Mexico - http://github.com/diegovalle/Homicide-MX-Drug-War

diegovalle

#Plot CISEN execution data and compare it to that reported by Milenio
library(ggplot2)

execu <- read.csv("http://spreadsheets.google.com/pub?key=0AjjLwVYbDGx7dGl3VVRza3JJT3pLQlBqZVNVUGh6SHc&hl=en&single=true&gid=0&output=csv")

mexecu <- melt(execu[3:6], id = c("Year","Month"))
mexecu$date <- as.Date(paste(mexecu$Year, mexecu$Month, "15",
                             sep = "-"),
                       format = "%Y-%b-%d")
ggplot(mexecu, aes(date, value, group = variable, color = variable)) +

diegovalle

#Download the narco killings map compiled by Walter Mckay available
#at LEAP Mexico https://sites.google.com/site/policereform/leap-mexico/narco-killings
library(rgdal)
library(gtools)
library(maptools)
library(ggplot2)
library(maps)
library(Cairo)
library(stringr)
library(MASS)

diegovalle

library(ggplot2)

update <- c(2030, 3156)
original <- c(1414, 2523)
inegi <- c(2567, NA)

hom <- data.frame(year = 2008:2009,
           updates = update,
           original = original,
           inegi = inegi)

diegovalle

library(ggplot2)
library(stringr)

ah <- read.csv("http://spreadsheets.google.com/pub?key=0AjjLwVYbDGx7dGNxV0FOd3c4a3hxa2FkTEh5QS0wX2c&hl=en&single=true&gid=0&output=csv")
ah$mon.num <- 1:12
ah$Year <- rep(1997:1998, each = 12)
ah$Date <- as.Date(str_c(ah$Year, ah$mon.num, "15", sep = "-"))

m.ah <- melt(ah[c(2,3,6)], id = c("Date"))

diegovalle

R.C.Assassination:
  Rodolfo Carrillo Fuentes Assassination: 2004-09-11
  source: http://www.noroeste.com.mx/publicaciones.php?id=409384

Fox.Troops.NL:
   Troops in Nuevo Laredo: 2005-06-13
   source: http://www.univision.com/content/content.jhtml?cid=625397

Op.Michoacan:
    Operation Michoacan: 2006-12-11