Rで解析：データラベルをQRコードに変換だけじゃない！「baRcodeR」パッケージ

データラベルの連続作成だけでなく、作成した全データラベルをQRコードに変換しPDFで保存するコマンドが収録されています。実験サンプルなどの管理に便利だと思います。

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

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

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

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
install.packages("baRcodeR")

実行コマンド

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

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

#&#12521;&#12505;&#12523;&#12398;&#20316;&#25104;:uniqID_maker&#12467;&#12510;&#12531;&#12489;
##&#12467;&#12531;&#12477;&#12540;&#12523;&#12395;&#20837;&#21147;&#12375;&#12394;&#12364;&#12425;&#20316;&#25104;:user&#12458;&#12503;&#12471;&#12519;&#12531;;TRUE/FALSE
uniqID_maker(user = TRUE)
#Please enter string for level: 
#  TEST_
#Please enter the starting number for level (integer): 
#  10
#Enter the ending number for level: 
#  3
#Number of digits to print for level: 
#  3
#     label ind_string ind_number
#1 TEST_010      TEST_        010
#2 TEST_009      TEST_        009
#3 TEST_008      TEST_        008
#4 TEST_007      TEST_        007
#5 TEST_006      TEST_        006
#6 TEST_005      TEST_        005
#7 TEST_004      TEST_        004
#8 TEST_003      TEST_        003

##&#12458;&#12503;&#12471;&#12519;&#12531;&#12391;&#25351;&#23450;&#12375;&#12390;&#20316;&#25104;:string,level,digits&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12521;&#12505;&#12523;&#21517;:string&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12521;&#12505;&#12523;&#30058;&#21495;&#12434;&#25351;&#23450;:level&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12521;&#12505;&#12523;&#30058;&#21495;&#12398;&#26689;&#25968;&#12434;&#25351;&#23450;:digits&#12458;&#12503;&#12471;&#12519;&#12531;
TestData <- uniqID_maker(string = "https://www.karada-good.net/analyticsr/r-",
                         level = seq(600, 700, by = 20),
                         digits = 3)
#&#30906;&#35469;
TestData$label
[1] "https://www.karada-good.net/analyticsr/r-600"
[2] "https://www.karada-good.net/analyticsr/r-620"
[3] "https://www.karada-good.net/analyticsr/r-640"
[4] "https://www.karada-good.net/analyticsr/r-660"
[5] "https://www.karada-good.net/analyticsr/r-680"
[6] "https://www.karada-good.net/analyticsr/r-700"

#list&#12391;&#26465;&#20214;&#12434;&#25351;&#23450;&#12375;&#12390;&#20316;&#25104;:uniqID_hier_maker&#12467;&#12510;&#12531;&#12489;
KARADA <- c("KARADA", 1, 6)
IIMONO <- c("IIMONO", 1, 2)
KARADA_IIMONO <- list(KARADA, IIMONO)
uniqID_hier_maker(hierarchy = KARADA_IIMONO, digits = 1)
#             label  KARADA  IIMONO
#1  KARADA1-IIMONO1 KARADA1 IIMONO1
#2  KARADA1-IIMONO2 KARADA1 IIMONO2
#3  KARADA2-IIMONO1 KARADA2 IIMONO1
#4  KARADA2-IIMONO2 KARADA2 IIMONO2
#5  KARADA3-IIMONO1 KARADA3 IIMONO1
#6  KARADA3-IIMONO2 KARADA3 IIMONO2
#7  KARADA4-IIMONO1 KARADA4 IIMONO1
#8  KARADA4-IIMONO2 KARADA4 IIMONO2
#9  KARADA5-IIMONO1 KARADA5 IIMONO1
#10 KARADA5-IIMONO2 KARADA5 IIMONO2
#11 KARADA6-IIMONO1 KARADA6 IIMONO1
#12 KARADA6-IIMONO2 KARADA6 IIMONO2

#&#12521;&#12505;&#12523;&#12487;&#12540;&#12479;&#12434;QR&#12467;&#12540;&#12489;&#12391;PDF&#12391;&#19968;&#35239;&#20445;&#23384;:create_PDF&#12467;&#12510;&#12531;&#12489;
#QR&#12467;&#12540;&#12489;&#20197;&#22806;&#12391;&#20445;&#23384;:type&#12458;&#12503;&#12471;&#12519;&#12531;;"linear","linear2","matrix"
#&#12456;&#12521;&#12540;&#35330;&#27491;&#20516;&#12398;&#35373;&#23450;:ErrCorr&#12458;&#12503;&#12471;&#12519;&#12531;;&#20302;"L","M","Q","H"&#39640;
#QR&#12467;&#12540;&#12489;&#12398;&#12521;&#12505;&#12523;&#12469;&#12452;&#12474;:Fsz&#12458;&#12503;&#12471;&#12519;&#12531;
create_PDF(Labels = TestData$label,name = "Test",
           type = "matrix", ErrCorr = "Q", Fsz = 10)

出力例

・create_PDFコマンド

Acrobatで300％表示

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