Developing-Data-Products Presentation,
Vasanth
June 17, 2015
library(datasets)
wp <- subset(data.frame(as.table(WorldPhones)), Var1=="1961")
barplot(wp$Freq, names.arg = wp$Var2,
main=paste("The World's Phones in: 1961 in thousands"))
(hint: use the log-scale setting)