Question

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

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

Answer 1

从因素转换为字符：

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))

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

1 个答案: