Rで解析：プロットをステッカーで表現「hexSticker」パッケージ

「ggplot2」パッケージのプロットや画像ファイルを利用してステッカーを作成するパッケージの紹介です。ステッカーは透過PNGで出力されます。

パッケージバージョンは0.4.9。実行コマンドはwindows 11のR version 4.1.2で確認しています。

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

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

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

コマンドの紹介

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

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

#&#12473;&#12486;&#12483;&#12459;&#12540;&#12398;&#20316;&#25104;:sticker&#12467;&#12510;&#12531;&#12489;
#ggplot2&#12391;&#20316;&#25104;
#ggplot2&#12434;&#35501;&#12415;&#36796;&#12415;
library("ggplot2")
#&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;
n <- 30
TestData <- data.frame(Group = sample(paste0("Group", 1:5), n, replace = TRUE),
                          Data1 = rnorm(n),
                          Data2 = rnorm(n) + rnorm(n) + rnorm(n))
#&#12503;&#12525;&#12483;&#12488;&#12434;&#20316;&#25104;
TestPlot <- ggplot(data = TestData, aes(x = Group, y = Data2, fill = Group)) +
  geom_boxplot(show.legend = FALSE) +
  geom_hexagon()
  theme_void()

#&#12473;&#12486;&#12483;&#12459;&#12540;&#20316;&#25104;:&#12467;&#12510;&#12531;&#12489;
#&#12487;&#12540;&#12479;&#12434;&#25351;&#23450;:subplot&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12473;&#12486;&#12483;&#12459;&#12540;&#12521;&#12505;&#12523;&#12434;&#25351;&#23450;:package&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12473;&#12486;&#12483;&#12459;&#12540;&#12521;&#12505;&#12523;&#12398;&#12501;&#12457;&#12531;&#12488;&#12501;&#12449;&#12511;&#12522;&#12540;:p_family&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12473;&#12486;&#12483;&#12459;&#12540;&#12521;&#12505;&#12523;&#12398;&#12486;&#12461;&#12473;&#12488;&#12469;&#12452;&#12474;:p_size&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12473;&#12486;&#12483;&#12459;&#12540;&#12521;&#12505;&#12523;&#12398;&#12486;&#12461;&#12473;X&#36600;&#20301;&#32622;:p_x&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12473;&#12486;&#12483;&#12459;&#12540;&#12521;&#12505;&#12523;&#12398;&#12486;&#12461;&#12473;Y&#36600;&#20301;&#32622;:p_y&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12487;&#12540;&#12479;&#12398;&#12503;&#12525;&#12483;&#12488;X&#36600;&#20301;&#32622;:s_x&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12487;&#12540;&#12479;&#12398;&#12503;&#12525;&#12483;&#12488;Y&#36600;&#20301;&#32622;:s_y&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12487;&#12540;&#12479;&#12398;&#12503;&#12525;&#12483;&#12488;&#24133;:s_width&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12487;&#12540;&#12479;&#12398;&#12503;&#12525;&#12483;&#12488;&#39640;:s_height&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12473;&#12486;&#12483;&#12459;&#12540;&#12521;&#12505;&#12523;&#33394;:p_color&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12473;&#12486;&#12483;&#12459;&#12540;&#22615;&#12426;&#33394;:h_fill&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12473;&#12486;&#12483;&#12459;&#12540;&#26528;&#32218;&#33394;:h_color&#12458;&#12503;&#12471;&#12519;&#12531;
#&#20445;&#23384;&#12501;&#12449;&#12452;&#12523;&#21517;&#12434;&#25351;&#23450;:filename&#12458;&#12503;&#12471;&#12519;&#12531;;&#12501;&#12449;&#12452;&#12523;&#12399;&#20316;&#26989;&#12501;&#12457;&#12523;&#12480;&#12395;&#20445;&#23384;&#12373;&#12428;&#12414;&#12377;&#12290;
sticker(subplot = TestPlot, package = "hexSticker",
        p_family = "Aller_Rg", p_size = 12, p_x = 1, p_y = 1.4, s_x = 1, s_y = .75,
        s_width = 1.3, s_height = 1, p_color = "#FFCAA7", 
        h_fill = "#FEF9F1", h_color = "red",
        filename = "ggplot2 TEST.png")

#&#30011;&#20687;&#12501;&#12449;&#12452;&#12523;&#12363;&#12425;&#12473;&#12486;&#12483;&#12459;&#12540;&#12434;&#20316;&#25104;
#&#12369;&#12418;&#12398;&#12501;&#12524;&#12531;&#12474;&#12398;&#12469;&#12540;&#12496;&#12523;&#12385;&#12419;&#12435;&#12434;&#21033;&#29992;
#temp&#12501;&#12457;&#12523;&#12480;&#12395;&#12480;&#12454;&#12531;&#12525;&#12540;&#12489;
download.file("https://kemono-friends.jp/wp/wp-content/uploads/2020/12/img_zoo01.png",
              destfile = paste0(tempdir() , ".png"), mode="wb")
#&#12503;&#12525;&#12483;&#12488;
sticker(subplot = paste0(tempdir() , ".png"), package = "&#12369;&#12418;&#12398;&#12501;&#12524;&#12531;&#12474;",
        p_family = "wqy-microhei", p_size = 10, p_x = 1, p_y = 1.65, s_x = 1.0, s_y = .85,
        s_width = 0.5, s_height = 0.5, p_color = "#16ae67", 
        h_fill = "#FDE4C0", h_color = "#76625A",
        filename = "kemono.png")