#方法就是与 list 结合;list 可以存很多东西
如下图所示:现在的目标——要循环读取这个excel里面的名为“0”-“10”的sheet,
所以sheetindex 是从 2-12
library(xlsx)
list1 <- list()#需要先创建一个list
for (i in 2:12) {
list1[i-1] <- list(read.xlsx("D:/R/singcell/likw/DATA/2021 feiyang wang/dNKmarker R.xlsx",sheetIndex = i,header = TRUE))
}
上面这行代码就能将所有工作簿的内容依次存到 list1 里面了
为了方便查看,将每一个存到list里的sheet的名称与原来的“0-10”对应起来。
(注:这里的cluster“只是根据个人需要添加的,这里是单细胞的cluster)
names(list1) #查看此时list里每一个数据集的名称
names(list1) <- paste("cluster",0:10) #重命名
names(list1) #再次查看此时list里每一个数据集的名称
list1 #查看整个list1的情况
得到结果如下:
> names(list1)
[1] "cluster 0" "cluster 1" "cluster 2" "cluster 3" "cluster 4" "cluster 5" "cluster 6" "cluster 7" "cluster 8" "cluster 9" "cluster 10"