🚏 🧕🏿 🥪 आर के साथ एमएस एक्सेल 2010 का विस्तार करें 👈🏻 👊🏾 🚉

शुभ दोपहर, प्रिय पाठकों।
आज मैं यह दिखाना चाहता हूं कि आप R भाषा और ऑफिस सूट MS Excel 2010 की सुविधाओं को कैसे कनेक्ट कर सकते हैं। नीचे मैं इस बारे में बात करूंगा कि आप R फंक्शन्स की मदद से बिल्ट-इन VBA लैंग्वेज की कार्यक्षमता को कैसे बढ़ा सकते हैं, और RExcel ऐड-इन मेरी मदद करेगा। इसे स्थापित करने के निर्देश नेटवर्क पर या बंद आसानी से मिल सकते हैं। वेबसाइट।

टास्क सेटिंग और प्रीसेट

वीबीए से आर कार्यों का उपयोग करने में सक्षम होने के लिए , हमें एक्सेल ( Alt + F11 ) में "विज़ुअल बेसिक एडिटर" खोलने की आवश्यकता है। उसके बाद, आपको प्रोजेक्ट में RExcelVBAlib मॉड्यूल को जोड़ने की आवश्यकता है, आप टूल्स-> संदर्भ पर जाकर और वांछित आइटम को टिक कर ऐसा कर सकते हैं।

इस मॉड्यूल में रेंथफेस क्लास शामिल है, जिसके माध्यम से हमारे बंडल के घटकों का इंटरैक्शन होता है।
प्रदर्शन के लिए, मैंने 16 दिसंबर, 2011 से 20 मार्च, 2014 की अवधि के लिए फिनम वेबसाइट से डॉलर के उद्धरणों पर प्रारंभिक डेटा लिया। एक उदाहरण के लिए, R के माध्यम से उनके आधार पर हम मासिक उद्घाटन मूल्य ( 'OPEN' ) के परिवर्तन की अनुसूची का निर्माण करेंगे।

आरईएक्ससीएल से रिंटरफेस के साथ काम करने की मूल बातें

शुरू करने के लिए, आर पर एक कोड लिखें जो कार्य करेगा और इसे एक फ़ाइल में बचाएगा, उदाहरण के लिए agg_price.R (हमें बाद में इसकी आवश्यकता होगी)।

 library(zoo) agg_price_func <- function(x) { y <- zoo(x$OPEN, as.Date(as.character(x$DATE),"%Y%m%d")) new_y <- aggregate(y, as.yearmon, mean) plot(new_y) return (new_y) }

देखते हैं कि यह कोड क्या करता है।
पहले हम zoo पुस्तकालय को लोड करते हैं, जिसे हमें समय श्रृंखला के साथ काम करने की आवश्यकता होती है।
फिर एक फ़ंक्शन बनाएं जो निम्न कार्य करता है:

हमारे डेटा को एक समय श्रृंखला में परिवर्तित करता है । कौन से अनुक्रमित दिनांक में परिवर्तित 'दिनांक' कॉलम के मान हैं। इस पंक्ति के स्तरों का मान स्तंभ ' OPEN ' के बराबर होगा।
निम्नलिखित लाइन का उपयोग करते हुए, हम एग्रीगेट फ़ंक्शन का उपयोग करके अपने डेटा को महीने में एकत्रित करते हैं। इस चरण की आवश्यकता है क्योंकि हमारे स्रोत डेटा में दैनिक डेटा शामिल है, और हमें महीनों तक आगे बढ़ने की आवश्यकता है।
मासिक मानों का ग्राफ़ प्रदर्शित करें
हम मासिक मानों के साथ एक सरणी लौटाते हैं, जिसके आधार पर चार्ट बनाया गया था।

तो, हमने आर कोड लिखा। अब देखते हैं कि इसे VBA से कैसे कॉल किया जाए।
ऐसा करने के कई तरीके हैं, जिन्हें नीचे दिखाया जाएगा।

विधि 1. फ़ंक्शन कमांड का लाइन-बाय-लाइन निष्पादन।

यह विधि समझने में सबसे आसान है और कोड की लाइनों की संख्या में सबसे लंबा है। इसके लिए प्रक्रिया कोड निम्नानुसार है:

 Sub call_r_func() RInterface.PutDataframe "open_price", Range("USD!A1:C535") RInterface.RRun "library(zoo)" RInterface.RRun "price <- zoo(open_price$OPEN, as.Date(as.character(open_price$DATE),""%Y%m%d""))" RInterface.RRun "agg_price <- aggregate(price, as.yearmon, mean)" RInterface.RRun "plot(agg_price)" RInterface.InsertCurrentRPlot Range("OPEN_PRICE!A1"), widthrescale:=0.5, heightrescale:=0.5, closergraph:=True End Sub

जैसा कि आप इस प्रक्रिया में देख सकते हैं, Rinterface से 3 कार्यों का उपयोग किया जाता है :

PutDataframe
RRun
InsertCurrentRPlot

PutDataframe प्रकार के R चर में डेटा को लोड करने के लिए PutDataframe फ़ंक्शन का उपयोग किया जाता है। पहले पैरामीटर के रूप में, इंटरफ़ेस का उपयोग करने वाले भविष्य के चर का नाम इसे पारित किया जाएगा। दूसरा पैरामीटर उन मानों की श्रेणी होगी जो चर में होंगे।
RRun दुभाषिया आर की कमांड को निष्पादित करने का कार्य करता है। एक पैरामीटर के रूप में, एक स्ट्रिंग इसे पारित किया जाता है, जिसे इसके द्वारा निष्पादित किया जाएगा।
InsertCurrentRPlot सूची में अंतिम एक निर्दिष्ट MS Excel कार्यपत्रक में R ग्राफ़िक्स के आउटपुट को निष्पादित करता है। पहले पैरामीटर के रूप में, एक सेल इसे भेजा जाता है जिसमें ग्राफ प्रदर्शित किया जाएगा। चौड़े पैमाने और ऊँचाई वाले मापदंडों का उपयोग प्लॉट को स्केल करने के लिए किया जाता है (हमारे मामले में, 50%)। क्लोजरग्राफ संकेत देता है कि plot() फ़ंक्शन का उपयोग करके तैयार किए गए ग्राफ को बंद करने की आवश्यकता है।
ऊपर वर्णित कार्यों के बाद, call_r_func () प्रक्रिया के संचालन में सवाल नहीं होना चाहिए। संक्षेप में, इस प्रक्रिया ने लाइन द्वारा वर्णित आर स्क्रिप्ट को लाइन द्वारा निष्पादित किया।
इस पद्धति का लाभ यह है कि सभी कोड एक VBA मैक्रो में केंद्रित हैं , जो छोटे कार्यों के लिए सुविधाजनक हो सकता है।
नुकसान आर कोड के असुविधाजनक डिबगिंग हो सकता है।

विधि 2. ग्राफ़ को प्रदर्शित करने के लिए एक बाहरी फ़ंक्शन का उपयोग करना।

इस विधि की प्रक्रिया इस प्रकार है:

 Sub call_r_impotr_func_without_print() RInterface.RunRFile "D:/agg_price.R" RInterface.RunRCall "agg_price_func", AsSimpleDF(Range("USD!A1:C535")) RInterface.InsertCurrentRPlot Range("OPEN_PRICE!H1"), widthrescale:=0.5, heightrescale:=0.5, closergraph:=True End Sub

इस कोड में 3 नए कार्य हैं:

RunRFile
AsSimpleDF
RunRCall

इस सूची में सबसे पहले, RunRFile फ़ाइल में कोड निष्पादित करने की अनुमति देता है
AsSimpleDF पैरामीटर में चयनित सीमा को डेटा सेट प्रकार ( AsSimpleDF परिवर्तित करता है।
RunRCall फ़ंक्शन एक प्रक्रिया कॉल करता है और परिणाम नहीं लौटाता है ( रिटर्न (...) को अनदेखा किया जाता है)। प्रक्रिया का नाम पहले पैरामीटर के रूप में पारित किया गया है, या इसका कोड आर है। बाद के सभी पैरामीटर प्रक्रिया में परिभाषित मापदंडों को पारित करते हैं (हमारे मामले में, यह एक है)।
उपरोक्त विवरण से, यह स्पष्ट हो जाता है कि हमारी call_r_impotr_func_without_print () प्रक्रिया सबसे पहले बाहरी agg_price.R फ़ाइल को निष्पादित करती है। फिर यह दिए गए रेंज से डेटा एकत्र करने के लिए agg_price_func फ़ंक्शन को कॉल करता है। और अंत में यह दी गई शीट पर एक ग्राफ प्रदर्शित करता है।
इस विधि का लाभ आर पर डिबगिंग कोड की सादगी है , क्योंकि इसे किसी भी एडिटर या IDE में लिखा जा सकता है।
Minuses में से, यह ध्यान दिया जाना चाहिए कि एक फ़ाइल के बजाय, हमें 2: xls और r मिलता है।

विधि 3. डेटा आउटपुट और एक ग्राफ के साथ एक बाहरी फ़ंक्शन का उपयोग करना।

प्रक्रिया कोड:

 Sub call_r_impotr_func_with_print() RInterface.RunRFile "D:/agg_price.R" RInterface.GetRApply "agg_price_func", Range("OPEN_PRICE!A19"), AsSimpleDF(Range("USD!A1:C535")) RInterface.InsertCurrentRPlot Range("OPEN_PRICE!D19"), closergraph:=True End Sub

इस प्रक्रिया में पिछले एक से केवल एक मामूली अंतर है, अर्थात् इसके बजाय
RunRCall को RunRCall कहा जाता है।
इस फ़ंक्शन के बीच का अंतर यह है कि यह एक परिणाम लौटा सकता है ( रिटर्न (...) को अनदेखा नहीं किया गया है), और न केवल किसी प्रकार के कोड को निष्पादित करें। यद्यपि जो लोग प्रक्रिया और कार्य की परिभाषा से परिचित हैं, उनके लिए यह अंतर समझ में आता है।
इसके अलावा, GetRApply फ़ंक्शन नाम के साथ पैरामीटर के बाद, उन कोशिकाओं की श्रेणी को इंगित करना भी आवश्यक है जहां फ़ंक्शन ऑपरेशन के दौरान प्राप्त मान प्रदर्शित किए जाएंगे।
इस दृष्टिकोण के पेशेवरों और विपक्ष पिछले एक के समान हैं।

निष्कर्ष

इन VBA प्रक्रियाओं को अंजाम देने के बाद, हमारी परीक्षा पत्र इस तरह दिखता है:

लेख में, मैंने वीबीए से आर कोड को निष्पादित करने के लिए सबसे उपयोगी विकल्प दिखाने की कोशिश की। इसके अलावा, इन सभी तरीकों के फायदे और नुकसान को संकुचित रूप में वर्णित किया गया है। यह भी कहना होगा कि RExcel बिना VBA के काम कर सकता है।
यह ध्यान दिया जाना चाहिए कि रुंटफेस इंटरफ़ेस के सभी फ़ंक्शन नहीं दिखाए गए हैं , लेकिन यह सामग्री मास्टर कार्यों को संभव बना देगी जो न्यूनतम समय के साथ वर्णित नहीं हैं।
प्रक्रियाओं के साथ फाइल GitHub पर मुझसे ली जा सकती है ।