दिलचस्प पोस्ट
Jquery: एक वेबसर्वर के बिना स्थानीय रूप से AJAX चल रहा है std :: बाध्य फ़ंक्शन फ़ायरबेज में पंजीकृत उपयोगकर्ताओं की सूची कैसे प्राप्त करें नए डाउनलोड किए गए पैकेज का उपयोग करने के बजाय ग्रहण के नए संस्करण को कैसे नवीनीकृत करें क्या मैं एक जेएमबुबार के साथ जेटबबेडपैन कर सकता हूं? संरेखित करें-स्व, संरेखित-आइटम और संरेखित-सामग्री के साथ फ्लेक्स-रैप काम कैसे करता है? स्टैक इतिहास से विशिष्ट गतिविधि कैसे साफ़ करें? जावास्क्रिप्ट .प्रोटोटाइप कैसे काम करता है? आईपी ​​पते की जांच कैसे करें PHP में दो आईपी की एक सीमा के भीतर है? अपस्ट्रीम ने अपस्ट्रीम से प्रतिक्रिया शीर्ष लेख पढ़ते समय बहुत बड़ा शीर्ष भेजा Groovy वर्ग गुणों को कॉपी करें यदि हालत कथन, अच्छा अभ्यास या नहीं में चर असाइन करें? क्या किसी स्ट्रिंग को किसी सरणी में कनवर्ट करने के लिए एक PHP फ़ंक्शन है? Python 2.6 में win32api त्रुटि आयात करें फेसबुक 60 दिन का पहुंच टोकन और पदावनत Offline_Access

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

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

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

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

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

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

Solutions Collecting From Web of "एक चिड़ियाघर से वर्ष और वर्ष निकालें :: वर्ष वस्तु"

क्लास "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