डेटा.table

Question

के उसी कॉलम के साथ NAs को बदलें, मैं उसी कॉलम के माध्य के साथ डेटा टैबलेट के कॉलम में मौजूद एनएएस को प्रतिस्थापित करना चाहता हूं। मैं निम्नलिखित कर रहा हूँ। लेकिन यह काम नहीं कर रहा है।

ww <- data.table(iris) 

ww <- ww[1:5 , ] 

ww[1,1] <- NA 

    Sepal.Length Sepal.Width Petal.Length Petal.Width Species 
1:   NA   3.5   1.4   0.2 setosa 
2:   4.9   3.0   1.4   0.2 setosa 
3:   4.7   3.2   1.3   0.2 setosa 
4:   4.6   3.1   1.5   0.2 setosa 
5:   5.0   3.6   1.4   0.2 setosa 


ww[is.na(Sepal.Length) , Sepal.Length:= mean(Sepal.Length, na.rm = T)] 

    Sepal.Length Sepal.Width Petal.Length Petal.Width Species 
1:   NaN   3.5   1.4   0.2 setosa 
2:   4.9   3.0   1.4   0.2 setosa 
3:   4.7   3.2   1.3   0.2 setosa 
4:   4.6   3.1   1.5   0.2 setosa 
5:   5.0   3.6   1.4   0.2 setosa 

क्यों मैं एनए के स्थान पर NaN हो रही है जब यह मान (4.9, 4.7, 4.6, 5.0) के बाकी के माध्य किया जाना चाहिए था?

इस वाक्यविन्यास में कुछ गलत होने पर इसे स्वीकार करने का विकल्प क्या है?

मैं डेटा तालिका के लिए वाक्यविन्यास चाहता हूं।

Answer 1

चिड़ियाघर पैकेज में na.aggregate ही स्तंभ में गैर NAS की औसत के साथ NAS की जगह:

library(zoo) 

ww[, Sepal.Length := na.aggregate(Sepal.Length)] 

Answer 2

यह पूरे सेपल का मतलब नहीं ले रहा है। लम्बाई कॉलम; केवल 1 कॉलम जिसे आपने चुना है।

बल्कि का उपयोग करें: आधार आर में

ww[is.na(Sepal.Length) , Sepal.Length:= mean(ww$Sepal.Length, na.rm=TRUE)] 

Answer 3

:

ww$Sepal.Length[is.na(ww$Sepal.Length)] <- mean(ww$Sepal.Length, na.rm = T) 

Answer 4

आपका प्रयास तालिका subsetted पहले

> ww[is.na(Sepal.Length)] 
    Sepal.Length Sepal.Width Petal.Length Petal.Width Species 
1: 

    NA   3.5   1.4   0.2 setosa 

का चयन इसलिए किसी भी आगे के संचालन केवल इन 'देख' सकते हैं पंक्तियां - यानी Sepal.Length केवल एक NA देख सकते हैं।

data.table समाधान जो आप चाहते हैं नीचे है - यह पूरी तालिका को देखता है और एस को ifelse का उपयोग करने के माध्यम से बदल देता है।

ww[, Sepal.Length := ifelse(is.na(Sepal.Length), mean(Sepal.Length, na.rm = TRUE), Sepal.Length)] 

Answer 5

यह नया निर्भरता की आवश्यकता होती है zoo जवाब बहुत अच्छा है।
केवल data.table का उपयोग करके आप निम्न कार्य कर सकते हैं।

library(data.table) 

# prepare data 
ww = data.table(iris[1:5,]) 
ww[1, Sepal.Length := NA] 

# solution 
ww[, Sepal.Length.mean := mean(Sepal.Length, na.rm = TRUE) # calculate mean 
    ][is.na(Sepal.Length), Sepal.Length := Sepal.Length.mean # replace NA with mean 
    ][, Sepal.Length.mean := NULL # remove mean col 
     ][] # just prints 

यह चिड़ियाघर के की तुलना में बरा लग रहा है हो सकता है, यह प्रदर्शन कुशल के रूप में सभी चरणों का संदर्भ:= द्वारा अद्यतन का उपयोग किया जाता है। डेटाटेबल में by तर्क का उपयोग करके, समूह द्वारा माध्य के साथ एनए को प्रतिस्थापित करने के लिए इसे आसानी से ट्यून किया जा सकता है।

Answer 6

tidyr एक समारोह, replace_na आप इस के लिए उपयोग कर सकते हैं में बनाया गया है:

library(tidyr) 
ww %>% replace_na(list(Sepal.Length = mean(.$Sepal.Length, na.rm = TRUE)))