MichaelMBishop

mid_range <- function(x) mean(range(x, na.rm = TRUE))
centres <- ddply(county_df, c("state", "county"), summarise, 
  lat = mid_range(lat), 
  long = mid_range(long)
)

bubbles <- merge(centres, unemp, by = c("state", "county"))
ggplot(bubbles, aes(long, lat)) +
  geom_polygon(aes(group = group), data = state_df, 
    colour = "white", fill = NA) +

MichaelMBishop

# Simplest possible marimekko/mosaic plot

doInstall <- TRUE  # Change to FALSE if you don't want packages installed.
toInstall <- c("vcd", "ggplot2", "RColorBrewer")
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

theme_set(theme_gray(base_size = 7))

# All you need to start with is individual count data, and a grouping variable

MichaelMBishop

#!/bin/sh

# Alot of these configs have been taken from the various places
# on the web, most from here
# https://github.com/mathiasbynens/dotfiles/blob/master/.osx

# Set the colours you can use
black='\033[0;30m'
white='\033[0;37m'
red='\033[0;31m'