example1.R

# Load Data
poly    = readShapeSpatial('1_data/maps/Precincts.shp');
df      = read.csv('1_data/precincts.csv');

# Clean Data
df      = df[,-grep('count', names(df))];         
names(df) = sub('_pct', '', names(df));

# Plot Choropleth
choro1 = plotChoropleth(.poly = poly, .df = df, 
   id1   = list('WARD', 'PRECINCT'),  
   id2   = list('ward', 'precinct')
   field = 'emanuel',
   title = 'Chicago Mayoral Elections 2011',
   legtitle = 'Emanuel (% Votes)'
   colpal = 'Blues', n = 5, style = 'pretty') + 
   opts(legend.position = c(0.25, 0.35)));