修改r列中其他列的列值

我有一個CSV表（作爲數據框）。我想通過其他列值修改特定的列值。修改r列中其他列的列值

我準備了一個代碼，但它不起作用。數據框包含1076行和156列。

的公式必須是這樣的：

if (a[i,"0Q-state"] == "done") && (a[i,0Q-01] == NA)) a[i,0Q-01] = 0; 
    else a[i,0Q-01] = a[i,0Q-01];

，但我不知道我可以在r中做到這一點。

>dataset4 
     0Q-state 0Q-01 0Q-02 0Q-03 0Q-04 0Q-05 0Q-06 0Q-07 0Q-08 0Q-09 
    1: done  1  1  1  1  1  1  1  1  NA 
    2:    1  1  1  1  1  1  NA 1  1 
    3: done  1  1  1  NA 1  1  1  1  1 
    5: done  1  1  1  1  0  0  0  1  0 
    6: done  1  1  1  1  0  0  0  1  0 
    7:    1  1  NA 1  0  0  0  1  0 
    8: done  1  1  1  1  0  0  0  1  0 


    sapply(c("0Q-01","0Q-02","0Q-03","0Q-04","0Q-05","0Q-06","0Q-07","0Q-08","0Q-09"), 
    function(y) { 
    dataset4[,y] <- sapply(c(1:1076), function(x) 
    ifelse (((is.na(dataset4[x,y])) && (dataset4[x,c("0Q-state")] == "done")) 
    ,0, dataset4[x,y]))} 
    )

輸出必須是：

 >dataset4 
     0Q-state 0Q-01 0Q-02 0Q-03 0Q-04 0Q-05 0Q-06 0Q-07 0Q-08 0Q-09 
    1: done  1  1  1  1  1  1  1  1  0 
    2:    1  1  1  1  1  1  NA 1  1 
    3: done  1  1  1  0  1  1  1  1  1 
    5: done  1  1  1  1  0  0  0  1  0 
    6: done  1  1  1  1  0  0  0  1  0 
    7:    1  1  NA 1  0  0  0  1  0 
    8: done  1  1  1  1  0  0  0  1  0

來源

2017-09-21 Korosi Gabor

，我們可以嘗試：

df[rep(df[, 1] == "done", ncol(df)) & is.na(df)] <- 0 
df 

1  done  1  1  1  1  1  1  1  1  0 
2     1  1  1  1  1  1  NA 1  1 
3  done  1  1  1  0  1  1  1  1  1 
4  done  1  1  1  1  0  0  0  1  0 
5  done  1  1  1  1  0  0  0  1  0 
6     1  1  NA 1  0  0  0  1  0 
7  done  1  1  1  1  0  0  0  1  0

或使用sapply()：

myFunc <- function(x, y) ifelse(is.na(x) & y == "done", 1, x) 
data.frame(df[, 1], sapply(df[, -1], myFunc, y = df[, 1])) 

1 done 1 1 1 1 1 1 1 1 NA 
2  1 1 1 1 1 1 NA 1 1 
3 done 1 1 1 NA 1 1 1 1 1 
4 done 1 1 1 1 0 0 0 1 0 
5 done 1 1 1 1 0 0 0 1 0 
6  1 1 NA 1 0 0 0 1 0 
7 done 1 1 1 1 0 0 0 1 0

在那裏你可以隨時替換df[, 1]與df[, "0Q-state"]和df[, -1]與df[, namesOfDummyVars]

來源

2017-09-21 17:46:33

謝謝！大樣本。也許...你知道，我怎樣才能自動迭代列？ –

當然，包括一個'sapply（）' - 方法。 –

btw。在你的數據上使用'dput（）'，並在下次粘貼。這會讓人們更容易重現您的問題。 –

的問題已被標記以data.table和dataset4打印輸出表明dataset4已經是data.table對象。

這裏有data.table語法中的三種變體，用於替換標記爲「已完成」的行中的NAs。

# create vector of names of columns to be changed 
cols <- sprintf("0Q-%02i", 1:9) 

# variant 1 
dataset4[`0Q-state` == "done", 
     (cols) := lapply(.SD, function(x) replace(x, is.na(x), 0L)), 
     .SDcols = cols][]

0Q-state 0Q-01 0Q-02 0Q-03 0Q-04 0Q-05 0Q-06 0Q-07 0Q-08 0Q-09 
1:  done  1  1  1  1  1  1  1  1  0 
2:    1  1  1  1  1 NA  1  1 NA 
3:  done  1  1  1  0  1  1  1  1  1 
4:  done  1  1  1  1  0  0  0  1  0 
5:  done  1  1  1  1  0  0  0  1  0 
6:    1 NA  1  0  0  0  1  0 NA 
7:  done  1  1  1  1  0  0  0  1  0

或

# variant 2 
lapply(cols, function(i) dataset4[`0Q-state` == "done" & is.na(get(i)), (i) := 0L]) 
dataset4

返回同上

或

# variant 3 --- data.table development version 1.10.5 
for (i in cols) 
    set(dataset4, which(dataset4[, "0Q-state"] == "done" & is.na(dataset4[, ..i])), i, 0L) 
dataset4

來源

2017-09-21 22:23:33 Uwe

修改r列中其他列的列值

回答

相關問題