#列出文件名, 即文件夹FPKM下所有含mat.csv的文件
fs = list.files('FPKM', pattern = "mat.csv")
file_path = file.path('FPKM', fs)#文件路径
#关于lapply, 需要设定起始值
file=list()
result = vector()
#关键代码,判断矩阵行名是否一致
do.call(rbind, lapply(1:(length(fs)-1), function(x,y){
file[[x]] = read.csv(file_path[x], row.names = 1)
y=x+1
file[[y]] = read.csv(file_path[y], row.names = 1)
result[x] = identical(rownames(file[[x]]), rownames(file[[y]]))#比较行名
return(c(file_path[x], file_path[y], result[x]))#只能返回一个值,这里返回一个向量
}))
do.call小尝试
最后编辑于 :
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
- 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
推荐阅读更多精彩内容
- me, knowing nothing still P23 系统的入门 R 语言 03:01 荐书:《R语言实战(...
- 数据与变量: 加载数据 > cup98 <- read.csv("F:/cup98lrn.txt")> dim(c...
- 4.1 R and RStudio简介 ①安装R、RStudio和R包:R可以从http://www.r-pro...