r - मैं समय में "सही" छुट्टियों का उपयोग कैसे करूं?




date calendar (2)

कंसोल में कोष्ठकों के बिना फ़ंक्शन नाम टाइप करके आप फंक्शन holidayNYSE फ़ंक्शन का निरीक्षण कर सकते हैं। आप यहां प्रासंगिक भाग देख सकते हैं

if (y <= 1970) 
   holidays <- c(holidays, as.character(USDecorationMemorialDay(y)))
if (y >= 1971) 
   holidays <- c(holidays, as.character(USMemorialDay(y)))

जाहिरा तौर पर अमरीकी डालर की महारानी मनी डेला एक समाप्ति छुट्टी है और 1 9 71 से पहले के वर्षों के लिए ही प्रासंगिक है।

आपकी बड़ी तस्वीर प्रश्न के लिए, मुझे यह पता नहीं है कि यह किसी भी आर पैकेज के बारे में है। शायद आप इसे कहीं से वेब से निंदा कर सकते हैं?

चारों ओर खोजा गया लेकिन इस का उत्तर नहीं मिला। मूलतः, टाइमडेट पैकेज में कुछ आंतरिक कोड है जो इसे सामने नहीं आया है, और मैं सोच रहा हूं कि इसे कैसे प्राप्त करना है:

> USDecorationMemorialDay(2013)

GMT
[1] [2013-05-30]

> holidayNYSE(2013)

NewYork
[1] [2013-01-01] [2013-01-21] [2013-02-18] [2013-03-29] [2013-05-27] [2013-07-04] [2013-09-02] [2013-11-28] [2013-12-25]

इसलिए जैसा कि आप यहां देख सकते हैं कि USDecorationMemorialDay फ़ंक्शन गलत है क्योंकि मेमोरियल डे मई का अंतिम सोमवार है। हालांकि छुट्टी में एनवाईएस समारोह में उन्होंने किसी तरह से सुधार लागू किया है ताकि यह [2013-05-27] देता है। उसके साथ क्या है?

बड़ी तस्वीर मैं वास्तव में देश से एक राष्ट्रीय अवकाश कैलेंडर देख रहा हूं। समय-तारीख ने यूके, यूएस, स्विटजरलैंड और कनाडा की स्थापना की है, लेकिन विशेष रूप से जापान और ऑस्ट्रेलिया के बाकी जी 7 गायब हैं। शायद यह किसी अन्य पैकेज में है? यदि यह मेरी योजना नहीं है तो मूल रूप से मौजूदा समय-तारीख कार्य को संशोधित करने और उन लिखने का मिश्रण करना है जो मौजूद नहीं हैं। कहीं किसी ने शायद पहले से यह किया है?


panel.border उपयोग करने के लिए आपको fill=NA का उपयोग करके रिक्त भरना भी निर्दिष्ट करना होगा।

इसे इस्तेमाल करे:

library(ggplot2)

ggplot(mtcars, aes(mpg, disp)) + geom_point() + geom_rug() +
  theme(axis.text.y   = element_text(size=14),
        axis.text.x   = element_text(size=14),
        axis.title.y  = element_text(size=14),
        axis.title.x  = element_text(size=14),
        panel.background = element_blank(),
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        axis.line = element_line(colour = "black"),
        panel.border = element_rect(colour = "black", fill=NA, size=5)
  )





r date calendar