将数据帧拆分为 R 中重叠列的新数据帧

Question

我有一个包含数百列和尽可能多行的数据框。第一列包含 ID。以下所有列均代表观察结果。它们的值为 1 或 0。现在我想将数据帧划分为仅包含重叠列的新数据帧。我从哪里开始呢？抱歉，我不知道......

df_input <- structure(list(
  a <- c("A", "B", "C", "D", "E", "F"),
  b <- c(0, 0, 0, 1, 1, 1),
  c <- c(0, 1, 1, 0, 0, 0),
  d <- c(1, 0, 0, 0, 0, 0),
  e <- c(1, 1, 0, 0, 0, 0),
  f <- c(1, 0, 0, 0, 0, 0)
), class = "data.frame", row.names = c(NA, -6L), .Names = c("id", "b", "c", "d", "e", "f"))

在我的示例中，需要创建两个数据框。 A 列的一个数据框，因为它与其他列没有重叠。所有其他列的第二个数据帧，因为它们在不同的行中彼此没有重叠。