根据两个条件，用另一个数据框中的值替换数据框中的NaN

broch 发表于 Dev

嗨，这是我对stackoverflow的第一篇文章。我一直在尝试解决此问题，但无法单独找出答案，也找不到其他可以回答该问题的帖子。

我需要用另一个数据框的值替换数据集中的缺失值；但是，棘手的是我需要匹配的值还有另一个与之相关的因素，但匹配的日期。

这是第一个数据框的简化版本：

> df1
 date       site       Value  
 1991-07-08 A          22.5
 1991-07-09 A          NaN
 1992-07-13 B          23.1
 1992-07-14 A          NaN
 1993-07-07 B          27.3

这是第二个数据框的简化版本：

> df2
date       site         value
1991-07-08 A          22.5
1991-07-09 A           NaN
1992-07-14 A           NaN
1991-07-08 B          10.6
1992-07-09 B            23
1992-07-14 B           NaN
1992-07-09 C          11.3
1992-07-14 C          12.4

我想做的是，当A的值缺失时，用B的值（具有相同日期）替换它，如果B的值不存在，则使用C的值（具有相同日期）。因此，结果数据框将如下所示：

> dfFIN
date       site       Value  
1991-07-08 A          22.5
1991-07-09 A            23
1992-07-13 B          23.1
1992-07-14 A          12.4
1993-07-07 B          27.3

到目前为止，这是我想出的：

dfFIN<-replace(df1[which(df1$site=="A"),],
           df1$value[which(df$value=="NaN")],
           df2$value[which(df2$site=="B" &        
           df2$date==df1$date[which(df1$value=="NaN" & df1$site=="A")])])

但是，我收到以下错误消息：

Error in [<-.data.frame(*tmp*, list, value = numeric(0)) : 
    missing values are not allowed in subscripted assignments of data frames

而且我还没有合并站点C。我不太确定该怎么做，将不胜感激。

托尼托诺夫

欢迎来到SO！首先，您的问题似乎有点不确定，因此我继续进行了一些更改。我从两个数据帧开始：

df1 <- read.table(text = "
date       site       Value  
1991-07-08 A          22.5
1991-07-09 A          NaN
1992-07-13 B          23.1
1992-07-14 A          NaN
1993-07-07 B          27.3
", head = T)
df2 <- read.table(text = "
date       site         Value
1991-07-08 A          22.5
1991-07-09 A           NaN
1992-07-14 A           NaN
1991-07-08 B          10.6
1991-07-09 B            23
1992-07-14 B           NaN
1992-07-09 C          11.3
1992-07-14 C          12.4
", head = T)

替换NaN为更传统的NA：

df1$Value[is.nan(df1$Value)] <- NA
df2$Value[is.nan(df2$Value)] <- NA

合并（左连接）从长格式转换为宽格式（）的数据框reshape2，以便日期成为关键：

library(reshape2)
dd1 <- dcast(df1, date ~ site)
dd2 <- dcast(df2, date ~ site)

dm <- merge(dd1, dd2, by = "date", all.x = TRUE, suffixes = c("", ".y"))

dm 看起来像这样：

        date    A    B  A.y  B.y    C
1 1991-07-08 22.5   NA 22.5 10.6   NA
2 1991-07-09   NA   NA   NA 23.0   NA
3 1992-07-13   NA 23.1   NA   NA   NA
4 1992-07-14   NA   NA   NA   NA 12.4
5 1993-07-07   NA 27.3   NA   NA   NA

现在，NA无需任何日期，即可轻松替换任何想要的内容。我使用以下规则：如果A缺少，请使用B.y，如果B.y也缺少，请使用C。

dm$A <- ifelse(is.na(dm$A), 
               ifelse(is.na(dm$B.y),
                      dm$C, dm$B.y), 
               dm$A)

现在恢复原始格式：

dfFin <- na.omit(melt(dm[, c("date", "A", "B")], id = "date", variable.name = "site"))

         date site value
1  1991-07-08    A  22.5
2  1991-07-09    A  23.0
4  1992-07-14    A  12.4
8  1992-07-13    B  23.1
10 1993-07-07    B  27.3

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

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