do.call小尝试

作者: 木随东 | 来源:发表于2021-10-09 16:40 被阅读0次

do.call（）
plyr::ldply-列表[list]转换数据框[data.f
[笔记]why is data.frame so slow
小尝试
小尝试
小尝试
小尝试
小尝试
do.call 保留行名
do.call和Reduce函数

#列出文件名， 即文件夹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（）
do.call() 作为基础函数，do.call的作用可以简单总结为：对列表中的每一项进行某个函数操作（rbind...
plyr::ldply-列表[list]转换数据框[data.f
首推使用do.call(rbind,lapply(seq(5),FUN = function(x) vetro )...
[笔记]why is data.frame so slow
do.call(rbind, ) 换成 dplyr::bind_rows( ) 竟然提速千倍,R让人如此无语。 R...
小尝试
可能写的很简单，因为之前没有写过这类东西，决定还是应该记录一下。之前和舍友报名了这个，但是没太在意，就给忘记了，...
小尝试
一直有一种想写文章的感觉，以前总爱看些小说，特别容易沉迷其中废寝忘食到荒废学业，不过那都是在以前上学的时候不爱学习...
小尝试
下午朋友打电话要去洞头小转一圈，我犹豫了一下，决定出去小试一番。五十天以来，我每天的活动量不超过100步，...
小尝试
停课不停学，云开学后，一切课程如常。要上拓展课了，学校让老师积极参与，我想挑战一下自己，给自己一个尝试的机...
小尝试
我决定在三分钟之内挑战不思考语音录入200字。今天的电脑真的是把我折腾惨了，幸亏有杨一直不厌其烦的远程操作帮我找...
do.call 保留行名
do.call和Reduce函数
do.callDescriptiondo.call constructs and executes a funct...