R 将刮取的数据导出到一个CSV

我设法在

R（rvest）

中做了一个收集选举信息的刮板，但现在我正在努力解决如何将数据保存在一个CSV文件中，而不是保存在单独的CSV文件中

这是我的工作代码，我可以分别废弃第11、12、13页

library(rvest)
library(xml2)

do.call(rbind, lapply(11:13, 
                  function(n) {
url <- paste0("http://www.cvk.gov.ua/pls/vnd2014/WP040?PT001F01=910&pf7331=", n)
mi <- read_html(url)%>% html_table(fill = TRUE)
mi[[8]]

file <- paste0("election2014_", n, ".csv")
if (!file.exists(file)) write.csv(mi[[8]], file) 
Sys.sleep(5)
}))

---

我无法使您的代码正常工作，但您可以尝试在运行代码之前创建一个空数据框，然后在编写包含完整数据的csv文件之前执行此操作：

df   = rbind(df,mi[[8]])

您还可以考虑使用purrr包将csv文件转换为一个：

files = list.files("folder_name",pattern="*.csv",full.names = T)

df = files %>%
  map(read_csv) %>%
  reduce(rbind)

试试这个：

library(rvest)
library(tidyverse)


scr<-function(n){
  url<-paste0("http://www.cvk.gov.ua/pls/vnd2014/WP040?PT001F01=910&pf7331=",n)

 df=read_html(url)%>%
    html_table(fill = TRUE)%>%
    .[[8]]%>%
    data.frame()
 colnames(df)<-df[1,] 
 df<-df[-1,]
 }

res<-11:13%>%
  map_df(.,scr)
write.csv2(res,"odin_tyr.csv")

库（rvest）
图书馆（tidyverse）
scr%
.[[8]]%>%
data.frame（）
colnames（df）欢迎使用StackOverflow！你确定你的URL有效吗？我收到一个
HTTP错误400
。嗨！我认为你的url有一个输入错误。由于您正在尝试一个
get
请求，所以
？
应该在您的url中的某个位置。我编辑了url。它现在必须工作。可能是
library(rvest)
library(tidyverse)


scr<-function(n){
  url<-paste0("http://www.cvk.gov.ua/pls/vnd2014/WP040?PT001F01=910&pf7331=",n)

 df=read_html(url)%>%
    html_table(fill = TRUE)%>%
    .[[8]]%>%
    data.frame()
 colnames(df)<-df[1,] 
 df<-df[-1,]
 }

res<-11:13%>%
  map_df(.,scr)
write.csv2(res,"odin_tyr.csv")