在Rstudio中批量导入和合并CSV

我正在从HOBOware记录器下载文件，它生成的CSV很混乱。我需要删除第1、5-8列，并跳过第一行

有很多文件，我试图立即上传，但跳过的行给我带来了问题

多亏了另一个线程，我几乎可以做我想做的事情，但是CSV中的一个空行导致数据无法正确上传，从而创建了空白单元格

这是单独读取每个CSV时工作的代码

library(readr)
Pool_620180212 <- read_csv("Pool 6/Pool_620180212.csv", 
    col_types = cols(`Date Time, GMT-05:00` = col_datetime(format = "%m/%d/%y %H:%M:%S")), 
    skip = 1)

我不知道如何设置参数的格式，以包含每个CSV的以下格式，以便能够正确读取

"col_types = cols(`Date Time, GMT-05:00` = col_datetime(format = "%m/%d/%y %H:%M:%S")), 
    skip = 1)"

我对R不是很有经验，所以任何关于删除不需要的列的建议都是很好的，我一直在为每一个非常麻烦的列做这件事

file$column = NULL

试试这个：

library(data.table)

setwd("C:/Users/Christopher/Desktop/NEW R/Converted HOBO files")
x = lapply(list.files(pattern="*\\.csv"), function(x){
  fread(x) 
})%>% rbindlist()

可以在循环之后删除列

或者在循环中指定它： 我不确定你的专栏是什么，但看起来是这样的：

library(data.table)
library(lubridate)

setwd("C:/Users/Christopher/Desktop/NEW R/Converted HOBO files")
x = lapply(list.files(pattern="*\\.csv"), function(x){
  fread(x) 
x$date = ymd_hms(x$date)
x$col = NULL
})%>% rbindlist()

---

install.packages中的警告：包“”不可用（适用于R版本3.5.3）嗯，这很奇怪。你可以用基r中的Lappy替换PBLappy。PBLappy允许你查看循环的进度。@克里斯，如果你觉得我的答案有用，请检查它。由于某些原因，它与我的r版本不兼容。Lappy是基r的一部分。不需要加载它。我将编辑我的答案以避免PBLappy。

library(data.table)
library(lubridate)

setwd("C:/Users/Christopher/Desktop/NEW R/Converted HOBO files")
x = lapply(list.files(pattern="*\\.csv"), function(x){
  fread(x) 
x$date = ymd_hms(x$date)
x$col = NULL
})%>% rbindlist()