根据条件交换分组数据中的字符串或值

这是一个 dplyr 使用a的解决方案 case_when :

我们检查共享相同行的每组行 id :

如果该组中的任何行具有 yes ,则组的第一行更改为 对 . 对于组的所有后续行,任何 对 翻转为 no . 所有其他值保持不变。

library(dplyr)

df %>%
  mutate(
    across(X:Z, ~ case_when(
      row_number() == 1 & any(. == "yes") ~ "yes",
      row_number() > 1 & . == "yes" ~ "no",
      .default = .)), .by = id)

 id   X   Y   Z
1  1 yes yes yes
2  1  no  no  no
3  1  no  no  no
4  2  no yes  no
5  2  no  no  no
6  3  no  no  no
7  3  no  no  no

以下是一种方法:

library(dplyr)

id <- c(1,1,1,2,2,3,3)
X <- c("yes", "no", "no", "no", "no", "no", "no")
Y <- c("no", "no", "yes", "no", "yes", "no", "no")
Z <- c("no", "yes", "no", "no", "no", "no", "no")
df <- data.frame(id, X, Y, Z)

df <- mutate(group_by(df, id),
             rownum = 1:n(),
             X = ifelse(rownum == 1 & length(X) > 1 & any(X[2:length(X)] == "yes"), 
                           "yes", X),
             Y = ifelse(rownum == 1 & length(Y) > 1 & any(Y[2:length(Y)] == "yes"),
                           "yes", Y),
             Z = ifelse(rownum == 1 & length(Z) > 1 & any(Z[2:length(Z)] == "yes"),
                           "yes", Z))