मूल्यों का क्रम कैसे उपयोग करें और संरक्षित करें

Question

उम्मीद है कि यह एक बहुत ही मूर्ख सवाल नहीं है, लेकिन अभी भी एक आर शुरुआती होने के नाते मुझे झटके से गंभीर समस्या है।

c(1,2,3,4,5,NA,7,0,NA) 

में बहुत धन्यवाद: कहते हैं कि चलो

factors <- as.factor(c("a", "b", "c", "a", "b", "c", "a", "b", "c")) 
values <- c(1, 2, 3, 4, 5, NA, 7, NA, NA) 
tapply(
    values, 
    factors, 
    function(x){ 
    if(sum(is.na(x)) == 1){ 
     x[ is.na(x) ] <- 0 
    } 
    return(x) 
    } 
) 

परिणाम

$a 
[1] 1 4 7 

$b 
[1] 2 5 0 

$c 
[1] 3 NA NA 

हालांकि है, मैं क्या जरूरत है एक वेक्टर वापस जो मूल्यों के मूल आदेश को बरकरार रखता है, यानी प्राप्त करने के लिए है अग्रिम।

Answer 1

उस मामले में आप ave समारोह का उपयोग करना चाहिए:

> ave(values, factors, FUN=function(x) { 
+  if(sum(is.na(x)) == 1){ 
+  x[ is.na(x) ] <- 0 
+  } 
+  return(x) 
+ } 
+) 
[1] 1 2 3 4 5 NA 7 0 NA 

Answer 2

एक साधारण for पाश यह बहुत ही बस करता है:

fun <- function(x){ 
    if(sum(is.na(x)) == 1){x[is.na(x)] <- 0} 
     return(x) 
} 

for (i in unique(factors)){ 
    values[i == factors] <- fun(values[i == factors]) 
} 

Answer 3

एक विकल्प विभाजन के लिए प्रतिस्थापन विधि() का उपयोग करने के लिए है:

## create a copy to store the result after replacement 
res <- values 

## use split's replacement method to split, apply, and recombine 
split(res, factors) <- lapply(split(res, factors), 
function(x){ 
if(sum(is.na(x)) == 1){ 
    x[ is.na(x) ] <- 0 
} 
    return(x) 
} 
)