时间戳

首页 > 解决方案 > 对数据框中同名的列进行二元运算

r - 对数据框中同名的列进行二元运算

问题描述

我有具有相同名称的列的数据集。

    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一列。bor

标签： rdplyr

解决方案

这是一个使用名称的示例。这有点棘手并且可能很脆弱，但它适用于您的样本数据，并且即使您有超过 2 个重复项，也应该扩大规模。

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

推荐阅读