通过匹配 R 中的 vactor 和列名来填充矩阵中的数据

Question

我有一个包含人名（作为行名）和产品 ID（作为列名）的矩阵，我有不同的文件，每个文件都包含一个人使用的产品名和产品 ID。

这是矩阵（res）的结构：-

这是诺亚的文件：-

Product_name    product_ID
A               p-0001
C               p-0002
J               p-0010
AX              p-0054
RD              p-0059
TW              p-0067
YZ              p-0099

这是我的代码：-

listfile                                     #contain list of all files
ID                                           #contain ID of all products
N <- read.csv("/home/folder/Noah.csv")
N_ID <- N$product_ID                         #contain Noah's product IDs
res <- matrix(0, nrow = nrow(listfile), ncol = nrow(ID),dimnames =
list(unlist(listfile), unlist(ID)))          # create matrix res
for(j in 1:length(colnames(res))){
if(N_id %in% j){
paste(1,res)
} else {
paste(0,res)
}

我正在尝试将所有文​​件数据作为矩阵。如果一个人使用该产品，它将标记为 1，否则标记为 0。但我不知道如何将 N_id 与 colnames(res) 匹配并填充数据 代码中需要进行哪些修改。

预期输出：-

Answer 1

listfile                                     #contain list of all files
ID                                           #contain ID of all products
N <- read.csv("/home/folder/Noah.csv")
N_ID <- N$product_ID               
library(stringi)
c <- stri_count_regex(ID, paste(N_id, collapse = '|'))
print(c)