Question

我有一个数据集，其中的列具有相同的名称。

    name check_id a b a b
1 item_1    00192 1 0 0 0
2 item_2    21231 0 1 0 0
3 item_3     2413 1 0 0 1
4 item_1    23423 1 0 0 0
5 item_4      232 0 0 1 0
6 item_3      232 1 0 0 1

通过在具有相同名称的列之间应用a操作，我只需要保留一列b和一列or即可。

Answer 1

这是使用名称的示例。这有点棘手，甚至可能很脆弱，但是它可以处理您的样本数据，并且即使您有两个以上的重复项，也应该可以放大。

d = read.table(text = '    name check_id a b a b
1 item_1    00192 1 0 0 0
2 item_2    21231 0 1 0 0
3 item_3     2413 1 0 0 1
4 item_1    23423 1 0 0 0
5 item_4      232 0 0 1 0
6 item_3      232 1 0 0 1', header = T, check.names = F)

names_to_replace = c("a", "b")
new_cols = list()

for (n in names_to_replace) {
  # calculate new column
  new_cols[[n]] = as.integer(Reduce(f = "|", x = d[names(d) == n]))
  # drop old columns
  d[names(d) == n] = list(NULL)
}
d = cbind(d, new_cols)
#     name check_id a b
# 1 item_1      192 1 0
# 2 item_2    21231 0 1
# 3 item_3     2413 1 1
# 4 item_1    23423 1 0
# 5 item_4      232 1 0
# 6 item_3      232 1 1

对数据框中具有相同名称的列进行二进制操作

1 个答案: