Skip to content

Instantly share code, notes, and snippets.

@dgleich
Created April 17, 2009 07:29
Show Gist options
  • Save dgleich/96902 to your computer and use it in GitHub Desktop.
Save dgleich/96902 to your computer and use it in GitHub Desktop.
# Two groups?
data[,3] <- as.factor(weekdays(data[,1]))
plot(data[,3],data[,2],main='Live Births by Day of Week')
png('dob-dayofweek.png',width=700)
plot(data[,3],data[,2],main='Live Births by Day of Week')
dev.off() # write it
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment