按列名中的R

Question

更換行值我有一個數據幀，如下

df<- data.frame(a = c(1,2,3,4,5), 
       b = c(6,7,8,9,10), 
       c = c(11,12,13,14,15), 
       z = c("b","c","a","a","b")) 

我試圖替換行值，其中該行的列名是在列Z的期望的輸出等於值低於

a b c z 
1 1 NA 11 b 
2 2 7 NA c 
3 NA 8 13 a 
4 NA 9 14 a 
5 5 NA 15 b 

我想這樣應用於每一行的

If column name is equal to Z, replace value with NA 

但CA下面的代碼不知道。任何幫助讚賞

乾杯！

Answer 1

矩陣索引match -ing的z列到colnames

df[cbind(seq(nrow(df)),match(df$z,colnames(df[1:3])))] <- NA 
df 

    a b c z 
1 1 NA 11 b 
2 2 7 NA c 
3 NA 8 13 a 
4 NA 9 14 a 
5 5 NA 15 b 

Answer 2

這隻會工作，如果用字母列是lexigraphic順序：

> df[cbind(1:5,as.numeric(df$z))] <- rep(NA,5) 
> df 
    a b c z 
1 1 NA 11 b 
2 2 7 NA c 
3 NA 8 13 a 
4 NA 9 14 a 
5 5 NA 15 b