[R] navel-gazing

[Ben Bolker]

month <- "2010-August"
list <- "r-help"
##list <- "r-sig-ecology"
##list <- "r-sig-mixed-models"
## month <- "2010q3"
n <- 50
baseurl <- "https://stat.ethz.ch/pipermail/"
library(RCurl)
z <- getURL(paste(baseurl,list,"/",month,"/author.html",sep=""))
zz <- strsplit(z,"<LI>")[[1]]
namefun <- function(x) {
  gsub("\\n","",gsub("^.+<I>","",gsub("</I>.+$","",x)))
}

cnames <- sapply(zz[3:(length(zz)-1)],namefun)
rr <- rev(sort(table(cnames)))


library(lattice)
dotplot(~rev(rr[1:n]),xlab="Number of posts")

dotplot(~rev(rr[1:n]),xlab="Number of posts",
        scales=list(x=list(log=10)))