匹配列到列名，将值添加到匹配的行/列

Question

匹配列与列名，将值添加到匹配的行/列

我的第一个问题，因此请务必教给我一个

给定的数据框的

df<- structure(list(ID = c("ID001", "ID001", "ID003", "ID004", "ID003", 
                      "ID004"), ID001 = c(1L, 0L, 1L, 0L, 1L, 1L), ID002 = c(0L, 
                        0L, 0L, 0L, 0L, 0L), ID003 = c(1L, 0L, 1L, 1L, 0L, 0L), ID004 = c(1L, 
                           1L, 0L, 0L, 1L, 1L)), class = "data.frame", row.names = c(NA, -6L)) 



   ID     ID001 ID002 ID003 ID004
1 ID001     1     0     1     1
2 ID001     0     0     0     1
3 ID003     1     0     1     0
4 ID004     0     0     1     0
5 ID003     1     0     0     1
6 ID004     1     0     0     1

课程，我的循环效率低以更新“ ID”列与列名称匹配的条目，我们添加到值

for(rows in 1:nrow(df)) {
  df[rows, match(df[rows,'ID'], names(df))] <- df[rows, match(df[rows,'ID'], names(df))] + 1
}

df

     ID ID001 ID002 ID003 ID004
1 ID001     2     0     1     1
2 ID001     1     0     0     1
3 ID003     1     0     2     0
4 ID004     0     0     1     1
5 ID003     1     0     1     1
6 ID004     1     0     0     2

这是所需的输出。但是我需要在数百万的行和慢速上运行它。我猜这可以通过应用程序或类似方式改进多种方法，但是我没有尝试过，希望看到它的完成方式。

Answer 1

这是dplyr方法：

library(dplyr)

df %>% 
  mutate(across(-ID, ~ifelse(ID == cur_column(), .+1, .)))

     ID ID001 ID002 ID003 ID004
1 ID001     2     0     1     1
2 ID001     1     0     0     1
3 ID003     1     0     2     0
4 ID004     0     0     1     1
5 ID003     1     0     1     1
6 ID004     1     0     0     2

Answer 2

使用行/列定位索引创建一个矩阵，然后进行分配

i1 <- cbind(seq_len(nrow(df)), match(df$ID, names(df)[-1]))
df[-1][i1] <- df[-1][i1] + 1

-OUTPUT

> df
     ID ID001 ID002 ID003 ID004
1 ID001     2     0     1     1
2 ID001     1     0     0     1
3 ID003     1     0     2     0
4 ID004     0     0     1     1
5 ID003     1     0     1     1
6 ID004     1     0     0     2