# NOT RUN {
data(AccountantsAuditorsPct)
plot(names(AccountantsAuditorsPct), AccountantsAuditorsPct,
type='l', log='y', cex.axis=1.8)
# for the version of this contributed to Wikimedia Commons
# }
Run the code above in your browser using DataLab