r - 将值向量附加到 R 中的键值列表

Question

我希望将 for 循环中的值附加到键值列表。

我有 2 个包含日期的列表和一个 for 循环，该循环检查第一个列表中的每个日期是否位于两个列表中的一对日期之间。外循环负责构建列表并定义间隔。

这是内部 for 循环代码:

for(j in 1:length(Dates)){

   ifelse(Dates[j] %within% int, 
   Concurrent[[ key ]] <- append(case[i], case[j]), 
   No_Conc[[ key ]] <- append(case[i], case[j])

}

我认为这里重要的代码行是 append 语句。我正在寻找的值正在被最后 2 个值替换。但是，我希望能够将值附加到列表中相应的键。

在 python 中，这就是它的完成方式。

list1 = [123, 234, 456]
d = {'a': [], 'b': []}

for(i in range(list1){
   d['a'].append(list1[i])
}

Answer 1

我想我明白你在问什么。我确信会出现更好的答案，但为了让您更快地使用一些东西，请尝试以下操作。它可能不起作用，因为我没有可用的数据。

for(j in 1:length(Dates)){

ifelse(Dates[j] %within% int, 
Concurrent[[ key ]] <- (case[i], case[j]), 
No_Conc[[ key ]] <- (case[i], case[j])

if (i==1 & j==1)
   ret <- Concurrent[[key]]
   ret2<- No_Conc[[key]]
else
   ret <- data.frame(rbind(ret,Concurrent[[key]])
   ret2 <- data.frame(rbind(ret2, No_Conc[[key]])
}