Rで解析：みんなでパーティー？ビンゴカードの作成「bingo」パッケージ

ちょっとした休憩時間やパーティーに便利かもしれない、ビンゴカードを作成するパッケージの紹介です。なお、保存先は「tcltk」パッケージを利用してGUIで指定できるようにしています。

パッケージバージョンは0.0.0.9007。windows11のR version 4.2.2で確認しています。

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

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

#パッケージのインストール
install.packages("devtools")
devtools::install_github("jennybc/bingo")

実行コマンド

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

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

###&#12499;&#12531;&#12468;&#12487;&#12540;&#12479;&#12398;&#20316;&#25104;#####
BingoData <- sample(1:100, 25, replace = FALSE)
#&#12487;&#12540;&#12479;&#12398;&#30906;&#35469;,&#30058;&#21495;&#12398;&#38283;&#31034;&#12395;&#20351;&#12358;&#12392;&#12356;&#12356;&#12363;&#12418;
BingoData
[1] 87 32 15 73 40 95 56 59 25 10 88 66 13 81 30 53 64 92 52 71 61 28 49 68 16
########

#&#12499;&#12531;&#12468;&#12459;&#12540;&#12489;&#12398;&#20316;&#25104;:bingo&#12467;&#12510;&#12531;&#12489;
#&#20316;&#25104;&#26522;&#25968;&#12398;&#25351;&#23450;:n_cards&#12458;&#12503;&#12471;&#12519;&#12531;;&#20006;&#12403;&#38918;&#12364;&#12521;&#12531;&#12480;&#12512;&#12395;&#20316;&#25104;&#12373;&#12428;&#12414;&#12377;
#&#12459;&#12540;&#12489;&#20869;&#23481;&#12398;&#25351;&#23450;:bs&#12458;&#12503;&#12471;&#12519;&#12531;;n*n&#20197;&#19978;&#12398;&#12487;&#12540;&#12479;&#12364;&#24517;&#35201;
#&#12469;&#12452;&#12474;&#12398;&#25351;&#23450;:n&#12458;&#12503;&#12471;&#12519;&#12531;
BingoCard <- bingo(n_cards = 3, words = BingoData, n = 5)

###&#12499;&#12531;&#12468;&#12459;&#12540;&#12489;&#12434;pdf&#12391;&#20445;&#23384;########
#&#20445;&#23384;&#20808;&#12398;&#25351;&#23450;:dir&#12458;&#12503;&#12471;&#12519;&#12531;
#&#25991;&#23383;&#12469;&#12452;&#12474;&#12398;&#25351;&#23450;:fontsize&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12501;&#12449;&#12452;&#12523;&#21517;&#12398;&#25351;&#23450;:pdf_base&#12458;&#12503;&#12471;&#12519;&#12531;
library("tcltk")
plot(BingoCard, dir = 
       paste(as.character(tkchooseDirectory(title = "&#12501;&#12457;&#12523;&#12480;&#12434;&#36984;&#25246;"),
                          sep = "", collapse ="")),
     fontsize = 14, pdf_base = "bingo-")
########

出力例

少しでも、あなたの解析が楽になりますように！！