我有一个包含相同格式的excel文件的本地文件夹。每个excel文件有10张。
我希望能够做到以下几点:
1)读取R中的所有excel文件
2)将所有结果组合在一起但是按表格。
3)结果将是10个新的数据帧,所有excel文件被绑定在一起。
4)新列将添加文件名
我已经查找了代码,我能找到的最好的是这个,但它没有按表单执行:
files = list.files()
library(plyr)
library(readr)
library(readxl)
data2=lapply(files, read_excel)
for (i in 1:length(data2)){data2[[i]]<-cbind(data2[[i]],files[i])}
all_data <- do.call("rbind.fill", data2)
有人有这个成功吗?
提前致谢
如果你愿意,你也可以使用tidyverse
方法对其进行矢量化。
require(tidyverse)
df <- list.files(path = "your_path",
full.names = TRUE,
recursive = TRUE,
pattern = "*.xls") %>%
tbl_df() %>%
mutate(sheetName = map(value, readxl::excel_sheets)) %>%
unnest(sheetName) %>%
mutate(myFiles = purrr::map2(value, sheetName, function(x,y) {
readxl::read_excel(x, sheet = paste(y))})) %>%
unnest(myFiles)
*不知怎的,我无法标记它,所以我正在复制我的答案来自here