nau*_*101 5 r list flow-control
在PHP中,您可以使用for循环访问数组的名称和值
foreach ( $array as $key => $value ) {
Run Code Online (Sandbox Code Playgroud)
在循环命名列表时,R中是否有可比的东西?
小智 12
这是一个更简单的方法来做到这一点:
for (name in names(myList)) {
print(name)
print(myList[[name]])
}
Run Code Online (Sandbox Code Playgroud)
注意:我没有写这段代码。我从这个页面复制了它。
使用一些虚拟数据和一个愚蠢的人为例子
ll <- list(A = 1:10, B = LETTERS[1:10], C = letters[1:10])
Run Code Online (Sandbox Code Playgroud)
你可以lapply()通过以下元素的索引ll:
out <- lapply(seq_along(ll),
function(ind, list, names) {
paste(names[ind], "=", paste(list[[ind]], collapse = ", "))
}, list = ll, names = names(ll))
R> out
[[1]]
[1] "A = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10"
[[2]]
[1] "B = A, B, C, D, E, F, G, H, I, J"
[[3]]
[1] "C = a, b, c, d, e, f, g, h, i, j"
Run Code Online (Sandbox Code Playgroud)
或for()循环遍历列表:
ll2 <- vector("list", length(ll))
nams <- names(ll)
for(i in seq_along(ll)) {
ll2[[i]] <- paste(nams[i], "=", paste(ll[[i]], collapse = ", "))
}
ll2
R> ll2
[[1]]
[1] "A = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10"
[[2]]
[1] "B = A, B, C, D, E, F, G, H, I, J"
[[3]]
[1] "C = a, b, c, d, e, f, g, h, i, j"
Run Code Online (Sandbox Code Playgroud)