Это на самом деле очень просто. Данные поступают с конечной точки json, которую вы можете найти на вкладке сети
library(jsonlite)
data <- jsonlite::read_json('https://www.politico.eu/wp-json/politico/v1/poll-of-polls/BE-parliament')
info <- data$polls
Вы можете преобразовать в фрейм данных. Например:
library(purrr)
df <- map_df(info, function(x) {
data.frame(date = x$`date`,
party = x$parties,
stringsAsFactors=FALSE)
})
names(df) <- gsub( 'party.','',names(df))
Вы всегда можете транспонировать и выполнять любые другие преобразования и т.д. c, которые вы хотите, например
df <- t(df)