# NOT RUN {
data(Depends)
plot(Depends, xlab="Number of Dependencies", ylab="Number of R Packages", lwd=8)
# }
# NOT RUN {
# The code below, from Joseph Rickert, downloads and tabulates the data
p <- as.data.frame(available.packages(),stringsAsFactors=FALSE)
names(p)
pkgs <- data.frame(p[,c(1,4)]) # Pick out Package names and Depends
row.names(pkgs) <- NULL # Get rid of row names
pkgs <- pkgs[complete.cases(pkgs[,2]),] # Remove NAs
pkgs$Depends2 <-strsplit(pkgs$Depends,",") # split list of Depends
pkgs$numDepends <- as.numeric(lapply(pkgs$Depends2,length)) # Count number of dependencies in list
zeros <- c(rep(0,dim(p)[1] - dim(pkgs)[1])) # Account for packages with no dependencies
Deps <- as.vector(c(zeros,pkgs$numDepends)) # Set up to tablate
Depends <- table(Deps)
# }
Run the code above in your browser using DataLab