Transportation=c(75.76, 12.25, 2.00, 2.15, 2.49, 5.35)

barplot(Transportation)

colors=c("gray90","darkgreen","grey70","blue","yellow","brown")
Transportationarray=array(c(Transportation), dim=c(6,1))
barplot(Transportationarray, main="Means of Transportation to Work in Arizona", ylab= "percent", beside=TRUE, names.arg=c("Transportation"),col=colors)
legend("topright", c("Car, truck, or van - drove alone", "truck, or van - carpooled",
"Public transportation (excluding taxicab)","Walked","Taxicab, motorcycle, bicycle, or other means","Worked at home"),
cex=0.8,fill=colors)