将模型附加到列表中

Question

我在创建模型列表时遇到问题。 假设我创建了模型：

> rp <- rpart(V41 ~ ., data=learnData, method="class")

如果我直接创建列表，那就OK：

> ll <- list(rp, rp, rp)
> class(ll[[1]])
[1] "rpart"
> class(ll[[2]])
[1] "rpart"
> class(ll[[3]])
[1] "rpart"

但是如果我试图将模型附加到已经创建的列表，模型将其类更改为data.frame：

> ll <- list(rp)
> ll <- append(ll, rp)
> class(ll[[1]])
[1] "rpart"
> class(ll[[2]])
[1] "data.frame"

这种行为的原因是什么？如何将模型附加到列表中？

Answer 1

Andrie的解决方案：

x <- list(fit1)
x <- list(x, fit2)

不起作用，因为它导致list与list和lm组件：

sapply(x,class)
# [1] "list" "lm"

您需要使用c将list附加到list以获取所需的行为：

x <- list(fit1)
x <- c(x, list(fit2))
sapply(x,class)
# [1] "lm" "lm"
x <- c(x, list(fit3))
sapply(x,class)
# [1] "lm" "lm" "lm"

Answer 2

函数append用于向向量添加元素。

要将元素添加到列表，请使用list 。 尝试：

fit1 <- lm(Sepal.Length ~ Sepal.Width, data=iris)
fit2 <- lm(Sepal.Length ~ Petal.Width, data=iris)

x <- list(fit1, fit2)
str(x, max.level=1)

List of 2
 $ :List of 12
  ..- attr(*, "class")= chr "lm"
 $ :List of 12
  ..- attr(*, "class")= chr "lm"

您现在应该有一个lm对象列表：

> class(x[[1]])
[1] "lm"

要附加到现有列表，请使用list ，如下所示：

x <- list(fit1)
x <- list(x, fit2)

Answer 3

在场景后面，追加只是使用c （只需键入append并在命令行中输入以查看其源代码）。 如果你查看c的帮助，你会在那里的例子中找到有趣的东西（查看“不使用”部分）。

我从最近的另一个问题中记得这个，或者也许是最近在R聊天，但是不记得它是什么，所以如果其他人可以指出它？

无论如何，为了你想要的：

ll<-c(ll, list(rp))

或者如果你坚持使用append ：

ll<-append(ll, list(rp))