（R語(yǔ)言爬蟲）用R語(yǔ)言寫一個(gè)小代碼，能夠顯示現(xiàn)在某位up的粉絲數(shù)~
install.packages("httr");install.packages("rvest");install.packages("stringr")
#沒有R包先要安裝哦
library(httr)
library(rvest)
library(stringr)
# 設(shè)置要爬取的網(wǎng)頁(yè) URL
url <- "https://api.bilibili.com/x/relation/stat?vmid=631185362&jsonp=jsonp"
#vmidh后面的數(shù)字修改一下就可以哦
# 發(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+")
# 格式設(shè)置成:連接函數(shù)，格式為“YYYY-MM-DD HH:MM:SS”
paste(strftime(Sys.time(), format = "%Y-%m-%d %H:%M:%S")," ","b站粉絲數(shù)是:",follower,sep="")
#哈哈，是不是很好玩(??????)??
# ?"2023-02-16 23:55:07 DODO小狗克里的b站粉絲數(shù)是:1367"
標(biāo)簽：
