目标
导入并绑定 xlsx 文件列表,其中包含不可预测的不相关的第一列。(必须消除它,但您不知道哪个文件包含不相关的第一列。)
# sample : remind that the xlsx file originally don't have any column names
DT1 = data.table(a = c("TYPE","X","Y","Z"), b = c("MONTH","Jan","Feb","Mar"))
DT2 = data.table(a = c(NA,NA,NA,"random_irrelevant_vale") ,b = c("TYPE","X","Y","W"), c = c("MONTH","Apr","Feb","May"))
# give "idcol" & col_names = FALSE is a must
PATH_LIST<- list.files(path = "PATH",
pattern = "*.xlsx",full.names = TRUE)
names(PATH_LIST) <- basename(PATH_LIST)
rbindlist(lapply(PATH_LIST,import,col_names = FALSE,
col_types = "text"),
idcol = "source",fill = TRUE)
# EXPECTED OUTPUT
TYPE MONTH
X Jan
Y Feb
Z Mar
X Apr
Y Feb
W May
- 不能简单地使用 !grepl("random_irrevelevant_value",x) 因为 "random_irrevelevant_value" 是一个随机值。
我如何在导入和 rbind 步骤之间实现这一点?