最美情侣中文字幕电影,在线麻豆精品传媒,在线网站高清黄,久久黄色视频

歡迎光臨散文網(wǎng) 會(huì)員登陸 & 注冊(cè)

(R語(yǔ)言爬蟲)用R語(yǔ)言寫一個(gè)小代碼,能夠顯示現(xiàn)在某位up的粉絲數(shù)~

2023-02-16 23:59 作者:DODO小狗克里  | 我要投稿

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"

(R語(yǔ)言爬蟲)用R語(yǔ)言寫一個(gè)小代碼,能夠顯示現(xiàn)在某位up的粉絲數(shù)~的評(píng)論 (共 條)

分享到微博請(qǐng)遵守國(guó)家法律
天台县| 云南省| 朝阳区| 定远县| 邵东县| 珲春市| 昭觉县| 昌吉市| 靖江市| 白朗县| 梨树县| 长春市| 军事| 龙山县| 德兴市| 洮南市| 西充县| 海门市| 吉林市| 新邵县| 巧家县| 象州县| 福建省| 原阳县| 镇沅| 鸡泽县| 宁南县| 仪陇县| 定日县| 廉江市| 榆树市| 枣阳市| 汉沽区| 塘沽区| 阳高县| 乐陵市| 九江市| 富源县| 合作市| 龙井市| 鹤庆县|