Значение копирования в соседней ячейке R

Question

У меня есть большой набор данных df; его короткая версия выглядит следующим образом:

Time Block Accuracy AccuracyFinal 
142  Run2 NA   incorrect 
234  Run2 incorrect NA 
121  Run2 NA   NA 
143  Run2 NA   incorrect 
122  Run2 incorrect NA 

Я хочу, чтобы скопировать значение неправильный в соседней ячейке слева в ДФ $ точности, поэтому он будет выглядеть следующим образом:

Time Block Accuracy AccuracyFinal 
142  Run2 incorrect incorrect 
234  Run2 incorrect NA 
121  Run2 NA   NA 
143  Run2 incorrect incorrect 
122  Run2 incorrect NA 

Что это самый эффективный способ сделать это?

Answer 1

Мы можем сделать это эффективно с data.table, указав логическое условие в «я» и назначение (:= - изменение места) соответствующие элементы «Точность» к «неправильному»

library(data.table) 
setDT(df)[ AccuracyFinal == "incorrect" & is.na(Accuracy), Accuracy := "incorrect"] 
df 
# Time Block Accuracy AccuracyFinal 
#1: 142 Run2 incorrect  incorrect 
#2: 234 Run2 incorrect   NA 
#3: 121 Run2  NA   NA 
#4: 143 Run2 incorrect  incorrect 
#5: 122 Run2 incorrect   NA