आर में व्यावसायिक दिनों की गणना कैसे करें (उदाहरण के साथ)

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

निम्नलिखित उदाहरण दिखाते हैं कि व्यवहार में इन कार्यों का उपयोग कैसे करें।

उदाहरण 1: आर में दो तिथियों के बीच कार्य दिवसों की संख्या की गणना करें

आर में दो तिथियों के बीच व्यावसायिक दिनों की संख्या की गणना करने के लिए, आपको पहले व्यावसायिक दिनों की सूची वाला कैलेंडर बनाने के लिए बिज़डेज़ पैकेज से create.calendar() फ़ंक्शन का उपयोग करना होगा:

 library (bizdays)

#create business calendar
business_calendar <- create. calendar (' my_calendar ',weekdays = c(' saturday ',' sunday '))

ध्यान दें कि सप्ताहांत तर्क निर्दिष्ट करता है कि सप्ताह के कौन से दिन व्यावसायिक दिन नहीं हैं।

फिर हम दो विशिष्ट तिथियों के बीच कार्य दिवसों की संख्या गिनने के लिए bizdays() फ़ंक्शन का उपयोग कर सकते हैं:

 library (bizdays)

#calculate number of business days between two dates
bizdays(from = ' 2022-01-01 ', to = ' 2022-12-31 ', cal = business_calendar)

[1] 259

परिणाम से हम देख सकते हैं कि 01/01/2022 और 12/31/2022 के बीच 259 कार्य दिवस हैं।

उदाहरण 2: आर में तारीख से व्यावसायिक दिन जोड़ें और घटाएँ

मान लीजिए कि हमारे पास आर में निम्नलिखित डेटा फ्रेम है जिसमें विभिन्न तिथियों पर स्टोर में की गई कुल बिक्री के बारे में जानकारी शामिल है:

 #make this example reproducible
set. seeds (1)

#create data frame
df <- data. frame (date = as.Date (' 2022-01-01 ') + 0:249,
                 sales = runif(n=250, min=1, max=30))

#view head of data frame
head(df)

        dirty date
1 2022-01-01 8.699751
2 2022-01-02 11.791593
3 2022-01-03 17.612748
4 2022-01-04 27.338026
5 2022-01-05 6.848776
6 2022-01-06 27.053301

हम प्रत्येक दिनांक में 10 व्यावसायिक दिन जोड़ने के लिए बिज़डेज़ पैकेज से ऑफ़सेट() फ़ंक्शन का उपयोग कर सकते हैं:

 library (bizdays)

#create business calendar
business_calendar <- create. calendar (' my_calendar ',weekdays = c(' saturday ',' sunday '))

#add 10 business days to each date
df$date <- bizdays::offset(df$date, 10 , cal = business_calendar)

#view updated head of data frame
head(df)

        dirty date
1 2022-01-14 8.699751
2 2022-01-14 11.791593
3 2022-01-17 17.612748
4 2022-01-18 27.338026
5 2022-01-19 6.848776
6 2022-01-20 27.053301

ध्यान दें कि प्रत्येक तिथि में 10 कार्य दिवस जोड़े गए हैं।

व्यावसायिक दिनों को घटाने के लिए, बस ऑफ़सेट() फ़ंक्शन में एक ऋणात्मक संख्या का उपयोग करें।

उदाहरण के लिए, निम्नलिखित कोड दिखाता है कि प्रत्येक तिथि से 10 व्यावसायिक दिन कैसे घटाएँ:

 library (bizdays) 

#create business calendar
business_calendar <- create. calendar (' my_calendar ',weekdays = c(' saturday ',' sunday '))

#subtract 10 business days to each date
df$date <- bizdays::offset(df$date, - 10 , cal = business_calendar)

#view updated head of data frame
head(df)

        dirty date
1 2021-12-20 8.699751
2 2021-12-20 11.791593
3 2021-12-20 17.612748
4 2021-12-21 27.338026
5 2021-12-22 6.848776
6 2021-12-23 27.053301

ध्यान दें कि प्रत्येक तिथि से 10 व्यावसायिक दिन घटा दिए गए हैं।

नोट : आप बिज़डेज़ पैकेज के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि आर में अन्य सामान्य कार्य कैसे करें:

किसी दिनांक को R में संख्यात्मक में कैसे परिवर्तित करें
आर में तारीख से महीना कैसे निकालें
आर में किसी तारीख में महीनों को कैसे जोड़ें और घटाएं