चिड़ियाघर वस्तु एकत्रीकरण

Question

प्रिय समुदाय,

डेटा मैं प्राप्त एक डेटा फ्रेम में हो जाएगा:

Var_1  Var_2   Date  VaR_3 VaR_4 VaR_5 Var_6 
1   4  2010-01-18   7 apple 10 sweet 
2   5  2010-07-19   8 orange 11 sour 
3   6  2010-01-18   9 kiwi  12 juicy 
...  ...  ...    ... ...  ... ... 

मैं, चिड़ियाघर का उपयोग करने के बाद से यह एक लचीला वस्तु वर्ग हो रहा है करना चाहते हैं। मैं सिर्फ आर के साथ शुरू कर रहा हूं और मैंने पैकेज के लिए विवरण (विगेट्स) पढ़ने की कोशिश की।

सवाल:

1. एक डेटा फ्रेम, जो विधि एक चिड़ियाघर वस्तु में पूरा df कन्वर्ट करने के लिए सिफारिश की है, चिड़ियाघर है कि यह तिथि स्तंभ के रूप में तीसरे स्तंभ का उपयोग होना चाहिए कह के रूप में ऊपर आंकड़ों को देखते हुए (दिनांकों कर सकते हैं डेटा में कई बार होता है)?
2. चिड़ियाघर निर्मित कार्यों का उपयोग करके कॉलम 4 और 6 को छोड़कर, मैं मासिक रूप से अन्य सभी कॉलम कैसे एकत्र करूं? क्या चिड़ियाघर स्वचालित रूप से स्पष्ट चर को त्यागने में सक्षम है और केवल उन स्तंभों का उपयोग करें जो एकत्रीकरण के लिए उपयुक्त हैं?
3. कॉलम 4 में प्रत्येक श्रेणी के लिए मैं मासिक रूप से सभी संख्यात्मक कॉलम कैसे एकत्र करूं (कॉलम 6 शामिल नहीं किया जाएगा, क्योंकि यह गैर-संख्यात्मक है)।

आपके समर्थन के लिए धन्यवाद।

Answer 1

चिड़ियाघर वस्तुओं समय श्रृंखला हैं और आमतौर पर संख्यात्मक वैक्टर या matrices हैं। ऐसा लगता है कि आपके पास वास्तव में अलग-अलग समय श्रृंखला का एक समूह है जहां कॉलम 5 यह पहचानता है कि यह कौन सी श्रृंखला है। यही है, एक सेब श्रृंखला, एक नारंगी श्रृंखला, एक कीवी श्रृंखला, आदि है और उनमें से प्रत्येक में कई कॉलम हैं।

इसके संख्यात्मक नहीं के बाद से अंतिम स्तंभ गिराने, सूचकांक और स्तंभ 5 पर बंटवारे के रूप में तीसरे स्तंभ का उपयोग कर हमने:

# create test data 
Lines <- "Var_1  Var_2   Date  VaR_3 VaR_4 VaR_5 Var_6 
1   4  2010-01-18   7 apple 10 sweet 
2   5  2010-07-19   8 orange 11 sour 
3   6  2010-01-18   9 kiwi  12 juicy" 
cat(Lines, "\n", file = "data.txt") 

library(zoo) 
z <- read.zoo("data.txt", header = TRUE, index = 3, split = "VaR_5", 
    colClasses = c(Var_6 = "NULL")) 

परिणाम है:

> z 
      Var_1.apple Var_2.apple VaR_3.apple VaR_5.apple Var_1.kiwi 
2010-01-18   1   4   7   10   3 
2010-07-19   NA   NA   NA   NA   NA 
      Var_2.kiwi VaR_3.kiwi VaR_5.kiwi Var_1.orange Var_2.orange 
2010-01-18   6   9   12   NA   NA 
2010-07-19   NA   NA   NA   2   5 
      VaR_3.orange VaR_5.orange 
2010-01-18   NA   NA 
2010-07-19   8   11 

ऊपर है कि मान लिया गया है कॉलम 5 के दिए गए मान के लिए कि तिथियां अद्वितीय हैं। यदि ऐसा नहीं है तो aggregate = mean तर्क या aggregate के लिए कुछ अन्य मान शामिल करें।

अब एक मासिक चिड़ियाघर श्रृंखला में यह कुल करने के लिए हमने:

aggregate(z, as.yearmon, mean) 

यह भी FUN = as.yearmon तर्क का उपयोग करके सीधे मासिक करने के लिए दूर यह कन्वर्ट करने के लिए संभव हो जाएगा:

zm <- read.zoo("data.txt", header = TRUE, index = "Date", split = "VaR_4", 
    FUN = as.yearmon, colClasses = c(Var_6 = "NULL"), aggregate = mean) 

देखें ?read.zoo , vignette("zoo-read"), ?aggregate.zoo और अन्य विगनेट्स और सहायता फ़ाइलों को भी।