Michael Bishop MichaelMBishop
MichaelMBishop
/ osx-for-hackers.sh
Created
October 18, 2015 20:58
— forked from brandonb927/osx-for-hackers.sh
OSX for Hackers: Yosemite Edition. This script tries not to be *too* opinionated and any major changes to your system require a prompt. You've been warned. Also, please don't email me about this script, my poor inbox...
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/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' |
MichaelMBishop
/ Marimekko.R
Created
October 17, 2012 23:59
— forked from dsparks/Marimekko.R
Simplest marimekko/mosaic plot
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # 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
/ points.r
Created
February 8, 2012 18:55
— forked from hadley/points.r
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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) + |