基于R语言for循环的替换方案
R语言中,for循环运行比较慢
for(i in 1:1000){ print(i^2) }
补充:R语言:for循环使用小结
基本结构展示:
vals =c(5,6,7) for(v in vals){ print(v) } #即把大括号里的内容对vals里的每一个值都循环run一遍
实例展示:
1. paste() 命令是把几个字符连接起来
如paste("A","B","C",sep=" ")得到的就是“A B C”,在次基础上写如下for loop:
partnumber = c(1,2,5,78) for(i in partnumber){ print(paste("participant number",i, sep = " ")) } #就可以得到一串参与者号码,根据上面给定的几个值, 从"participant number 1" 到"participant number 8"
2. 双重loop
partnumber = c(1,2,5,78) institution =c("cancer center", "RMH", "Florey") for(i in partnumber){ for(j in institution){ print(paste("participant number",i,", institution",j,sep = " ")) } } # 先对j循环,后对i循环,得到如下结果 [1] "participant number 1 , institution cancer center" [1] "participant number 1 , institution RMH" [1] "participant number 1 , institution Florey" [1] "participant number 2 , institution cancer center" [1] "participant number 2 , institution RMH" [1] "participant number 2 , institution Florey" [1] "participant number 5 , institution cancer center" [1] "participant number 5 , institution RMH" [1] "participant number 5 , institution Florey" [1] "participant number 78 , institution cancer center" [1] "participant number 78 , institution RMH" [1] "participant number 78 , institution Florey" # 两个loop的话,output得放最中心的loop里面,如果只要要第一层loop,就放在靠外一层括号里面,第二层括号就保留最后的一个值
3. 数据库实例演示
Titanic=read.csv("https://goo.gl/4Gqsnz") #从网络读取数据<0.2, 0.2-0.6还是>0.6。
目的:看不同舱位(Pclass)和不同性别(Sex)的人的生存率是
A<- sort(unique(Pclass)) #sort可以把类别按大小顺序排,unique()命令是把分类变量的种类提取出来 B<- sort(unique(Sex)) for(i in A){ for(j in B){ if(mean(Survived[Pclass==i&Sex==j])<0.2){ print(paste("for class",i,"sex",j,"mean survival is less than 0.2")) } else if (mean(Survived[Pclass==i&Sex==j])>0.6){ print(paste("for class",i,"sex",j,"mean survival is more than 0.6")) } else { print(paste("for class",i,"sex",j,"mean survival is between 0.2 and 0.6"))} } }
结果如下:
[1] "for class 1 sex female mean survival is more than 0.6"
[1] "for class 1 sex male mean survival is between 0.2 and 0.6"
[1] "for class 2 sex female mean survival is more than 0.6"
[1] "for class 2 sex male mean survival is less than 0.2"
[1] "for class 3 sex female mean survival is between 0.2 and 0.6"
[1] "for class 3 sex male mean survival is less than 0.2"
补充:R语言for循环批量生成变量,并且赋值
看代码~
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="")
以上为个人经验,希望能给大家一个参考,也希望大家多多支持猪先飞。如有错误或未考虑完全的地方,望不吝赐教。
相关文章
python-for x in range的用法(注意要点、细节)
这篇文章主要介绍了python-for x in range的用法,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2021-05-10- 这篇文章主要介绍了R语言作图:坐标轴的设置方式,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2021-05-06
- 这篇文章主要介绍了R语言删除指定变量或对象的操作方法,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2021-05-06
- 这篇文章主要介绍了R语言基本画图函数与多图多线的用法,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2021-05-06
- 这篇文章主要介绍了Java8处理List的双层循环问题,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2020-08-19
jquery中常用的SET和GET$(”#msg”).html循环介绍
复制代码 代码如下: $(”#msg”).html(); //返回id为msg的元素节点的html内容。 $(”#msg”).html(”new content“); //将“new content” 作为html串写入id为msg的元素节点内容中,页面显示粗体的new content $(”...2013-10-13浅谈Java8 的foreach跳出循环break/return
这篇文章主要介绍了Java8 的foreach跳出循环break/return,具有很好的参考价值,希望对大家有所帮助。如有错误或未考虑完全的地方,望不吝赐教...2021-07-28- 本文介绍了forum.php的打开方法,不会的同学可以参考一下。 虚拟空间,网页管理端, 会有一个默认访问页面(找一下,是这个意思,可能会有所不同),内容一般是 index.html index...2017-07-06
- v-for标签可以用来遍历数组,将数组的每一个值绑定到相应的视图元素中去,下面这篇文章主要给大家介绍了关于在Vue.js中轻松解决v-for执行出错的三个方案,文中通过示例代码介绍的非常详细,对大家具有一定的参考学习价值,需要的朋友们下面来一起看看吧。...2017-06-15
- 这篇文章主要介绍了Javascript for in的缺陷总结的相关资料,需要的朋友可以参考下...2017-02-08
- 这篇文章主要介绍了R语言-将list转换为向量的操作,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2021-05-06
- 这篇文章主要介绍了R语言-切换科学计数法和更换小数点位数的操作,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2021-05-06
- 这篇文章主要介绍了R语言创建矩阵的实现方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2021-05-06
mybatis-plus mapper中foreach循环操作代码详解(新增或修改)
这篇文章主要介绍了mybatis-plus mapper中foreach循环操作代码详解(新增或修改),本文通过实例代码给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下...2020-11-17- 这篇文章主要介绍了C#中的基本循环:while循环、for循环和foreach循环,大家都知道循环结构可以简化程序编码,更好地实现理想的效果,并结合案例给大家讲解,需要的朋友可以参考下...2020-06-25
- Navicat for MySQL注册码用来激活 Navicat for MySQL 软件,只要拥有 Navicat 注册码就能激活相应的 Navicat 产品。这篇文章主要介绍了Navicat for MySQL 11注册码\激活码汇总,需要的朋友可以参考下...2020-11-23
- 这篇文章主要介绍了python 实现循环定义、赋值多个变量的操作,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2021-03-09
- 这篇文章主要介绍了shell中的for循环用法详解,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2020-07-11
- 这篇文章主要介绍了解决vue-router路由拦截造成死循环问题,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2020-08-05
- 这篇文章主要介绍了c# 循环语句的使用方法,文中代码非常详细,供大家参考和学习,感兴趣的朋友可以了解下...2020-06-25