#列出文件名， 即文件夾FPKM下所有含mat.csv的文件
fs = list.files('FPKM', pattern = "mat.csv")

file_path = file.path('FPKM', fs)#文件路徑

#關(guān)于lapply, 需要設(shè)定起始值
file=list()
result = vector()

#關(guān)鍵代碼，判斷矩陣行名是否一致
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]))#只能返回一個值，這里返回一個向量
}))