Replace NA values with corresponding non NA values in side column

Question

I've got a data.table named temp:

PID PID_Gen 
a   NA   
c   c1
b   NA
d   d1

The following evaluates if PID_Gen is NULL and in that case assigns the value of PID.

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

The problem is that it overflows the memory.

Are there any alternatives I can use?

Does this work: `temp$result – morgan121 Feb 04 '19 at 01:29 — morgan121, Feb 04 '19 at 01:29

score 2 · Accepted Answer · answered Feb 04 '19 at 01:30

Is this your desired result?

df <- read.table(text = "PID PID_Gen 
a   NA   
c   c1
b   NA
d   d1", header = TRUE, stringsAsFactors = FALSE)

df$PID_Gen[is.na(df$PID_Gen)] <- df$PID[is.na(df$PID_Gen)]

print(df)
#>   PID PID_Gen
#> 1   a       a
#> 2   c      c1
#> 3   b       b
#> 4   d      d1

^{Created on 2019-02-03 by the reprex package (v0.2.1.9000)}

score 2 · Answer 2 · answered Feb 04 '19 at 01:32

Here's my approach:

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)

Replace NA values with corresponding non NA values in side column

2 Answers2