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