如果列中的值与另一列中的值匹配，则将其替换为“空白”

2024-06-02 • 问答

我有以下数据集作为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

我尝试用[]替换$，但是随后出现错误，其中一列丢失。有没有更简单的方法可以执行此任务？

luyan8883 回答：如果列中的值与另一列中的值匹配，则将其替换为“空白”

从因素转换为字符：

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"),`2nd_cutoff_date` = structure(1:2,.Label = c("01/14/2020","02/10/2020"),class = "factor")),class = "data.frame",row.names = c(NA,-2L))

match na r

本文链接：https://www.f2er.com/2937049.html

如果列中的值与另一列中的值匹配，则将其替换为“空白”

luyan8883 回答：如果列中的值与另一列中的值匹配，则将其替换为“空白”

大家都在问