R 使用嵌套的 for 循环尾部扩展和处理数据

Question

我需要扩展一些数据，然后限制哪些数据通过tail保留。

数据示例：

list_1 <- list(1:15)
list_2 <- list(16:30)
list_3 <- list(31:45)
short_lists[[1]] <- list_1
short_lists[[2]] <- list_2
short_lists[[3]] <- list_3
str(short_lists)
List of 3
 $ :List of 1
  ..$ : int [1:15] 1 2 3 4 5 6 7 8 9 10 ...
 $ :List of 1
  ..$ : int [1:15] 16 17 18 19 20 21 22 23 24 25 ...
 $ :List of 1
  ..$ : int [1:15] 31 32 33 34 35 36 37 38 39 40 ...

以及我希望给定列表的尾部来自 list_1、list_2、list_3

的长度

how_long <- 
c(4,2,5,3,6,4,7,5,8,6,9,7,10,8,2,4,6,8,10,12,14,10,9,7,11)

然后我通过嵌套的 for 循环展开并尝试获取展开列表的尾部，但只得到展开列表。

for (i in 1:length(how_long)) {
for (j in 1:length(short_lists)) { 
tail_temp[[j]][i] <- tail(short_lists2[[j]], n = how_long[i])
}
}

这会产生：

str(tail_temp)
List of 3
 $ :List of 25
  ..$ : int [1:15] 1 2 3 4 5 6 7 8 9 10 ...
  ..$ : int [1:15] 1 2 3 4 5 6 7 8 9 10 ...
  ..$ : int [1:15] 1 2 3 4 5 6 7 8 9 10 ...
  [snip]
  ..$ : int [1:15] 1 2 3 4 5 6 7 8 9 10 ...
 $ :List of 25
  ..$ : int [1:15] 16 17 18 19 20 21 22 23 24 25 ...
  ..$ : int [1:15] 16 17 18 19 20 21 22 23 24 25 ...
  ..$ : int [1:15] 16 17 18 19 20 21 22 23 24 25 ...
  [snip]
  ..$ : int [1:15] 16 17 18 19 20 21 22 23 24 25 ...
 $ :List of 25
  ..$ : int [1:15] 31 32 33 34 35 36 37 38 39 40 ...
  ..$ : int [1:15] 31 32 33 34 35 36 37 38 39 40 ...
  ..$ : int [1:15] 31 32 33 34 35 36 37 38 39 40 ...
  [snip]
  ..$ : int [1:15] 31 32 33 34 35 36 37 38 39 40 ...

我很高兴 j 得到了扩展，但我从来没有得到尾调用和我正在寻找的东西：

str(tail_temp)
List of 3
 $ :List of 25
  ..$ : int [1:4] 12 13 14 15
  ..$ : int [1:2] 14 15
  ..$ : int [1:5] 11 12 13 14 15
[snip]

所以我错过了什么简单的事情。任何帮助表示赞赏。谢谢。

Answer 1

确实非常接近。

与 R 相比，我更喜欢列表中的向量。
如果您熟悉 python，向量的行为类似于 'lists' in python.
R 中的列表表现得像字典。

因此，您只需要先取消列表（进入向量），
然后分配给列表中的一个项目，因此它应该分配给：
tail_temp[[i]][[j]] 而不是 tail_temp[i][[j]]

list_1 <- list(1:15)
list_2 <- list(16:30)
list_3 <- list(31:45)
short_lists = list()
short_lists[[1]] <- list_1
short_lists[[2]] <- list_2
short_lists[[3]] <- list_3

how_long <- c(4,2,5,3,6,4,7,5,8,6,9,7,10,
              8,2,4,6,8,10,12,14,10,9,7,11)

tail_temp = list()

for (i in 1:length(short_lists)){
    tail_temp[[i]] = list()
    for (j in 1:length(how_long)){
       tail_temp[[i]][[j]] <- tail(unlist(short_lists[[i]]), n = how_long[j])
    }
}

输出

[[1]]
[[1]][[1]]
[1] 12 13 14 15

[[1]][[2]]
[1] 14 15

[[1]][[3]]
[1] 11 12 13 14 15
…
[[3]][[23]]
[1] 37 38 39 40 41 42 43 44 45

[[3]][[24]]
[1] 39 40 41 42 43 44 45

[[3]][[25]]
 [1] 35 36 37 38 39 40 41 42 43 44 45

R 使用嵌套的 for 循环尾部扩展和处理数据

R expand and process data with nested for loops tail

r

nested-loops