小编anp*_*ami的帖子

我有一个包含国家/地区名称的嵌套列表。我想计算国家/地区的频率，即在子列表中每次提及时都会添加 +1（无论该国家/地区在该子列表中的提及频率如何）。

例如，如果我有这个列表：

[[1]]
[1] "Austria" "Austria" "Austria"

[[2]]
[1] "Austria" "Sweden"

[[3]]
[1] "Austria" "Austria" "Sweden"  "Sweden" "Sweden" "Sweden"

[[4]]
[1] "Austria" "Austria" "Austria"

[[5]]
[1] "Austria" "Japan" 

...然后我希望结果是这样的：

country        freq
====================
Austria         5
Sweden          2
Japan           1

我已经尝试了各种方法来使用lapply、unlist、table等，但没有任何方法可以满足我的需要。我将不胜感激您的帮助！

有没有办法使用 RSelenium 最大化浏览器窗口？

我当前的代码是：

scrape_url <- "https://[...]"

eCaps <- list(firefoxOptions = list(
    args = list('--user-agent="Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko)"')
))
    
rD <- RSelenium::rsDriver(browser="firefox", port=4546L, verbose=F, chromever="87.0.4280.20",
                              extraCapabilities = eCaps)
    
remDr <- rD[["client"]]
remDr$navigate(scrape_url)