verizon <- read.csv("verizon.csv", header=T)
measures <- table(verizon$Year, verizon$Profits)
barplot(verizon$Profits, main="The making of Verizon",
		col=c("darkblue", "red"),
		legend=rownames(measures))
axis(1, at=verizon$Years[0]:length(verizon$Years) lab=verizon$Profits)