# from http://tolstoy.newcastle.edu.au/R/help/05/09/12499.html
options(scipen=10)

data <- read.table("taxes-2007.csv", sep=",", header=TRUE)

plot(data, type="s", xlab="Income (USD)", ylab="Marginal tax rate (%)", lwd=2, xaxs="i", yaxs="i", ylim=c(0, 100))
plot(data, type="s", xlab="Income (USD)", ylab="Marginal tax rate (%)", lwd=2, xaxs="i", yaxs="i", ylim=c(0, 100), xlim=c(0, 100000))