从数据表创建列表，然后在循环中使用它

Question

这似乎应该是微不足道的，但我无法让它工作，这让我发疯。我有一个包含几列的数据表，包括 sGEOID，即地理 ID。我想提取 sGEOID 的唯一值列表，然后使用每个值运行一个循环。代码没有多次运行循环，每次循环变量取一个 sGEOID 值，而是运行一次循环，循环变量取一个多元素列表的值。我发现让循环正常工作的唯一方法是显式创建列表，而不是从数据表中的值中提取它，这对于工作版本来说不是一个可行的选择。

这是代码，以及每次尝试的结果：

# Create simplified version of data table
dtObs = data.table(
  sGEOID = c("A","B","B",'C'),
  iVal = 1:4
)

print(dtObs)
# result
#   sGEOID iVal
#1: A 1
#2: B 2
#3: B 3
#4: C 4

# Create new data table with unique values of sGEOID
dtStates <- dtObs[, list(iCnt= .N), by = c('sGEOID')][order(sGEOID)]
print(dtStates)
# result
#   sGEOID iCnt
#1: A 1
#2: B 2
#3: C 1

# Loop through values in column of data table dtStates: FAILS
for (lasGEOID in dtStates[,1]) {
  print(lasGEOID)
  print('new line')
}
# result
# "A" "B" "C"
# "new line"

# Extract unique values into list
llsGEOIDs <- dtStates[,c('sGEOID')]
typeof(llsGEOIDs)
# result
#[1] "list"
print(llsGEOIDs)
# result
#   sGEOID
#1: A
#2: B
#3: C

# Loop through elements of list: FAILS
for (lasGEOID in llsGEOIDs) {
  print(lasGEOID)
  print('new line')
}
# result
#[1] "A" "B" "C"
#[1] "new line"

# Create list directly as list
# This is not a viable option for the real code
llsGEOIDs <- list('A','B','C')
print(llsGEOIDs)
# result
#[[1]]
#[1] "A"
#
#[[2]]
#[1] "B"
#
#[[3]]
#[1] "C"
#

# Loop through elements of list: WORKS
for (lasGEOID in llsGEOIDs) {
  #lasGEOID <- '06'
  print(lasGEOID)
  print('new line')
}
# result
#[1] "A"
#[1] "new line"
#[1] "B"
#[1] "new line"
#[1] "C"
#[1] "new line"

Answer 1

dtStates[,1] 仍然是带有 1 列的 data.table，在 for 循环中被视为 1 个对象，因此所有值都打印在一起，您需要将这些值转换为向量。

一种简单的方法是使用[[。

for (lasGEOID in dtStates[[1]]) {
   print(lasGEOID)
   print('new line')
}

#[1] "A"
#[1] "new line"
#[1] "B"
#[1] "new line"
#[1] "C"
#[1] "new line"

附注：.N 给出每个sGEOID 中的行数，如果您想计算唯一值，您可能需要使用uniqueN。