将值NA替换为R中另一列的值

Question

我想根据列年份，用列A中的值替换d列中dfABy中的NA值。例如，我的df是：

                 >dfABy 
                 A    B   Year
                 56   75  1921
                 NA   45  1921
                 NA   77  1922
                 67   41  1923
                 NA   65  1923

我将参加的结果是：

                 > dfABy
                 A    B   Year
                 56   75  1921
                *45*  45  1921
                *77*  77  1922
                 67   41  1923
                *65*  65  1923

P.S：每年从B列的A列替换值

Answer 1

也许R词典中最容易阅读/理解的答案就是使用ifelse。借用理查德的数据框，我们可以做到：

df <- structure(list(A = c(56L, NA, NA, 67L, NA),
                     B = c(75L, 45L, 77L, 41L, 65L),
                     Year = c(1921L, 1921L, 1922L, 1923L, 1923L)),.Names = c("A", 
                                                                                                                            "B", "Year"), class = "data.frame", row.names = c(NA, -5L))
df$A <- ifelse(is.na(df$A), df$B, df$A)

Answer 2

您可以使用[<-进行简单替换，为NA元素进行子集化。

df$A[is.na(df$A)] <- df$B[is.na(df$A)]

或者，within()

within(df, A[is.na(A)] <- B[is.na(A)])

两者都给

   A  B Year
1 56 75 1921
2 45 45 1921
3 77 77 1922
4 67 41 1923
5 65 65 1923

数据：

df <- structure(list(A = c(56L, NA, NA, 67L, NA), B = c(75L, 45L, 77L, 
41L, 65L), Year = c(1921L, 1921L, 1922L, 1923L, 1923L)), .Names = c("A", 
"B", "Year"), class = "data.frame", row.names = c(NA, -5L))

Answer 3

简单

library(dplyr)

dfABy %>%
  mutate(A_new = 
           A %>% 
             is.na %>%
             ifelse(B, A) )

Answer 4

新的dplyr函数coalesce可以真正简化这些情况。

library(dplyr)

dfABy %>% 
    coalesce(A,B)

Answer 5

GGAnderson提供的解决方案确实返回了错误消息。在mutate（）中使用它然而工作正常。

df <- structure(list(A = c(56L, NA, NA, 67L, NA),
                     B = c(75L, 45L, 77L, 41L, 65L),
                     Year = c(1921L, 1921L, 1922L, 1923L, 1923L)),
                .Names = c("A", "B", "Year"), 
                class = "data.frame", 
                row.names = c(NA, -5L))
df
df%>% 
  coalesce(A,B) #returns error

df %>%
mutate(A = coalesce(A,B)) #works

（我是Stackoverflow的新手;我的低声望不允许直接评论GGAnderson的答案）