今天來(lái)整個(gè)活兒，在MAC系統(tǒng)下，我只要按下control+option+B即可在終端中顯示出up主的粉絲數(shù)和視頻各項(xiàng)數(shù)據(jù)，是不是很好玩呢？

第一步，需要寫(xiě)一段R語(yǔ)言的腳本：紅色的地方是需要修改的

我這里直接提供給大家：

suppressMessages(library("httr"))

suppressMessages(library("magrittr"))

suppressMessages(library("rvest"))

suppressMessages(library("xml2"))

suppressMessages(library("stringr"))

suppressMessages(library("dplyr"))

suppressMessages(library("openxlsx"))

suppressMessages(library("writexl"))

suppressMessages(library("knitr"))

# rm(list=ls())

up<-"DODO小狗克里" ? #在這里輸入up主的名稱，vmid號(hào)以及相關(guān)視頻的BV號(hào)哦！

vmid<-"631185362" ? ? ? ? ? ?#up主的vmid號(hào)

BV_list<-c("BV1iM41147qo", ? #爬取某個(gè)視頻的數(shù)據(jù)

? ? ? ? ? ?"BV1e3411o7up",

? ? ? ? ? ?"BV1bd4y177aV",

? ? ? ? ? ?"BV1AG4y1M7c7",

? ? ? ? ? ?"BV18r4y1e7xQ",

? ? ? ? ? ?"BV1FY411a7r5",

? ? ? ? ? ?"BV1Zo4y1Q7NK",

? ? ? ? ? ?"BV1yf4y1C7Je",

? ? ? ? ? ?"BV1Ef4y1D7Co")

url <- paste0("https://api.bilibili.com/x/relation/stat?vmid=",vmid,"&jsonp=jsonp")

# 發(fā)送 GET 請(qǐng)求，獲取頁(yè)面內(nèi)容

response <- GET(url)

# 解析頁(yè)面內(nèi)容

parsed_html <- read_html(response$content);parsed_html<-as.character(parsed_html)

follower <- str_extract(parsed_html, '\"follower\":\\d+');follower <- str_extract(follower,"\\d+")

bili_data_total<-total<-as.data.frame(matrix(nrow=0,ncol=5))

for (i in 1:length(BV_list)) {

? BVid<-BV_list[i]

? url<-paste0("https://www.bilibili.com/video/";,BV_list[i],"/?spm_id_from=333.999.0.0&vd_source=0e9474e50ba827d3921782ed599cfd79")

? page <- read_html(url)

?view_count<-page %>% html_nodes(".view") %>% html_text() %>% ?trimws()

?danmu_count<-page %>% html_nodes(".dm") %>% html_text() %>% as.numeric();danmu_count<-danmu_count[1]

? ?video_title <- page %>% html_nodes(".video-title") %>% html_text() %>% trimws()

? pudate<- page %>%html_nodes(".pudate-text") %>% html_text() %>% ?trimws()

? ?

? bili_data <- page %>% html_nodes(".info-text") %>% html_text() %>% as.numeric()

? bili_data<-as.data.frame(t(bili_data))

? bili_data<-cbind(BVid,video_title,bili_data,pudate,view_count,danmu_count,strftime(Sys.time(), format = "%Y-%m-%d %H:%M:%S"))

? bili_data_total<-rbind(bili_data_total,bili_data)

??

}

colnames(bili_data_total)<-c("BV_id","視頻名","點(diǎn)贊數(shù)","投幣數(shù)","收藏?cái)?shù)","轉(zhuǎn)發(fā)數(shù)","發(fā)表時(shí)間","播放量","彈幕數(shù)","獲取時(shí)間")

show_data<-bili_data_total[,c("視頻名","點(diǎn)贊數(shù)","投幣數(shù)","收藏?cái)?shù)","轉(zhuǎn)發(fā)數(shù)","播放量","彈幕數(shù)")]

show_data$視頻名<-substr(show_data$視頻名,1,10)

cat("\n")

cat(paste(" ? ? ? ? ? ? ? ",strftime(Sys.time(), format = "%Y-%m-%d %H:%M")," ",up,"的b站粉絲數(shù)是:",follower,sep=""))

kable(show_data, align = "c") # 將所有列居中對(duì)齊

# paste0("粉絲數(shù)",follower)

wb <- createWorkbook()

sheet<-paste0("粉絲數(shù)",follower)

addWorksheet(wb, sheet) ? ? ? ? ? ? ? ? ? ?# 添加一個(gè)工作表

freezePane(wb, sheet, firstRow = TRUE) ? ? #凍結(jié)首行

writeData(wb, sheet, bili_data_total,

? ? ? ? ? withFilter=T,headerStyle=createStyle(

? ? ? ? ? ? fontSize = 11, fontName = "Calibri",

? ? ? ? ? ? textDecoration = "bold", halign = "left"))

saveWorkbook(wb, paste0("/Users/chenchen/Desktop/bilibili/",up,"的b站數(shù)據(jù)/b站數(shù)據(jù).xlsx"), overwrite = TRUE)

beepr::beep(2)

第二步：

輸入這個(gè)腳本：Rscript右邊的部分是上面這個(gè)R程序的具體路徑

Rscript /Users/chenchen/Desktop/bilibili/b站爬取粉絲數(shù).R

（這一步比較重要，不要出錯(cuò)，注意Rscript右邊有一個(gè)空格，完成后先打開(kāi)終端測(cè)試一下，可以再進(jìn)行下一步）

第三步：

這里我把第一步的程序和第三部需要的軟件都放在這里了

鏈接: https://pan.baidu.com/s/1nPdGvGe9ZvVpKLbXvvDVFQ?pwd=8v3a 提取碼: 8v3a?

--來(lái)自百度網(wǎng)盤(pán)超級(jí)會(huì)員v5的分享

安裝Keyboard Maestro，然后按照?qǐng)D片進(jìn)行設(shè)置所示：

需設(shè)置自定義的快捷鍵，第二步寫(xiě)的R程序路徑名。

好啦，完成之后就可以按下快捷鍵開(kāi)始你的表演了～