r - data.table R 中的滞后列表

Question

<分区>

Answer 1

这是记录在案的行为。以下是 ?shift 示例的一部分:

# on lists
ll = list(1:3, letters[4:1], runif(2))
shift(ll, 1, type="lead")

# [[1]]
# [1]  2  3 NA
# 
# [[2]]
# [1] "c" "b" "a" NA 
# 
# [[3]]
# [1] 0.1190792        NA

要解决这个问题，您可以为列表的每个值创建一个唯一的 ID:

dt[, carbList_id := match(carbList, unique(carbList))]

carbList_map = dt[, .(carbList = list(carbList[[1]])), by=carbList_id]

#    carbList_id carbList
# 1:           1        4
# 2:           2      1,2
# 3:           3        1
# 4:           4    2,4,3
# 5:           5        2
# 6:           6      4,8
# 7:           7        6

# or stick with long-form:
carbList_map = dt[, .(carb = carbList[[1]]), by=carbList_id]

#     carbList_id carb
#  1:           1    4
#  2:           2    1
#  3:           2    2
#  4:           3    1
#  5:           4    2
#  6:           4    4
#  7:           4    3
#  8:           5    2
#  9:           6    4
# 10:           6    8
# 11:           7    6

然后，只需shift 或任何具有新ID 列的内容。当您再次需要 carbList 的值时，您必须与新表合并。

或者，如果您真的不需要使用这些值，而只是为了浏览它们，请考虑将其改为字符串，例如 carbList:=toString(sort(unique(carb))) 或使用 paste0。

旁注:在使用 toString、paste0 或 list 之前进行排序。