通过在第一个列表的所有元素中使用for循环来创建第二个列表

我对R相当陌生，我想清理我的代码，使其更具动态性和紧凑性。 基本上，我做了两个SQL输出，得到了两个数据帧“Cases”和“Debtors”，这两个数据帧都有一个字段“case_id”，将案例与债务人和字段“product”连接起来。 我创建了一个按产品划分案例的列表：

---

Cases\u products在循环内部赋值期间，使用所需值索引元素，而不使用
list
，以避免嵌套结构

#初始化命名列表
债务人准备做一记耳光。。。未能索引分配操作的LHS。
Debtors_products <- list(
   "product1" = merge(x = Debtors, y = Cases_products[["product1"]], by = "case_key", all.y = TRUE),
   "product2" = merge(x = Debtors, y = Cases_products[["product2"]], by = "case_key", all.y = TRUE),
   "product3" = merge(x = Debtors, y = Cases_products[["product3"]], by = "case_key", all.y = TRUE), 
   "product4" = merge(x = Debtors, y = Cases_products[["product4"]], by = "case_key", all.y = TRUE))

for (i in seq_along(Cases_product))

{Debtors_products <- list(Cases_product[i] = merge(x = Debtors, y = Cases_product[[i]], by = "case_key", all.y = TRUE))}