作者skylikewater (choc.)
看板R_Language
标题[问题] <<- 全域变数赋值
时间Thu Sep 25 16:45:42 2014
[问题类型]:
程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
[软体熟悉度]:
使用者(已经有用R 做过不少作品)
[问题叙述]:
简单说我的问题是在子函式中对变数宣告跟赋值时使用 <<- 符号，
产生不稳定的结果。想知道是否误解 <<- 的用法、或是有更好的处理方法。
我的程式是受试者资料 coding，
每个人在自己的 csv 表格档案里里大概有数百个变数如下：
姓名 性别 年龄 教育
王大明 男 18 12
身高体重
身高 体重 BMI 体脂 腰围
180 70 NA 12 30
...
我把档案
read.csv
Name = array(0,dim = c(TotalNum,1))
Name[SubjNum] = as.character(Data$V1[2])
然後再做些常模之类的查照计算。
最近档案实在太大，
我试着模组化每个分量表到不同的 .r 里，就出现了赋值上的问题
如前辈们所知，一个函式只能 return 一个值，
我看不太懂 assign 的功能、感觉不和我的需求，
最近尝试做了 setClass 但语法会变得太庞杂。
於是我试着全局赋值 <<-
变成在 Data.r 中
source('LoadBody.r')
# Declaration
LoadBody(1, 1)
# Input
for (SubjNum in 1:TotalNum) {
read.csv
LoadBody(2, SubjNum)
}
# Data frame
eval(parse(text = paste("AllData = data.frame(",
LoadBody(3, NowCodingNum),
(...)
")", sep = "")))
然後有个子函式 LoadBody.r 如下
LoadBody <- function(Task, SubjNum) {
if (Task == 1) {
Name
<<- array(0,dim = c(TotalNum,1))
...
} else if (Task == 2) {
Name[SubjNum]
<<- as.character(Data$V1[2])
...
} else if (Task == 3) {
return("Name = Name,
(...) ")
}
}
但到最後出来的表格却有很多异常，
例如明明有资料的位置却是错误的行列（这已经再三确认过了）或是空白，
那些错误的点，在执行个别的子函式（e.g. LoadBody.r）时并不会发生。
试着查资料很难查到关键字，
只有在这篇 COS 论坛 的讨论中有实例：
http://cos.name/cn/topic/106368
提到 <<- 是逐层向外搜索的，建议大家尽量避免。
在我的情况下则是有时正确，有时不正确。
我想请前辈建议适合的替代方案，或是我对 <<- 的赋值有什麽根本性的误解呢？
感谢！
[程式范例]:
大致如上，具体的资料毕竟是受试隐私，也有点大
[关键字]:
函数 全域赋值 <<-
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.112.121.113
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/R_Language/M.1411634747.A.6A9.html
※ 编辑: skylikewater (140.112.121.113), 09/25/2014 16:53:09
1F：→ obarisk: 函数可return一个变数，变数可以是值可以是list也可以是e 09/25 18:02
2F：→ obarisk: nv 09/25 18:02
天啊！真是一句话点破！感谢 : )
※ 编辑: skylikewater (140.112.121.113), 09/25/2014 18:20:48
3F：→ obarisk: <<-除非必要，还是少用 09/25 21:34
4F：→ andrew43: 回传 list 就好了。大多数的内建function都是这麽做的 09/25 21:44
5F：→ gsuper: 函式包函式是问题的主因 单纯函式用 <<- 还是方便的多 10/03 13:21
6F：→ gsuper: 同样的问题也会发生在跑平行运算的时後 10/03 13:21