r - 防止数据框列表中的名称消失

Question

所以我初始化了一个列表，我想用数据框填充它：

listz <- vector("list",2)

我还想保留数据框的名称，所以我分配它们：

listzNames <- c("frame1","frame2")
names(listz) <- listzNames

问题是，每次重新分配数据帧时，名称都会变为 NULL：

listz <- list(data.frame("id" = 1:3, "hat" = 1:3),
           data.frame("id" = 4:6, "hat" = 4:6))

> names(listz)
NULL

我知道为什么会发生这种情况，但是在每次数据帧重新分配时重新分配名称的一个巧妙的替代方法是什么？

Answer 1

当你分配

listz <- list(data.frame("id" = 1:3, "hat" = 1:3),
           data.frame("id" = 4:6, "hat" = 4:6))

您正在替换以前定义为 的对象listz，它是一个新对象，与该名称的任何先前对象无关。

因此在这种情况下不需要初始化列表

你有（至少）四个选项来设置列表的名称

选项1 -setNames

# Option 1 - using setNames
listz <- setNames(list(data.frame("id" = 1:3, "hat" = 1:3),
           data.frame("id" = 4:6, "hat" = 4:6)), listzNames)

选项 2 - 随叫随到

# Option 2 - naming the list as you go
listz <- list(frame1 = data.frame("id" = 1:3, "hat" = 1:3),
           frame2 = data.frame("id" = 4:6, "hat" = 4:6))

选项 3 -Hmisc和llist

# If your data.frames already exist
# use the llist function in Hmisc, which names the list
# using the names of the object in each element
library(Hmisc)
frame1 <- data.frame("id" = 1:3, "hat" = 1:3)
frame2 <- data.frame("id" = 4:6, "hat" = 4:6)

listz <- llist(frame1,frame2)

选项 4 - 使用 setNames 预先存在并获取

# if your data.frames already exist in the global environment then
# you can use
listz <- setNames(lapply(listzNames, get),listzNames)

选项 5 初始化列表（我不喜欢这个）

listz <- vector("list",2)
names(listz) <- listzNames
listz[[1]] <- data.frame("id" = 1:3, "hat" = 1:3)
listz[[2]] <- data.frame("id" = 4:6, "hat" = 4:6)

我不喜欢这个选项，它需要更多的输入，因此出错的可能性更大！

注意事项lapply

lapply将保留任何名称

lapply(listz,head,n=1)

#$frame1
#  id hat
#1  1   1
#
#$frame2
#  id hat
#1  4   4

Answer 2

选项 6 :)

listz[] <- list(data.frame("id" = 1:3, "hat" = 1:3),
                data.frame("id" = 4:6, "hat" = 4:6))