向R中的列表添加新元素（标签）

debugcn 发表于 Dev

好奇的存在

我有一个使用GET方法（API调用）生成的数据集。

dataset<-GET('www.ttttyyyyzzzz.com')
contents <- content(dataset)

我通过使用以下命令提取数据contents<-contents$response$data。这将创建一个列表。清单清单清单。

这是列表在RStudio上的外观。

就将其视为数据框而言，我有8行42列。我真正想做的是创建一个名为“ Year”的第43列，并将其添加到8个高级元素的每一个中。因此，对于我的所有8个元素，该列表现在都是“ 43个列表”。

@Ronak要求dput-为进行此练习，我创建了一个模型。使用以下命令，我想在我的主列表中添加一个名为“ p”的第四个元素，所有列表的通用值都为25。

structure(list(m = 1, n = 2, o = 3, structure(list(m = 3, n = 4, 
    o = 5), .Names = c("m", "n", "o")), structure(list(m = 6, 
    n = 9, o = 8), .Names = c("m", "n", "o"))), .Names = c("m", 
"n", "o", "", ""))

罗纳克·沙

所以我们可以通过添加一个命名列表元素

lapply(lst, function(x) c(x, p = 25))


#$m
#    p 
# 1 25 

#$n
#    p 
# 2 25 

#$o
#    p 
# 3 25 

#[[4]]
#[[4]]$m
#[1] 3

#[[4]]$n
#[1] 4

#[[4]]$o
#[1] 5

#[[4]]$p
#[1] 25
#...
#...

或搭配 purrr::map

purrr::map(lst, ~ c(., p = 25))

数据

lst <- structure(list(m = 1, n = 2, o = 3, structure(list(m = 3, n = 4, o = 
5), .Names = c("m", "n", "o")), structure(list(m = 6, n = 9, o = 8), .Names = 
c("m", "n", "o"))), .Names = c("m", "n", "o", "", ""))

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。