将值向量追加到 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]])
}