R语言for循环批量生成变量，并且赋值

打遍天下不还手

于 2020-12-11 17:07:15 发布

阅读量1.3w

点赞数 3

文章标签： r语言

本文链接：https://blog.csdn.net/Judezhl/article/details/111043253

版权

本文介绍了一种使用R语言处理数据的方法，通过读取表格文件并计算不同组别的平均值来简化数据集。具体步骤包括：加载数据、创建样本名称、计算各组平均值并将结果输出到新的表格文件中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

rm(list=ls())
data <- read.table("MS_identified_information.txt",header = T,sep = "\t",quote="",na.strings = "",row.names = 1,comment.char = "")
name1 <- paste("H1299",sep = "_",c(1:3))
name2 <- paste("Metf",sep = "_",c(1:3))
name3 <- paste("OEMetf",sep = "_",c(1:3))
name <- data.frame(name1,name2,name3)
mean.data=data.frame(row.names(data))

for (i in 1:3){
  tmp <- subset(data,select = as.vector.factor(name[,i])) #筛选特定的样本
  mean_ <- as.data.frame(apply(tmp, 1, mean)) #行求平均值
  //assign()功能就是对变量进行赋值如i=1时，df1=mean_
  //把三次结果组合起来
  mean.data <- cbind.data.frame(mean.data,assign(paste("df", i, sep=""), mean_))
  //这里没有体现出变量，实际上生成了df1,df2,df3结果
}
colnames(mean.data) <- c("ID","H1299","Metf","OEMetf")
write.table(mean.data,file="MS_mean.xls",row.names = FALSE,sep = "\t",na="")