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

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

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

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

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

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

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

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

実行コマンド

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

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("patternplot")

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
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 = ""))
#####

###&#12503;&#12525;&#12483;&#12488;&#21069;&#12398;&#20107;&#21069;&#28310;&#20633;#####
#&#12487;&#12540;&#12479;&#27598;&#12398;&#32619;&#32218;&#12497;&#12479;&#12540;&#12531;&#12434;&#25351;&#23450;
#&#32619;&#32218;&#12497;&#12479;&#12540;&#12531;&#12399;13&#31278;&#39006;&#25351;&#23450;&#12364;&#21487;&#33021;
#blank, bricks, circles1, circles2, crosshatch,
#dots, grid, hlines, nelines, nwlines,
#shells, vlines, waves
#&#32218;&#31278;&#12434;&#12521;&#12531;&#12480;&#12512;&#12395;&#25351;&#23450;
PiePlotData <- cbind(TestData,
                     Pattern = sample(c("blank", "bricks", "circles1", "circles2", "crosshatch",
                                        "dots", "grid", "hlines", "nelines", "nwlines",
                                        "shells", "vlines", "waves"), size = nrow(TestData),
                                      replace = FALSE))
#&#12497;&#12479;&#12540;&#12531;&#12398;&#32218;&#33394;&#12434;&#25351;&#23450;
PiePlotData <- cbind(PiePlotData,
                     PatCol = I(c("#a8b0c5", "#c3aab0", "red", "#3a3f3f")))


#&#22615;&#33394;&#12434;&#25351;&#23450;
PiePlotData <- cbind(PiePlotData,
                     BackCol = I(c("#dfcdd1", "#e0f3ea", "#fbf1f0", "#dbd3a7")))

#Pie&#12481;&#12515;&#12540;&#12488;&#12398;&#20316;&#25104;:patternpie&#12467;&#12510;&#12531;&#12489;
#&#12464;&#12523;&#12540;&#12503;&#12434;&#25351;&#23450;:group&#12458;&#12503;&#12471;&#12519;&#12531;
#&#20516;&#12434;&#25351;&#23450;,&#24517;&#12378;&#21512;&#35336;&#12399;100:pct&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12464;&#12521;&#12501;&#12521;&#12505;&#12523;&#12434;&#25351;&#23450;:label&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12497;&#12479;&#12540;&#12531;&#12434;&#25351;&#23450;:pattern.type&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12497;&#12479;&#12540;&#12531;&#32218;&#12398;&#22826;&#12373;:pattern.line.size&#12458;&#12503;&#12471;&#12519;&#12531;
#&#26528;&#32218;&#12398;&#22826;&#12373;:frame.size&#12458;&#12503;&#12471;&#12519;&#12531;
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)

###&#12497;&#12479;&#12540;&#12531;&#12398;&#32218;&#33394;,&#22615;&#33394;&#12434;&#25351;&#23450;&#12377;&#12427;&#22580;&#21512;#####
#&#12497;&#12479;&#12540;&#12531;&#12398;&#32218;&#33394;&#12434;&#25351;&#23450;:pattern.color&#12458;&#12503;&#12471;&#12519;&#12531;
#&#22615;&#33394;&#12434;&#25351;&#23450;:background.color&#12458;&#12503;&#12471;&#12519;&#12531;
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チャートの作成

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

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