R 用侧列中相应的非NA值替换NA值

我有一个名为temp的

数据表

PID PID_Gen 
a   NA   
c   c1
b   NA
d   d1

下面计算
PID\u Gen
是否为
NULL
，在这种情况下分配
PID
的值

temp$result <- future_sapply(temp$PID_Gen, 
                             FUN = function(x) if(is.na(x)) {temp$PID})

temp$result这是您想要的结果吗

df1a
#>2 c c1
#>3 b b
#>4 d d1

由（v0.2.1.9000）创建于2019-02-03这是您想要的结果吗

df1a
#>2 c c1
#>3 b b
#>4 d d1

由（v0.2.1.9000）于2019-02-03创建

temp <- read.table(text = "PID PID_Gen 
                   a   NA   
                   c   c1
                   b   NA
                   d   d1", header = TRUE, stringsAsFactors = FALSE)
temp$result <- ifelse(is.na(temp$PID_Gen), temp$PID, temp$PID_Gen)

temp以下是我的方法：

temp <- read.table(text = "PID PID_Gen 
                   a   NA   
                   c   c1
                   b   NA
                   d   d1", header = TRUE, stringsAsFactors = FALSE)
temp$result <- ifelse(is.na(temp$PID_Gen), temp$PID, temp$PID_Gen)

temp执行此操作：
temp$result执行此操作：
temp$result