दिलचस्प पोस्ट
एंड्रॉइड अलार्म मैनेजर – आरटीसी_वैक्यूप बनाम एलेक्सिडियल टाइमम WAKEUP जांचें कि क्या कोई चेतावनी अजगर के साथ सेलेनियम का उपयोग कर रहा है स्ट्रिंग के प्रारंभ या अंत से सभी सफेद रिक्त स्थान कैसे निकालें? सरणी जावा की प्रतिलिपि बनाएँ मैं सूची <टी> से लेकर एक वर्ग के सदस्यों को क्रमबद्ध करने के लिए json.net कैसे प्राप्त करूं? जहां सी में संग्रहीत स्थिर चर हैं? कंसार को कंट्रेसेटेबल एंटिटी के अंत में कैसे ले जाए रेंगमेंट यूआरएल के साथ जेकग्रीड की इनलाइन-संपादन का उपयोग करना? IIS एक्सप्रेस के लिए web.config में माइम मैपिंग जोड़ें कॉल करने से पहले स्ट्रिंग इनपुट में वैध XML के लिए कैसे जांचें। LoadXml () मैं jQuery का उपयोग कर एक तत्व की पूर्ण स्थिति कैसे प्राप्त करूं? एक विशिष्ट समय से यूआईडीएट पिक्चर की तारीख सीमित कर रहा है। जैसे कि इनपुट डीओबी को प्रतिबंधित आयु सीमा तक एचटीएमएल संस्थाओं को यूनिकोड में कनवर्ट करें और इसके विपरीत मैं PHP में कैसे एक UTF-8 सीएसवी आउटपुट कर सकता हूं जो Excel ठीक से पढ़ा जाएगा? क्यों एचटीएमएल 5 आईओएस 8 वेबपैकेज (वेबव्यू) में नहीं खेलता है?

एक चिड़ियाघर से वर्ष और वर्ष निकालें :: वर्ष वस्तु

मेरे पास एक yearmon उद्देश्य है:

 require(zoo) date1 <- as.yearmon("Mar 2012", "%b %Y") class(date1) # [1] "yearmon" 

मैं इस महीने और वर्ष को कैसे निकाल सकता हूं?

 month1 <- fn(date1) year1 <- fn(date1) 

fn() स्थान पर मुझे किस फ़ंक्शन का उपयोग करना चाहिए

वेब के समाधान से एकत्रित समाधान "एक चिड़ियाघर से वर्ष और वर्ष निकालें :: वर्ष वस्तु"

क्लास "yearmon" ऑब्जेक्ट के लिए format() विधि का उपयोग करें यहां आपकी उदाहरण की तारीख है (ठीक से बनाई गई!)

 date1 <- as.yearmon("Mar 2012", "%b %Y") 

तो हम आवश्यकतानुसार दिनांक भागों को निकाल सकते हैं:

 > format(date1, "%b") ## Month, char, abbreviated [1] "Mar" > format(date1, "%Y") ## Year with century [1] "2012" > format(date1, "%m") ## numeric month [1] "03" 

ये अक्षर के रूप में लौटाए जाते हैं जहां उपयुक्त हो, के रूप में as.numeric() में लपेटो यदि आप एक संख्यात्मक चर के रूप में वर्ष या संख्यात्मक माह चाहते हैं, उदाहरण के लिए

 > as.numeric(format(date1, "%m")) [1] 3 > as.numeric(format(date1, "%Y")) [1] 2012 

विवरण के लिए ?strftime और ?strftime विवरण के लिए ?yearmon देखें – उत्तरार्द्ध उन प्लेसहोल्डर वर्णों का वर्णन करता है जिन्हें आप उपयोग कर सकते हैं।

लिब्रिडेट पैकेज इस प्रकार की चीज़ों के लिए अद्भुत है:

 > require(lubridate) > month(date1) [1] 3 > year(date1) [1] 2012 

मुझे पता है कि ओपी यहां zoo का उपयोग कर रहा है, लेकिन मुझे यह समस्या एक समान समस्या के लिए एक मानक ts समाधान के लिए मिल गई। तो मैंने सोचा कि मैं zoo जोड़ूंगा – ts लिए भी मुफ्त जवाब।

 # create an example Date date_1 <- as.Date("1990-01-01") # extract year as.numeric(format(date_1, "%Y")) # extract month as.numeric(format(date_1, "%m")) 

आप format उपयोग कर सकते हैं:

 library(zoo) x <- as.yearmon(Sys.time()) format(x,"%b") [1] "Mar" format(x,"%Y") [1] "2012" 

बड़े वैक्टर के लिए:

 y = as.POSIXlt(date1)$year + 1900 # x$year : years since 1900 m = as.POSIXlt(date1)$mon + 1 # x$mon : 0–11 

सवाल यह स्पष्ट नहीं बताता कि आउटपुट किस प्रकार अपेक्षित है, लेकिन मानते हैं कि माह के लिए आपको महीने का अंक (जनवरी = 1) चाहिए और उस वर्ष के लिए आप संख्यात्मक 4 अंक वर्ष चाहते हैं तो यह मानते हुए कि हमने अभी सवाल में कोड चलाया है:

 cycle(date1) ## [1] 3 as.integer(date1) ## [1] 2012