R_Language 板


LINE

※ [本文转录自 Statistics 看板 #1IOLy9VR ] 作者: Wush978 (拒看低质媒体) 看板: Statistics 标题: Re: [程式] R 利用for做变数宣告 时间: Sat Oct 19 00:17:02 2013 ※ 引述《robin112 (Robin)》之铭言: : 那请问如果我想开始使用y0~y9的话是要怎麽使用呢? : 例如 : boxplot(y0$x~y0$y) : boxplot(y1$x~y1$y) : ... : boxplot(y9$x~y9$y) ``` for(i in seq_along(list.x)) { # seq_along(list.x) 等同於 1:length(list.x) boxplot(list.x[[i]]$x ~ list.x[[i]]$y) locator(1) # 如果你想要点一下滑鼠再看下一张图 # saevPlot(...) 如果你想要把图片输出 } ``` 这是你要的吗? : 另外 : list.x为宣告一个空白list : 在for回圈里面的length(list.x)会随着i跑吗? : 有点想不透这一行 这牵涉到一点R 的基础资料结构知识。 大部份R 的物件,包含你上面提到的y0, y1, y0$x, y0$y, ... 都是「向量」 而R 都允许使用者透过`[`或`[[`来操作和编辑向量内容。 ex: ```r a <- numeric(0) # 一个长度0的数值向量 a[5] <- pi a # [1] NA NA NA NA 3.141593 ``` 另外欢迎你开始学习使用list物件,list也是一种向量,而且是「R物件」的向量。 也就是说,所有的R物件都可以往里面塞。 它非常强大。 ```r a <- list() a[[1]] <- pi # numeric a[[2]] <- 2L # integer a[[3]] <- letters # character a[[4]] <- TRUE # logical a[[5]] <- Sys.time() # time a[[6]] <- Sys.Date() a[[7]] <- iris a[[8]] <- function() { print("this is a function") } a a[[1]] a[[2]] ... a[[8]]() # 呼叫函数 ``` list 也可以提供用字串当名字的方式来储存或取出物件 ```r a <- list(a = 1, b = letters, c = Sys.time(), d = names) # 直接定义长度为4的`list`, 并且取名字 a[["a"]] a[["b"]] a[[1]] # what is this? ``` 学会使用list之後,就可以解决用回圈来取名字以及用回圈来access变数的需求。 後续若有纯技术的问题,欢迎到R_Language板讨论。 : 谢谢指教 : ※ 引述《BugEater (无庸)》之铭言: : : 试试下面这个应该可行 : : z=paste("y",0:9,sep="") : : ye=c(2000:2009) : : list.x<-list() : : for ( i in 1:10 ) : : { : : list.x[[length(list.x)+1]] <- x[year == ye[i],] : : } : : names(list.x)<-z : : attach(list.x) -- 欢迎到ptt R_Language版分享R 的相关知识 欢迎加入 Taiwan R User Group : http://www.facebook.com/Tw.R.User 聚会报名 http://www.meetup.com/Taiwan-R/ 聚会影片 https://www.youtube.com/user/TWuseRGroup --



※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 36.232.231.29
1F:推 robin112:谢谢你! 我会试试用list作作看 10/20 00:30



※ 发信站: 批踢踢实业坊(ptt.cc)
※ 转录者: celestialgod (111.248.8.209), 08/28/2015 23:26:06
2F:推 memphis: 把function塞到list里有什麽好处嘛? 08/29 07:02
3F:推 Edster: 把function塞到list中可以序列的引用function, 不用管名字 08/29 08:39
4F:→ celestialgod: magrittr就是利用list集合function来逐步执行 08/29 10:28







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:Soft_Job站内搜寻

TOP