将 NULL 分配给 R 中的列表元素？

Question

我发现这种行为很奇怪，希望更多有经验的用户分享他们的想法和解决方法。 在 R 中运行下面的代码示例时：

sampleList <- list()
d<- data.frame(x1 = letters[1:10], x2 = 1:10, stringsAsFactors = FALSE)
for(i in 1:nrow(d)) {
        sampleList[[i]] <- d$x1[i]
}

print(sampleList[[1]])
#[1] "a"
print(sampleList[[2]])
#[1] "b"
print(sampleList[[3]])
#[1] "c"
print(length(sampleList))
#[1] 10

sampleList[[2]] <- NULL
print(length(sampleList))
#[1] 9
print(sampleList[[2]])
#[1] "c"
print(sampleList[[3]])
#[1] "d"

列表元素向上移动。 也许这正如预期的那样，但我正在尝试实现一个函数，其中合并列表的两个元素并删除一个。我基本上想丢失该列表索引或将其设置为 NULL。

有什么方法可以将 NULL 分配给它并且看不到上述行为吗？

感谢您的建议。

Answer 1

我花了一段时间才弄清楚这个列表的列表。我的解决方案是：

mylist[[i]][j] <- list(double())

Answer 2

好问题。

查看R-FAQ：

在 R 中，如果 x 是一个列表，则 x[i] <- NULL 和 x[[i]] <- NULL 从 x 中删除指定元素。其中第一个与 S 不兼容，它是无操作的。 （请注意，您可以使用 x[i] <- list(NULL) 将元素设置为 NULL。）

请考虑以下示例：

> t <- list(1,2,3,4)
> t[[3]] <- NULL          # removing 3'd element (with following shifting)
> t[2] <- list(NULL)      # setting 2'd element to NULL.
> t
[[1]]
[2] 1

[[2]]
NULL

[[3]]
[3] 4

更新：

作为 R Inferno评论道，处理NULL时可能会出现更微妙的情况。考虑相当一般的代码结构：

# x is some list(), now we want to process it.
> for (i in 1:n) x[[i]] <- some_function(...)

现在请注意，如果 some_function() 返回 NULL，您可能不会得到您想要的：某些元素将消失 。你应该使用lapply函数。
看看这个玩具示例：

> initial <- list(1,2,3,4)
> processed_by_for <- list(0,0,0,0)
> processed_by_lapply <- list(0,0,0,0)
> toy_function <- function(x) {if (x%%2==0) return(x) else return(NULL)}
> for (i in 1:4) processed_by_for[[i]] <- toy_function(initial[[i]])
> processed_by_lapply <- lapply(initial, toy_function)
> processed_by_for
  [[1]]
  [1] 0

  [[2]]
  [1] 2

  [[3]]
  NULL

  [[4]]
  [1] 4

> processed_by_lapply
  [[1]]
  NULL

  [[2]]
  [1] 2

  [[3]]
  NULL

  [[4]]
  [1] 4

Answer 3

你的问题让我有点困惑。

将 null 分配给现有对象本质上会删除该对象（例如，如果您有一个数据框并希望删除特定列，这会非常方便）。这就是你所做的。我无法确定你想要什么。您可以尝试

sampleList[[2]] <- NA

代替 NULL，但如果“我想失去”您的意思是删除它，那么您已经成功了。这就是为什么“列表元素向上移动”。

Answer 4

obj = list(x = "Some Value")
obj = c(obj,list(y=NULL)) #ADDING NEW VALUE
obj['x'] = list(NULL) #SETTING EXISTING VALUE
obj

Answer 5

如果您需要创建 NULL 值列表，稍后您可以使用值（例如数据帧）填充这里没有抱怨：

B <-vector("list", 2) 

a <- iris[sample(nrow(iris), 10), ]
b <- iris[sample(nrow(iris), 10), ]
B[[1]]<-a 
B[[2]]<-b 

上面的答案是相似的，但我认为这是值得发布的。