profs.nz
profs.nz[order(with(profs.nz, pubtotal), decreasing = TRUE), ]
if (FALSE) {
plot(pub1stAuthor / pubtotal ~ pubtotal,
main = "Professors of Statistics in NZ",
xlab = "Number of publications in MathSciNet",
ylab = "Proportion of first-authored papers",
data = profs.nz, col = "blue", las = 1, type = "n")
with(profs.nz, text(pubtotal, y = pub1stAuthor / pubtotal,
labels = initials, col = "blue", las = 1))
}
Run the code above in your browser using DataLab