library(interactiveSVG)
budget <- read.csv("budget.csv")
devSVGTips("budget.svg", toolTipMode=0, title="2010 U.S. Budget", width=10, height=12)
par(mar=c(8,28,5,5))
barplot(budget$amount, names.arg = budget$expenditure, horiz=TRUE, las=1, cex.names=0.8, main="2010 U.S. Budget", sub="Mandatory (green), Discretionary (orange), in billion USD", col=c(rep("green", 6),rep("orange", 26)))
dev.off()
clickableSVG(file.in="budget.svg", values=as.vector(budget$amount), clickable.element="rect", update="total", text.x=400, text.y=80)