前言
今天在群里的童鞋咨询了关于使用ID号来合并的多组数据的问题。关于这个问题，逻辑我们都是知道的。自己前面也遇到过这里的问题，但时间太久了，以及很长时间没学习和复习了。自己动手起来还是很费劲的！！[泪目]
学习是那么的重要，复习也是那么的重要呀！！
具体的问题和解答看往下面看吧！！
--
问题咨询
如何解决？
对于这个问题，在前面的分析中也遇到过类似的。
我们的社群里面的童鞋也参与了讨论。啊哈哈哈，这就是我们需要看到的，也许我们建立社群的意义哦！！！
最终，昨天我们获得两个解决此问题的代码。
我们具体看一下：
方案一：
## 倒入你的文件，名字命名一致即可
fnames <- Sys.glob("DEG0*.csv")
fnames
#读取lfc、pvalue两列，根据你需要的进行读取
fdataset <- lapply(fnames, function(x){read.csv(x)[,c(2,4,7)]}) # c(2,5)是你自己提取的数据列位置
names(fdataset) <- fnames
data <- cbind(fdataset)
MyMerge <- function(x, y){
df <- merge(x, y, by= "ID", all.x= TRUE, all.y= TRUE)
df2 <- cbind(df)
return(df2)
}
mergedata <- Reduce(MyMerge, fdataset)
head(mergedata)
获得结果
方案二
本教程来自
图片
test <- (res1[,2:3])
for(i in 2:26) {
test <- cbind(test,get(paste("res",i,sep=""))[,2:3])
}
test <- as.data.frame(test)
此代码需要将你的数据导入进去即可
获得结果
方案三
今天，我想一下就是直接使用命令行是否也是可以的呢？
很常用的，awk就可以使用！（PS：自己能力有限，awk没学习好，看到本文本的大佬是否可以贡献一下呢！！）
此解决方案需要大佬的支持！！！
等你的代码分享！！！
## 你提交的代码
小杜的生信筆記 ，主要发表或收录生物信息学的教程，以及基于R的分析和可视化（包括数据分析，图形绘制等）；分享感兴趣的文献和学习资料！
网友评论