आर का उपयोग करके एक आरेख में योजना तथ्य, गतिकी और लाभ

हर बार पिछले वर्ष के वित्तीय परिणामों को संक्षेप में प्रस्तुत किया जाता है और एक उपयुक्त प्रस्तुति तैयार की जा रही है, लोग एक आरेख पर मुख्य संख्याओं को फिट करने के बारे में पहेली बनाते हैं। एक नियम के रूप में, संगठन की गतिविधियों का दायरा, संक्षेप में, मुख्य वित्तीय संकेतकों के विश्लेषण के साथ शुरू होता है, प्रत्येक व्यवसाय क्षेत्रों के लिए अलग से:

• साल के अंत में कारोबार (वास्तविक आंकड़े);
• पूर्ण वर्ष के लिए पहले से स्थापित योजनाएं (कार्यान्वयन के विश्लेषण के लिए);
• एक साल पहले कारोबार (गतिशीलता को समझने के लिए);
• लाभप्रदता।

मानक बार चार्ट, जिसे एक्सेल में व्हीप्ड किया जा सकता है, इसे हल्के ढंग से डालने के लिए देता है, काफी स्पष्ट परिणाम नहीं है। उदाहरण के लिए, यदि किसी व्यवसाय में चार दिशाएँ हैं, तो आरेख पर 16 आसन्न कॉलम दिखाई देंगे, और कोई व्यक्ति अगड़े और पिछड़े को भ्रमित करने के लिए अस्वीकार्य हो सकता है।

R से परिचित पेशेवर, ggplot2 का उपयोग प्रोग्रामेटिक रूप से वांछित आरेख बनाने के लिए कर सकते हैं, उदाहरण के लिए, जैसे कि यहाँ। उदाहरण के लिए, 2012 के आंकड़े यूनिलीवर की वार्षिक रिपोर्ट से लिए गए हैं। नियोजित संकेतक सार्वजनिक डेटा से संबंधित नहीं हैं, इसलिए मुझे उन्हें "पिछले वर्ष + 5%" के स्तर पर, निश्चितता के लिए, अपने सिर से आविष्कार करना था।

मूल संख्याएं एक्सेल में हैं और इस तरह दिखती हैं (लाखों यूरो में डेटा):



RStudio में निर्मित आरेख इस प्रकार है:



इंटुइटनेस के लिए चार्ट की जांच करें, और संख्याओं को देखे बिना मान लें कि कौन सा संकेतक चार्ट के किस तत्व से मेल खाता है, और स्पष्टीकरण का पालन करेगा।



यह विचार है कि मुख्य पैरामीटर - टर्नओवर - को रंग से भरे स्तंभों के रूप में दिखाया जाना चाहिए, पिछले साल का संकेतक (अंतिम वर्ष) - एक समोच्च के रूप में, जो "सलाखों" के रूप में नेत्रहीन पीछे, नियोजित संकेतक (पूर्वानुमान) और लाभप्रदता के रूप में है (अधिक सटीक रूप से) विपरीत खर्च है) - एक छोटा सा निशान।

Excel से डेटा पढ़ने के लिए, XLConnect पैकेज का उपयोग करें। एक्सेल फ़ाइल से, निर्दिष्ट शीट से, एक नामित तालिका को आर में लोड किया गया है।

चार्ट के लिए रंग यूनिलीवर कॉर्पोरेट रंग तालिका से लिए गए हैं।

तो कोड

require(XLConnect) require(data.table) require(ggplot2) require(scales) indata <- readTable(loadWorkbook("Unilever.xlsx"), sheet = "FinResults", table = "Unilever2012", useCachedValues = TRUE) finreport <- data.table(indata)[, list( Segment = reorder(Segment, -Turnover), Cost = (Turnover - Profit), Forecast, Turnover, LastYear )] turnover_format = function(...){ function(x) paste("€B ", format(x/1000, ..., nsmall = 1L, scientific = FALSE, trim = TRUE)) } chart <- ggplot(finreport, aes(x = Segment)) + geom_bar(aes(y = LastYear), stat = "identity", color = "#004976", fill = "white", width = 0.9) + geom_bar(aes(y = Turnover), stat = "identity", color = "white", fill = "#0085CA", width = 0.6) + geom_crossbar(aes(ymin = Forecast, ymax = Forecast, y = Forecast), color = "#ED8800", width = 0.4, size = 0.7) + geom_point(aes(y = Cost), shape = 25, color = "#cedc00", fill = "white") + scale_y_continuous(breaks = pretty_breaks(20), labels = turnover_format()) + theme_bw() + theme ( panel.border = element_blank() , axis.line = element_line() , axis.title.x = element_blank() , axis.title.y = element_blank() , axis.text = element_text( size = 13, color = "#3C1053") ) print(chart)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

स्रोत: Univeler वार्षिक रिपोर्ट और लेखा 2012 , पृष्ठ 92।