I created a data.Stackexchange query to filter the top 25 users by votes and their website. The query only looks at the r tag, returns the gross number of votes, not net, and filters out users who do not have a website. It’s not a perfect filter or technique, but it is both a start and an idea.
top25 <- read.csv("~/R/seasmith.github.io/posts/reference/top25_r_users.csv")
# htmlTable::htmlTable(top25, align = c("l", "r", "r", "l"), margin.left = "2px")
knitr::kable(top25, align = c("l", "l", "r", "l"))