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)))
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
