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

Question

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

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

这是Noah的文件：-

$cities = Marker::where('user_id', $userId)->get();

Table: Markers
Columns: id, city, country, place_id, user_id, lat, lng, created_at, updated_at

这是我的代码：-

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

我正在尝试将所有文​​件数据作为矩阵。如果有人使用该产品，则将其标记为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)