我一直在嘗試從保存為 JavaScript 的網(wǎng)站中抓取輪詢時(shí)間序列。到目前為止，一旦選擇“圓形”節(jié)點(diǎn)，我最終會(huì)得到一個(gè)空列表。下面的代碼，任何一點(diǎn)都非常感謝。library(rvest)library(V8)url = 'https://www.politico.eu/europe-poll-of-polls/belgium/'dta = read_html(url) %>% html_node('svg') %>% html_node('g') %>% html_node('circle')
1 回答
HUWWW
TA貢獻(xiàn)1874條經(jīng)驗(yàn) 獲得超12個(gè)贊
其實(shí)很簡(jiǎn)單。數(shù)據(jù)來(lái)自您可以在網(wǎng)絡(luò)選項(xiàng)卡中找到的 json 端點(diǎn)
library(jsonlite)
data <- jsonlite::read_json('https://www.politico.eu/wp-json/politico/v1/poll-of-polls/BE-parliament')
info <- data$polls
您可以轉(zhuǎn)換為數(shù)據(jù)框。例如：
library(purrr)
df <- map_df(info, function(x) {
data.frame(date = x$`date`,
party = x$parties,
stringsAsFactors=FALSE)
})
names(df) <- gsub( 'party.','',names(df))
您始終可以轉(zhuǎn)置并進(jìn)行任何其他您想要的轉(zhuǎn)換等，例如
df <- t(df)
- 1 回答
- 0 關(guān)注
- 115 瀏覽
添加回答
舉報(bào)
0/150
提交
取消