我正在尝试对以字符向量为列表元素的列表变量执行set操作(相交,并集,setdiff,setequal)。例如,

library(dplyr)
list1 = list(c('a', 'b'), c('x', 'y', 'z'))
list2 = list(c('b'), c('x', 'z'))
df = data_frame(x = list1, y = list2)


就像是

df %>% rowwise() %>% mutate(z = setdiff(x, y))


似乎有效。但不是

df %>% rowwise() %>% mutate(z = intersect(x, y))


使用intersect()会给出错误消息:


错误:大小不兼容(2),预期为1(组大小)或1

最佳答案

intersect()对于第二行返回多个元素,您需要将其包装为列表以适合单元格:

df %>% rowwise() %>% mutate(z = list(intersect(x, y)))

# Source: local data frame [2 x 3]
# Groups: <by row>

#           x         y         z
#      <list>    <list>    <list>
# 1 <chr [2]> <chr [1]> <chr [1]>
# 2 <chr [3]> <chr [2]> <chr [2]>

09-10 01:55
查看更多