比较 R 中的两个表以查找客户未购买的产品

我有两个表如下：

Cust_list <- data.frame(
stringsAsFactors = FALSE,
Customer = c("Mike S.","Tim P."),
Type = c("Shoes","Socks"),
Product_ID = c(233,6546)
)


Product_Table <- data.frame(
stringsAsFactors = FALSE,
Product_ID = c(233,256,296,8536,6546,8946),
Type = c("Shoes","Shoes","Shoes", "Socks","Socks","Socks")
)

我正在寻找“客户”未在“类型”内购买的“Product_ID”。

例如，Mike S. 购买了产品 ID =“233”且类型 =“鞋子”，但没有购买“鞋子”下的产品 ID =“256”和“296”。由于 Mike S. 没有购买 Type =“Socks”，因此这不会包含在输出中。

输出表如下。

select(Cust_list, -Product_ID) %>%
  left_join(Product_Table, 'Type')%>%
  anti_join(Cust_list)

 Customer  Type Product_ID
1  Mike S. Shoes        256
2  Mike S. Shoes        296
3   Tim P. Socks       8536
4   Tim P. Socks       8946