上面那个取交集后能保留数据框格式吗

intersect函数返回的结果是一个向量，如果你想要保留数据框的格式，可以把它转换成一个数据框。下面是一种实现方式：

假设你的数据框名为df，diff列名为diff，cor列名为cor，可以使用以下代码筛选出diff和cor列共有的行：

common_values <- intersect(df$diff, df$cor)
df_common <- df[df$diff %in% common_values & df$cor %in% common_values,]

这里使用了%in%运算符，它可以判断一个值是否在一个向量中。df$diff %in% common_values返回一个逻辑向量，其中TRUE表示该行的diff列的值在common_values中，df$cor %in% common_values返回一个逻辑向量，其中TRUE表示该行的cor列的值在common_values中。最后将符合条件的行重新赋值给df_common，就可以得到只包含diff和cor列共有的行的数据框。

需要注意的是，如果diff列和cor列中有重复的值，这段代码会保留所有匹配的行。如果你希望只保留一行，可以使用以下代码：

df_common <- df[!duplicated(df[c("diff", "cor")]),]

这里使用了duplicated函数，它可以判断一个向量中的元素是否有重复。df[c("diff", "cor")]表示数据框df中的diff列和cor列，!duplicated(df[c("diff", "cor")])返回一个逻辑向量，其中TRUE表示该行的diff列和cor列的值在之前的行中没有出现过。最后将符合条件的行重新赋值给df_common，就可以得到只包含diff和cor列共有的行的数据框，并且只保留一行。