Rで解析：QRコードの作成「qrencoder」パッケージ

QRコードを作成するパッケージの紹介です。

パッケージバージョンは0.1.0。windows 7およびOS X 10.11.5のR version 3.3.1で確認しています。

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

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

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

実行コマンド

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

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

#URL&#12398;&#35373;&#23450;
URL <- "https://karada-good.net"

#QR&#12467;&#12540;&#12489;&#12398;&#37197;&#21015;&#20316;&#25104;:qrencode&#12467;&#12510;&#12531;&#12489;
QRCode <- qrencode(URL)
head(QRCode)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
[1,]    1    1    1    1    1    1    1    0    1     1     1     0
[2,]    1    0    0    0    0    0    1    0    1     1     1     0
[3,]    1    0    1    1    1    0    1    0    1     0     0     0
[4,]    1    0    1    1    1    0    1    0    0     0     0     1
[5,]    1    0    1    1    1    0    1    0    0     1     1     1
[6,]    1    0    0    0    0    0    1    0    1     1     0     0
[,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23]
[1,]     1     0     1     0     1     0     1     1     1     1     1
[2,]     0     0     1     0     1     0     1     0     0     0     0
[3,]     0     1     1     1     0     0     1     0     1     1     1
[4,]     0     0     1     0     1     0     1     0     1     1     1
[5,]     0     0     0     1     1     0     1     0     1     1     1
[6,]     0     0     0     1     0     0     1     0     0     0     0
[,24] [,25]
[1,]     1     1
[2,]     0     1
[3,]     0     1
[4,]     0     1
[5,]     0     1
[6,]     0     1

#QR&#12467;&#12540;&#12489;&#12398;&#12521;&#12473;&#12479;&#12540;&#12487;&#12540;&#12479;:qrencode_raster&#12467;&#12510;&#12531;&#12489;
QRRaster <- qrencode_raster(URL)
#&#20869;&#23481;&#30906;&#35469;
QRRaster
class       : RasterLayer
dimensions  : 25, 25, 625  (nrow, ncol, ncell)
resolution  : 0.04, 0.04  (x, y)
extent      : 0, 1, 0, 1  (xmin, xmax, ymin, ymax)
coord. ref. : NA
data source : in memory
names       : layer
values      : 0, 1  (min, max)
#&#12503;&#12525;&#12483;&#12488;
image(QRRaster, asp = 1, col = c("white", "black"),
      axes = FALSE, xlab = "", ylab = "")

出力例

・qrencode_rasterコマンド

少しでも、あなたのウェブや実験の解析が楽になりますように！！