👵🏿 🧜🏼 🖖🏾 Rを使用して1つの図に事実、ダイナミクス、利益を計画する 🍷 🏦 🧟

過去1年間の財務結果が集計され、適切なプレゼンテーションが準備されるたびに、人々は1つの図に主要な数値をどのように当てはめるか迷っています。組織の活動の範囲がどのようなものであれ、原則として、原則として、各事業分野ごとに、主要な財務指標の分析から始まります。

終了した年の売上高（実際の数値）;
完了した年の事前に確立された計画（実装の分析用）。
1年前の売上高（ダイナミクスを理解するため）;
収益性。

Excelでホイップすることができる標準の棒グラフは、あまり明確な結果ではなく、控えめに言ってもわかります。たとえば、ビジネスに4つの方向がある場合、16個の隣接する列が図に表示され、だれかが前後を混同することに慣れていない可能性があります。

Rに精通した専門家は、ggplot2を使用して、たとえば次のようなプログラムで目的の図を作成できます。たとえば、2012年の数値は、ユニリーバの年次報告から取られています。計画された指標は公開データとは関係がないので、「昨年+ 5％」のレベルで明確にするために、頭から発明しなければなりませんでした。

元の数値はExcelにあり、次のようになります（数百万ユーロのデータ）。

RStudioで作成された図は次のとおりです。

チャートの直観性を確認し、数字を見ずに、どのインジケーターがチャートのどの要素に対応するかを想定してください。説明が続きます。

主要なパラメーターである売上高は、色で塗りつぶされた列の形で表示され、昨年のインジケーター（LastYear）-視覚的に背後にある輪郭、「バー」の形で計画されたインジケーター（予測）、および収益性（より正確には、反対は費用です）-小さなマーク。

Excelからデータを読み取るには、XLConnectパッケージを使用します。 Excelファイルから、指定されたシートから、名前付きテーブルがRにロードされます。

チャートの色は、ユニリーバのコーポレートカラーテーブルから取得されます。

だからコード

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 Annual Report and Accounts 2012 、page 92。

Rを使用して1つの図に事実、ダイナミクス、利益を計画する

More articles: