如何在R中所有列之间的数据框中找到相交？

如何解决如何在R中所有列之间的数据框中找到相交？

for (i in 1:length(df)) {
  save = list()
  save[[i]] = Reduce(intersect,list(df[i],(df[i]+1)))
}

我有一个包含 1000 个样本的数据框 df，每个样本都是一列。我需要找到这 1000 组之间的交集。我在编写循环时遇到问题，所以不知道该怎么做。