вычесть два столбца в dataframe, если выполняется условие

Question

мой dataframe:

Dead4 Dead5 
0  0 
0  0 
0  0 
1  2 
0  0 
0  0 
1  2 
0  0 
1  0 
0  1 
1  1 
5  10 

Я хочу, чтобы мой код, чтобы сказать в любое время Dead5 больше Dead4 в той же строке, вычесть два значения и поместить это значение в Dead5

indices<- (t$Dead5 > t$Dead4) 
t$Dead6[indices]<- (t$Dead6) - (t$Dead5) 


Warning message: 
In t$Dead6[indices] <- (t$Dead6) - (t$Dead5) : 
    number of items to replace is not a multiple of replacement length 

Может кто-нибудь объяснить, что я делаю неправильно, и помочь мне написать несколько строк кода, которые сделают это?

Answer 1

Вы можете сделать это:

indices <- (t$Dead5 > t$Dead4) # indices is a logical vector with TRUE and FALSE 

t$Dead5[indices] <- (t$Dead5 - t$Dead4)[indices] 

Это также справедливо и для любой другой операции с вашим data.frame, как:

t$Dead6[indices] <- (t$Dead6 - t$Dead5)[indices] 

Если столбец Dead6 существует. С каждой стороны берутся только значения, где indices - TRUE, поэтому заменяемые и замененные значения имеют одинаковую длину, и вы не получите предупреждение.

Что вы делали неправильно это вы давали в качестве замены полный (t$Dead5 - t$Dead4) вектор, который больше, чем количество раз indices является TRUE (замененные значения в левом).

R использовал только первые значения вашего вектора замены и дал вам предупреждение.

Answer 2

Использование data.table

library(data.table) 
DT <- as.data.table(DF) 

DT[Dead5 > Dead4, Dead5 := Dead5 - Dead4] 

Вы также можете сделать это в base R с помощью within или transform

Answer 3

transform() Использование и ifelse():

transform(t, Dead5 = ifelse(Dead5 > Dead4, Dead5-Dead4, Dead5)) 

Answer 4

Другой подход без ifelse и без индексации:

indices <- t$Dead5 > t$Dead4 
t$Dead6 <- t$Dead6 - (t$Dead5 * indices)