szxship 查看完整内容
library(rvest)
library(data.table)
url = "https://bbs.pinggu.org/thread-10494277-1-1.html"
wb = read_html(url)
dat = html_table(wb,fill = T)[[5]] %>% as.data.table()
id = dat[,.(X2 == max(X2)),by = X1]$V1
dat[,.(max(X2),sum(X3),X4),by = X1]