Quick stab at tracking specific names in the baby names data

babynames.r

# 2010-05-02 baby name exploration
# data from http://github.com/hadley/data-baby-names/
bnames <- read.csv("~/data/data-baby-names/baby-names.csv") // path to data

library(ggplot2)

wantedNames <- c("Page", "Plant")	// set a list of names to plot over time
gotNames <- subset(bnames, bnames$name %in% wantedNames)

p <- ggplot(gotNames, aes(x=year, y=percent*100))
p + geom_point() + aes(colour=factor(name)) 

# p + geom_point() + aes(colour=factor(name)) + facet_grid(~ name) # use facet to split into multiple plots per group
# p + geom_point() + aes(colour=factor(name)) + facet_grid(~ sex) # use facet to split into multiple plots per group