我们可以使用 %in% 来比较值并包装 as.integer 来转换逻辑值为整数.

We can use %in% to compare the values and wrap as.integer to convert logical values to integers.

purchases$buyers <- as.integer(purchases$ID %in% users$ID)
purchases

#     ID buyers
#1  6456      1
#2  4436      0
#3 88945      0

这也可以写成:

purchases$buyers <- +(purchases$ID %in% users$ID)