将直方图类对象附加到R中的列表元素

我的头衔问题与SOF中的许多问题非常相似，尽管我的问题非常不同： 我得到了一份清单

我的清单

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

我得到了一个直方图类对象
HIST\u对象

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

我想将我的
HIST\u对象
加载到我的列表
my\u列表
的第一个插槽中。因此，我认为：

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

到目前为止还不错，但问题是我的
HIST\u对象的类已更改。它是一个直方图类，我可以绘制（
plot（HIST\u OBJECT）
可以工作！），但现在它是一个列表类，我不能再绘制了（
plot（我的列表[[1]][2]
）不能工作）

有人知道如何将
我的列表[[1]][2]
对象变成“直方图”类对象吗？提前多谢
 你很接近：

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

想象一个列表就像一列火车：一个单一的
[
得到你想要的车厢及其所有内容，一个双重的
[[
只得到车厢的内容。还要想一想为什么
我的列表[[1]][2]=HIST\u对象
不起作用，但是
我的列表[[1][[2]]=HIST\u对象
起作用

在本例中，
[2]
为您提供了与其容器相同的类-一个包含第二个元素hist的列表。
[[2]]
将为您提供第二个容器中的元素，在本例中为您的hist

另一个例子：

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

df哇！！非常感谢你帮助我！我看起来好傻啊§谢谢你的解释，我真的很感激！！
df <- data.frame(x=c(1,2,3), y=c(4,5,6))
class(df[1])
class(df[[1]])