在 if 语句中使用条件合并行

Question

我的数据框如下所示：

df <- data.frame ("ID"=c(a, b, c, c, d, e, e), "K"= c(1, 1, 1, 1, 1, 1, 1), 
                       "P"=c(1, 1, 1, 1, 2, 2, 1), "C"=c(1, 2, 1, 2, 1, 2, 1))
  ID K P C
   a 1 1 1
   b 1 1 2
   c 1 1 1
   c 1 1 2
   d 1 2 1
   e 1 2 2
   e 1 1 1

我正在尝试折叠具有相同 ID 值的行。

对于没有重复 ID 值的行，我希望该行保持不变。

对于具有重复 ID 值 (c & e) 的行，我希望它折叠行。对于每一列（K、P、C），我希望它查看每个重复行的值。如果 K 列中的两个值 = 1，则输出应保持为 1。如果 K 列中的两个值都不等于 1，则输出应为 -99。 P 列和 C 列相同。

所以理想情况下输出应该是这样的：

  ID K  P   C
1  a 1  1   1
2  b 1  1   2
3  c 1  1  -99
5  d 1  2   1
6  e 1 -99 -99

到目前为止我只得到了：

for (row in 1:nrow(df) ) {
  if length(df$ID) >=2



 }

但我很困惑，因为我什至不知道这是否是正确的开始方式。

谢谢！

Answer 1

plyr 包在这里很有用。

原始版本

df <- data.frame ("ID"=c(1, 2, 3, 3, 4, 5, 5), "K"= c(1, 1, 1, 1, 1, 1, 1), 
                  "P"=c(1, 1, 1, 1, 2, 2, 1), "C"=c(1, 2, 1, 2, 1, 2, 1))
library(plyr)
ddply(df, .variables = .(ID),
      summarize,
      K = if (length(K) == 1) K else if (all(K == 1)) 1 else -99,
      P = if (length(P) == 1) P else if (all(P == 1)) 1 else -99,
      C = if (length(C) == 1) C else if (all(C == 1)) 1 else -99)

保留额外列的版本

请注意，此代码假定您的附加列对于具有相同 ID 的所有行具有相同的值。

df <- data.frame ("ID"=c(1, 2, 3, 3, 4, 5, 5), "K"= c(1, 1, 1, 1, 1, 1, 1), 
                  "P"=c(1, 1, 1, 1, 2, 2, 1), "C"=c(1, 2, 1, 2, 1, 2, 1),
                  "extra1" = c("a", "b", "c", "c", "d", "e", "e"),
                  "extra2" = c("A", "B", "C", "C", "D", "E", "E"))
library(plyr)
df1 <- ddply(df, .variables = .(ID),
             summarize,
             K = if (length(K) == 1) K else if (all(K == 1)) 1 else -99,
             P = if (length(P) == 1) P else if (all(P == 1)) 1 else -99,
             C = if (length(C) == 1) C else if (all(C == 1)) 1 else -99)
df2 <- merge(df1, unique(df[, setdiff(names(df), c("K", "P", "C"))]),
             by = "ID")

Answer 2

这是使用 baseR 的另一种方法：

df <- data.frame ("ID"=c(1, 2, 3, 3, 4, 5, 5), "K"= c(1, 1, 1, 1, 1, 1, 1), 
                  "P"=c(1, 1, 1, 1, 2, 2, 1), "C"=c(1, 2, 1, 2, 1, 2, 1))

dupl = with(df, duplicated(ID, K, P))
df$c = with(df, ifelse(dupl == TRUE & K == 1, -99, C)

在 if 语句中使用条件合并行

merge rows with conditional in if statement

merge

conditional

r

rows

原始版本

保留额外列的版本