如果列中的值与另一列中的值匹配，则用“空白”替换该列中的值

XCCH004

我有以下数据集作为 R 中的数据框

article_number   1st_cutoff_date   2nd_cutoff_date

abc                12/01/2019       01/14/2020

def                02/10/2020       02/10/2020

我想要做的是在 1st_cutoff_date == 2nd_cutoff_date 的情况下，然后用空白值“”替换 2nd_cutoff 日期。所以在第二种情况下 'def' 那么 2nd_cutoff_date 将是空白的“”

数据框是因素，并且有 NA - 我已转换为字符并尝试了以下操作：

AAR_FTW_Final_w_LL[AAR_FTW_Final_w_LL$`1st_Booking_Deadline` == AAR_FTW_Final_w_LL$`2nd_Booking_Deadline`, c("2nd_Booking_Deadline")] <- " "

ind<- AAR_FTW_Final_w_LL$`1st_Booking_Deadline` == AAR_FTW_Final_w_LL[`2nd_Booking_Deadlilne`]
AAR_FTW_Final_w_LL[ind, c("2nd_Booking_Deadline")] <- " "

两者都返回错误：

Error in AAR_FTW_Final_w_LL$`1st_Booking_Deadline` : 
  $ operator is invalid for atomic vectors

我曾尝试将 $ 替换为 []，但随后出现错误，指出缺少其中一列。有没有更简单的方法来完成这项任务？

罗纳克·沙阿

从因子转换为字符：

df[] <- lapply(df, as.character)

然后使用 replace

transform(df, `2nd_cutoff_date` = replace(`2nd_cutoff_date`, 
                            `1st_cutoff_date` == `2nd_cutoff_date`, ''))

#  article_number X1st_cutoff_date X2nd_cutoff_date
#1            abc       12/01/2019       01/14/2020
#2            def       02/10/2020

它添加X到列名中，因为在 R 中列以数字开头不是标准。

将数据转换为字符后的另一种方法是

df$`2nd_cutoff_date`[df$`1st_cutoff_date` == df$`2nd_cutoff_date`] <- ""

数据

df <- structure(list(article_number = structure(1:2, .Label = c("abc", 
"def"), class = "factor"), `1st_cutoff_date` = structure(2:1, 
.Label = c("02/10/2020", "12/01/2019"), class = "factor"), 
`2nd_cutoff_date` = structure(1:2, .Label = c("01/14/2020", 
"02/10/2020"), class = "factor")), class = "data.frame", row.names = c(NA, -2L))

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。