Hui Zhang Assignment 04

I tried to figure out how to change the angle of words on x-axis to show all the words on x-axis. And I find this:

axis(1,at=seq(1,20,by=1),labels=FALSE)
text(seq(1,20,by=1),par("usr")[3]-0.2,labels=wd.sorted.name,srt = 45, pos = 1, xpd = TRUE)

But it's difficult to match the word position with column. So when I use the function wordHist to show the top 20 words, some of the words are missed on x-axis.