r - 高维矩阵中按列的共同元素

Question

我有一个像 original 这样包含更多列的数据。

id <- c('A','B','C', 'D', 'E', 'F', 'G')
month <- c('NA', 'D', 'H', 'I', 'A', 'B', 'NA')
iso <- c('NA', 'NA', 'NA', 'A', 'B', 'C', 'NA')
original <- data.frame(id, month, iso)

我想创建一个包含列中所有常见元素的字符串，例如字符串 common:

common <- c("A", "B")

我发现了类似的帖子: R: How can I find the intersection of elements from two rows of a dataframe?或喜欢: How to find common elements from multiple vectors?

但是这些帖子并没有成功。在这样一个高维数据集中，我需要一些“少手动”的东西。

有什么线索吗？

谢谢

Answer 1

一个选项可能是:

Reduce(`intersect`, original)

[1] "A" "B"