这就是我尝试过的。我可以提取B15:G17中的单元格范围,但是如何将B8单元格附加到列中?另外,可以将第10行作为列标题吗?
library("readxl")
file.list <- list.files(path=".", pattern=".xlsx")
df.list <- lapply(file.list, read_excel, sheet=1, range=("B15:G17"), col_names=FALSE, col_types = NULL)
df <- data.frame(df.list)
在read.xlsx
从openxlsx
一个更灵活一点,我们可以指定rows/cols
参数读取特定的细胞,以及使用startRow
指定的起始行
library(openxlsx)
lst1 <- lapply(file.list, function(x) read.xlsx(x, sheet = 1, startRow = 10, cols = 3:6, rows = 15:17))
另外,请分别读取特定的单元格,然后将其绑定为list
withMap
和and的每个数据集中的新列“ ID”cbind
lst2 <- lapply(file.list, function(x) setNames(read.xlsx(x, sheet = 1,
rows = 8, cols = 2), 'ID'))
Map(cbind, ID = lst2, lst1)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句