将直方图 Class Objects 附加到 R 中的列表元素

Question

我的标题问题与 SOF 中的很多问题非常相似，尽管我的问题非常不同：我得到了一个列表 MY_LIST.

MY_LIST=list("a","b","c")

我得到了直方图 class object HIST_OBJECT.

HIST_OBJECT=hist(rnorm(n=500, m=1, sd=1))
class(HIST_OBJECT)
[1] "histogram"

我想将我的 HIST_OBJECT 加载到我的列表 MY_LIST 的第一个位置。所以我执行那个：

MY_LIST[[1]][2]=list(HIST_OBJECT)

到目前为止一切顺利，但问题是我的 HIST_OBJECT 的 class 发生了变化。这是一个我可以绘制的直方图 class（plot(HIST_OBJECT) 有效！）但现在它是一个列表 class 我不能再绘制了（plot(MY_LIST[[1]][2]）不起作用)

class(MY_LIST[[1]][2])
[1] "list"

有谁知道如何使 MY_LIST[[1]][2] object 成为 "histogram" class object？提前致谢！！

Answer 1

你很接近：

class(MY_LIST[[1]][[2]])

将列表想象成一列火车：单个 [ 获取您想要的车厢及其所有内容，双 [[ 仅获取该车厢的内容。还要想想为什么 MY_LIST[[1]][2]=HIST_OBJECT 不行，而 MY_LIST[[1]][[2]]=HIST_OBJECT 可以。

在这种情况下，[2] 为您提供了与其容器相同的 class - 一个列表，其中包含第二个元素，即您的历史记录。 [[2]] 将为您提供第二个容器中的元素，在本例中为您的历史记录。

另一个例子：

df <- data.frame(x=c(1,2,3), y=c(4,5,6))
class(df[1])
class(df[[1]])

Append Histogram Class Objects to a list elements in R