Word Clouds in R

http://www.r-bloggers.com/abstract-word-clouds-using-r/

http://eutils.ncbi.nlm.nih.gov/corehtml/query/static/efetch_help.html

http://eutils.ncbi.nlm.nih.gov/corehtml/query/static/esearch_help.html

http://math.illinoisstate.edu/dhkim/rstuff/rtutor.html

> library(lattice)
> x
  a b
4 d 4
3 c 3
2 b 2
1 a 1
> x[order(x$b,decreasing=TRUE),]
> xyplot(b ~ a, data = x, groups=a, ylab='', xlab='', scales=list(x=list(tck=0, at=0),y=list(tck=0, at=0)), panel = function(x,y,subscripts,groups) ltext(x = c(mean(y),sample(1:max(y-1))), y = c(mean(y),sample(1:max(y-1))), label=groups[subscripts], cex=1*y^1.5, fontfamily = c("AvantGarde", "Bookman", "Courier", "Helvetica", "Helvetica-Narrow", "NewCenturySchoolbook", "Palatino", "Times"), col=c('red','blue')))