如何在 lme4 ranef() S4 class 中粘贴表达式？

Question

假设我想用 lme4 计算随机模型效应。这是一个示例模型和通过明确指定变量从一个变量中获取随机模型效果的代码：

library(lme4)
model<-lmer(mpg ~ 1+ (1|wt) + (1|hp), data = mtcars,control=lmerControl(optCtrl=list(maxfun=20000)))
ranef(model)$wt

但是，我想在一个更灵活的函数中构建它，为此我需要粘贴我想要从向量中获得随机效果的效果，如下所示：

randomeffectlist<-NULL
effectlist<-c("wt","hp")
for (y in length (effectlist)){
  randomeffectlist[y]<-ranef(model)$effectlist[y]
}

在 $ 符号之后，我想一个接一个地传递 factorlist 的元素，以便为每个效果获取 randomeffectlist 中的随机效果。在当前形式下，它不起作用。我想这是在 $ 符号之后传递一些东西的问题。如何更正此代码？

Answer 1

计算要提取的元素时不能使用 $:

ranef(model)$effectlist[y] 将逐字查找名为 "effectlist[y]" 的列表元素。相反，您应该使用双方括号运算符：

ranef(model)[[effectlist[y]]].

来自 [ 的帮助页面：

" [[ 和 $ select 都是列表的单个元素。主要区别在于 $ 不允许计算索引，而 [[ 会。x$name 等同于 x[["name", exact = FALSE]]。此外，[[ 的部分匹配行为可以使用精确参数来控制。"

How to paste an expression in the lme4 ranef() S4 class?