有人可以解释一下这一行 R 代码是如何工作的吗?
split(dat, f) <- lapply(split(dat, f), max)
我以为这只是一个回收规则,但我真的无法理解。
数据示例:
dat <- c(1, 2, 3, 100, 200, 300)
f <- as.factor(c("a", "a", "b", "a", "b", "b"))
split(dat, f) <- lapply(split(dat, f), max)
dat
[1] 100 100 300 100 300 300
代码做我想做的事情(按组分配最大值)但问题是这是如何完成的?
最佳答案
拆分给出值 dat[c(1,2,4)]
和 dat[c(3,5,6)]
从向量。
赋值等价于 dat[c(1,2,4)] <- 100 ; dat[c(3,5,6)] <- 300
这就是回收发生的地方。
已编辑
至于会发生什么,以及为什么会产生向量分配结果,请参阅语言定义手册 (http://cran.r-project.org/doc/manuals/R-lang.pdf) 的第 21 页。电话:
split(def, f) <- Z
解释为:
‘*tmp*‘ <- def
def <- "split<-"(‘*tmp*‘, f, value=Z)
rm(‘*tmp*‘)
请注意
split<-.default
返回修改后的向量。
关于回收和分配函数 (`split<-` ),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14294052/