छोड़ें एनए

Question

से मैं data.table उपयोग करना चाहते हैं, लेकिन j भाग की गणना छोड़ by लापता से मेल खाती है, तो चाहते हैं (NA):

यहाँ एक उदाहरण data.table

है

library(data.table) 
DT <- data.table(y=10, g=c(1,1,1,2,2,2,2,2,NA,NA)) 

यह इस

> DT 
    y g 
1: 10 1 
2: 10 1 
3: 10 1 
4: 10 2 
5: 10 2 
6: 10 2 
7: 10 2 
8: 10 2 
9: 10 NA 
10: 10 NA 

तरह लग रहा है अब मैं by=पर क्या करना चाहते हैंऔर दो पंक्तियों 9 और 10 को एक साथ लम्बा कर दिया जाएगा क्योंकि उनके पास समान मूल्य NA है।

> DT[,.N, by=g] 
    g N 
1: 1 3 
2: 2 5 
3: NA 2 

मैं उत्पादन में NA लाइन रखना चाहते हैं, लेकिन परिणाम में calculate हिस्सा है, यानी छोड़ना चाहते हैं।,, आउटपुट प्राप्त जहां N रिक्त है जब gNA

> DT[,.N, by=g] 
    g N 
1: 1 3 
2: 2 5 
3: NA NA 

है

मैंने सोचा कि मैं g के .GRP के माध्यम से उपयोग कर सकता हूं लेकिन यह केवल समूह सूचकांक देता है, न कि मूल्य। क्या by वैरिएबल की अनुपस्थित स्थिति पर गणना को सशर्त बनाना संभव है?

Answer 1

आपको यह एक कोशिश कर सकते हैं:

DT[, .N * NA^is.na(g), by = g] 

g V1 
1: 1 3 
2: 2 5 
3: NA NA 

यह Henrik'sif ... else ... खंड के एक बीजीय संस्करण है। यह तथ्य यह है कि NA^0 रिटर्न 1 जबकि NA^1 रिटर्न NA और उस FALSE और TRUE0 और 1, resp के लिए मजबूर किया जा सकता है का उपयोग करता है।

आप स्तंभ नाम नियंत्रित करना चाहते हैं: वैकल्पिक रूप से

DT[, .(n = .N * NA^is.na(g)), by = g] 

g n 
1: 1 3 
2: 2 5 
3: NA NA 

, ऊपर मुश्किल प्रतीत होता है अगर आप data.table श्रृंखलन का सहारा कर सकते हैं (इस को लाने के लिए Sotos करने के लिए धन्यवाद):

DT[, .N, by = g][is.na(g), N := NA][] 

यह N के योग को aggregati के बाद बदल देगा पर।