R - заполнить столбец, в то время как некоторые ячейки уже имеют значения

Question

Предположим, у меня есть следующий набор данных:

           Date Val1 Val2 Remarks
   1 2018-04-01  125 0.05  Closed
   2 2018-04-02    0 0.00
   3 2018-04-03  458 2.99  Closed
   4 2018-04-04    0 0.00  Closed
   5 2018-04-05  354 1.25

Я хочу автоматически заполнить пустое пространство в столбце «Примечания» с помощью «С переводом», если Val1> 0, и «Еще нет», если Val1 = 0. Полученный набор данных:

           Date Val1 Val2 Remarks
   1 2018-04-01  125 0.05  Closed
   2 2018-04-02    0 0.00  Not yet
   3 2018-04-03  458 2.99  Closed
   4 2018-04-04    0 0.00  Closed
   5 2018-04-05  354 1.25  With Remittance

Answer 1

Это довольно просто, используя base R:

data$Remarks[data$Val1 > 0 & is.na(data$Remarks)] <- "With Remittance"
data$Remarks[data$Val1 ==0 & is.na(data$Remarks)] <- "Not yet"

С использованием tidyverse:

data %>% 
mutate(Remarks_new = if_else(is.na(Remarks) & Val1 > 0, "With Remittance",
                     if_else(is.na(Remarks) & Val1 == 0, "Not yet", Remarks)))