r - 如何根据另一列 R 中的重复更改列值

Question

我的数据是这样的:

data <- data.frame(grupoaih = c("09081997", "13122006", "09081997", "22031969"),
                       NMM_PROC_BR = c(1, 1, 0, 1),
                       NMM_CID = c(0, 1, 1, 0),
                       CPAV_PROC_BR = c(0, 0, 0, 1),
                       CPAV_CID = c(1, 1, 0, 1))

  grupoaih NMM_PROC_BR NMM_CID CPAV_PROC_BR CPAV_CID
1 09081997           1       0            0        1
2 13122006           1       1            0        1
3 09081997           0       1            0        0
4 22031969           1       0            1        1

当“grupoaih”重复时，我如何分配值 1，以便像这样平等地填充其他 4 个变量:

data2 <- data.frame(grupoaih = c("09081997", "13122006", "09081997", "22031969"),
                       NMM_PROC_BR = c(1, 1, 1, 1),
                       NMM_CID = c(1, 1, 1, 0),
                       CPAV_PROC_BR = c(0, 0, 0, 1),
                       CPAV_CID = c(1, 1, 1, 1))

  grupoaih NMM_PROC_BR NMM_CID CPAV_PROC_BR CPAV_CID
1 09081997           1       1            0        1
2 13122006           1       1            0        1
3 09081997           1       1            0        1
4 22031969           1       0            1        1

这仅适用于 grupoaih 重复且 4 个变量中的任何一个填充为 1 的情况。如果所有变量中的两个均为 0，则它们保持原样。

Answer 1

您可以使用 group_by 然后使用 n() 来检查是否有重复项。 .代表原值，~代表公式。

library(dplyr)

data %>%
  group_by(grupoaih) %>%
  mutate(across(c("NMM_PROC_BR", "NMM_CID", "CPAV_CID"), ~ifelse(n() > 1, 1, .))) %>%
  ungroup()

# # A tibble: 4 × 5
#   grupoaih NMM_PROC_BR NMM_CID CPAV_PROC_BR CPAV_CID
#   <chr>          <dbl>   <dbl>        <dbl>    <dbl>
# 1 09081997           1       1            0        1
# 2 13122006           1       1            0        1
# 3 09081997           1       1            0        1
# 4 22031969           1       0            1        1