r - 通过两个列表的复杂比较创建一个列表

Question

我正在处理市场交易数据，其中每个观察都包含买方 ID 变量的值和卖方 ID 变量的值。对于每个观察(即每笔交易)，我想创建一个变量，该变量等于关联卖家与与本次交易相关的买家不同的买家完成的其他交易的数量。因此，在下面

data <- data.frame(Buyer_id = c("001","001","002","001"), Seller_id = c("021","022","022","021"))

我想获得:

Result <- list(0,1,1,0)

我搜索了与我的类似问题的现有答案，通常涉及函数 maply()，并尝试实现它们，但事实证明不成功。

非常感谢您对我的帮助。

Answer 1

您正在寻找这样的东西吗？如果是，那么您可能需要在构造 data.frame 时更改可重现的示例，以使用 c 而不是 list。

data <- data.frame(Buyer_id = c("001","001","002","001"), 
                   Seller_id = c("021","022","022","021"))

data$n <- NA
for (i in seq_len(nrow(data))) {
  seller <- as.character(data[i, "Seller_id"])
  buyer <- as.character(data[i, "Buyer_id"])
  
  with.buyers <- as.character(data[data$Seller_id == seller, "Buyer_id"])
  with.buyers <- unique(with.buyers)
  
  diff.buyers <- with.buyers[!(with.buyers %in% buyer)]
  
  data[i, "n"] <- length(diff.buyers)
}

  Buyer_id Seller_id n
1      001       021 0
2      001       022 1
3      002       022 1
4      001       021 0