Rで解析：ステキな円グラフが作成できるかも？「patternplot」パッケージ

円グラフを作成するコマンドやパッケージは複数存在していますが、手軽に斜線等をグラフ部分に設定できるのは珍しいと思います。

紹介はしませんが、塗りの代わりに画像を配置する「imagepie」コマンドが収録されています。気になる方はパッケージヘルプを確認してください。

なお、コマンドで使用している色は、「札幌の景観色70色」から選択しました。意外と閲覧数が多い記事なので参考までに紹介します。
https://www.karada-good.net/analyticsr/r-255/

パッケージバージョンは0.1。windows 10のR version 3.3.2で動作を確認しています。

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
install.packages("patternplot")

実行コマンド

詳細はコマンド、パッケージのヘルプを確認してください。

#パッケージの読み込み
library("patternplot")

###データ例の作成#####
TestData <- data.frame(Group = c("A", "B", "C", "D"),
                       Value = c(25, 30, 15, 30),
                       Label = paste(c("A", "B", "C", "D"),
                                     c(25, 30, 15, 30), "%", sep = ""))
#####

###プロット前の事前準備#####
#データ毎の罫線パターンを指定
#罫線パターンは13種類指定が可能
#blank, bricks, circles1, circles2, crosshatch,
#dots, grid, hlines, nelines, nwlines,
#shells, vlines, waves
#線種をランダムに指定
PiePlotData <- cbind(TestData,
                     Pattern = sample(c("blank", "bricks", "circles1", "circles2", "crosshatch",
                                        "dots", "grid", "hlines", "nelines", "nwlines",
                                        "shells", "vlines", "waves"), size = nrow(TestData),
                                      replace = FALSE))
#パターンの線色を指定
PiePlotData <- cbind(PiePlotData,
                     PatCol = I(c("#a8b0c5", "#c3aab0", "red", "#3a3f3f")))


#塗色を指定
PiePlotData <- cbind(PiePlotData,
                     BackCol = I(c("#dfcdd1", "#e0f3ea", "#fbf1f0", "#dbd3a7")))

#Pieチャートの作成:patternpieコマンド
#グループを指定:groupオプション
#値を指定,必ず合計は100:pctオプション
#グラフラベルを指定:labelオプション
#パターンを指定:pattern.typeオプション
#パターン線の太さ:pattern.line.sizeオプション
#枠線の太さ:frame.sizeオプション
patternpie(group = PiePlotData[, 1],
           pct = PiePlotData[, 2],
           label = PiePlotData[, 3],
           pattern.type = PiePlotData[, 4],
           label.size = 4,
           label.distance = 1.2, pixel = 1,
           pattern.line.size = 0.3, frame.size = 1.5)

###パターンの線色,塗色を指定する場合#####
#パターンの線色を指定:pattern.colorオプション
#塗色を指定:background.colorオプション
patternpie(group = PiePlotData[, 1],
           pct = PiePlotData[, 2],
           label = PiePlotData[, 3],
           pattern.type = PiePlotData[, 4],
           pattern.color = PiePlotData[, 5],
           background.color = PiePlotData[, 6],
           frame.color = "#ceaaaa",
           label.size = 4,
           label.distance = 1.2, pixel = 1,
           pattern.line.size = 0.3, frame.size = 1.0)

出力例

・Pieチャートの作成

・パターンの線色,塗色を指定する場合

あなたの解析がとっても楽になりますように！！