कोई संख्या

Question

जोड़ते समय केवल शून्य के रूप में व्यवहार करें, जब दो डेटा तालिकाओं की गणना की जाती है, NA+n=NA।

Name 1 2 
1: Joe 0 5 
2: Ann NA 3 

यह कैसे आर में किया जाता है:

> dt1 <- data.table(Name=c("Joe","Ann"), "1"=c(0,NA), "2"=c(3,NA)) 
> dt1 
    Name 1 2 
1: Joe 0 3 
2: Ann NA NA 
> dt2 <- data.table(Name=c("Joe","Ann"), "1"=c(0,NA), "2"=c(2,3)) 
> dt2 
    Name 1 2 
1: Joe 0 2 
2: Ann NA 3 
> dtsum <- rbind(dt1, dt2)[, lapply(.SD, sum), by=Name] 
> dtsum 
    Name 1 2 
1: Joe 0 5 
2: Ann NA NA 

मैं सभी एनए के 0. साथ स्थानापन्न करने मैं क्या चाहता हूँ NA+NA=NA और NA+n=n निम्नलिखित परिणाम प्राप्त करने के लिए है नहीं करना चाहती?

अद्यतन: DT1 में निकाली गई टाइपो

Answer 1

आप अपनी खुद की समारोह आप चाहते हैं के रूप में कार्य करने के लिए परिभाषित कर सकते हैं याद करने के लिए बहुत उपयोगी है

plus <- function(x) { 
if(all(is.na(x))){ 
    c(x[0],NA)} else { 
    sum(x,na.rm = TRUE)} 
} 


rbind(dt1, dt2)[,lapply(.SD, plus), by = Name] 

Answer 2

dtsum <- rbind(dt1, dt2)[, lapply(.SD, function(x) ifelse(all(is.na(x)), as.numeric(NA), sum(x, na.rm=T))), by=Name] 

(@ अरुण के सुझाव भी शामिल है) na.rm=TRUE