रोलिंग का मतलब है और लागू करना डेटा की एक श्रृंखला की शुरुआत में

Question

है, मैं डेटासेट में पिछले 4 मानों का रोलिंग माध्य करना चाहता हूं। हालांकि, शुरुआत के लिए, क्योंकि 4 मान नहीं हैं, मैं 1/2/3 अवलोकनों के रोलिंग माध्य को करना चाहता हूं। मैं यह कैसे करु?

library(zoo) 
df= data.frame(a=c(1,2,3,4,5)) 
df$answer = rollapply(df$a, 4,mean) 
#help 

उदाहरण के लिए, पंक्ति 1 1 का मान होता है, पंक्ति 2 (1 + 2) /2=1.5 के एक मूल्य के लिए होता है, पंक्ति 3 से 6/3 = 2 का मान होता है।

मैं 4 अवधि के रोलिंग माध्यम करना चाहता हूं लेकिन कम महीनों के साथ अवधि में, मैं अधिकतम अवधि की अनुमति देना चाहता हूं।

Answer 1

उपयोग सही partial=TRUE साथ aligment , यानी rollapplyr(..., partial=TRUE) या rollapply(..., align = "right", partial=TRUE)। यहां हम rollapplyr का उपयोग करते हैं:

rollapplyr(df$a, 4, mean, partial = TRUE) 

Answer 2

तुम भी पैकेज के बिना कोशिश कर सकते हैं:

sapply(seq_along(df$a), function(u) mean(df$a[max(u-3,0):u])) 
#[1] 1.0 1.5 2.0 2.5 3.5 

या एक vectorized समाधान - पाश बिना - आधार R:

with(df, (cumsum(a) - c(rep(0,4),head(a,-4)))/pmin(seq_along(a),4)) 
#[1] 1.0 1.5 2.0 2.5 3.5 

Answer 3

अतिरिक्त NAS जोड़ने के बारे में क्या?

rollapply(c(rep(NA, 3),df$a), 4, FUN = mean, align = "right", na.rm = TRUE) 

Answer 4

मुझे लगता है कि यह केवल इस तरह के निम्नलिखित (एक वैकल्पिक समाधान के रूप में) के रूप में एक साधारण समारोह के साथ किया जा सकता है:

rollapply2 <- function(myvec, width, fun){ 
    #the first values up to width 
    firstvalues <- cumsum(myvec[1:(width-1)])/(1:(width-1)) 
    #the rest of the values as normal 
    normalvalues <- rollapply(myvec, width, fun) 
    #return them all 
    c(firstvalues,normalvalues) 
} 

आउटपुट:

> rollapply2(df$a, 4, mean) 
[1] 1.0 1.5 2.0 2.5 3.5