vcex <- norm.vec(word.size[,i], 2, 3)
text(-0.9, -0.5, cn[i], cex = 1, adj=0, srt=90, col='black')
for (j in 1:length(word.size[,i])) {
vcex <- norm.vec(word.size[,i], 2, 3)
text(-0.9, -0.5, cn[i], cex = 1, adj=0, srt=90, col='black')
for (j in 1:length(word.size[,i])) {