Rで解析：エクセルへの枠線や表の書き込みが簡単です！「tablaxlsx」パッケージ

openxlsxパッケージを利用した、セルの枠線や表の書き込みが便利なパッケージの紹介です。簡単に枠線や表をエクセルに書き込むことができます。

Rからエクセルを操作するパッケージにはreadxlやXLConnectがありますが、本パッケージで利用しているopenxlsxは便利かと思います。

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

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

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

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

実行コマンド

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

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

###openxlsx&#12497;&#12483;&#12465;&#12540;&#12472;&#12434;&#21033;&#29992;#####&#12371;&#12371;&#12363;&#12425;
#&#12527;&#12540;&#12463;&#12502;&#12483;&#12463;&#12398;&#20316;&#25104;:createWorkbook&#12467;&#12510;&#12531;&#12489;
wb <- createWorkbook()
#&#12527;&#12540;&#12463;&#12471;&#12540;&#12488;&#12398;&#20316;&#25104;:addWorksheet&#12467;&#12510;&#12531;&#12489;
addWorksheet(wb,"&#12390;&#12377;&#12392;")
###&#12371;&#12371;&#12414;&#12391;#####

#tablaxlsx&#12434;&#21033;&#29992;&#12375;&#12390;&#26528;&#32218;&#12434;&#25551;&#20889;:bordear&#12467;&#12510;&#12531;&#12489;
#&#12471;&#12540;&#12488;&#21517;&#12434;&#25351;&#23450;:hoja&#12458;&#12503;&#12471;&#12519;&#12531;
#&#26528;&#32218;&#12398;&#38283;&#22987;&#34892;:fila&#12458;&#12503;&#12471;&#12519;&#12531;
#&#26528;&#32218;&#12398;&#38283;&#22987;&#21015;:columna&#12458;&#12503;&#12471;&#12519;&#12531;
#&#26528;&#32218;&#12398;&#38283;&#22987;&#28857;&#12363;&#12425;&#12398;&#27178;&#24133;:ancho&#12458;&#12503;&#12471;&#12519;&#12531;
#&#26528;&#32218;&#12398;&#38283;&#22987;&#28857;&#12363;&#12425;&#12398;&#39640;&#12373;:alto&#12458;&#12503;&#12471;&#12519;&#12531;
#&#26528;&#32218;&#12398;&#12473;&#12479;&#12452;&#12523;&#12434;&#35373;&#23450;:estilo&#12458;&#12503;&#12471;&#12519;&#12531;&#12392;createStyle&#12467;&#12510;&#12531;&#12489;
#createStyle&#35373;&#23450;&#12399;openxlsx&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;createStyle&#12467;&#12510;&#12531;&#12489;&#12434;&#21442;&#29031;
bordear(wb, hoja = "&#12390;&#12377;&#12392;", fila = 3, columna = 2, ancho = 5, alto = 4, 
        estilo = createStyle(border = "topleftbottomright", 
                             borderStyle = "double", borderColour = "blue4"))
bordear(wb, hoja = "&#12390;&#12377;&#12392;", fila = 8, columna = 2, ancho = 5, alto = 4, 
        estilo = createStyle(border = "topleftbottomright", 
                             borderStyle = "thin", borderColour = "red"))
bordear(wb, hoja = "&#12390;&#12377;&#12392;", fila = 3, columna = 8, ancho = 5, alto = 4, 
        estilo = createStyle(border = "bottomtop", 
                             borderStyle = "thin", borderColour = "blue4"))
bordear(wb, hoja = "&#12390;&#12377;&#12392;", fila = 8, columna = 8, ancho = 5, alto = 4, 
        estilo = createStyle(border = "bottomtop", 
                             borderStyle = "double", borderColour = "red"))

###&#12487;&#12540;&#12479;&#12398;&#26360;&#12365;&#36796;&#12415;#####
#&#12486;&#12473;&#12488;&#12487;&#12540;&#12479;&#12398;&#20316;&#25104;
TestData <- matrix(runif(20), 4, 5)
#&#12487;&#12540;&#12479;&#12398;&#26360;&#12365;&#36796;&#12415;:escribirTabla&#12467;&#12510;&#12531;&#12489;
#&#12487;&#12540;&#12479;&#12398;&#25351;&#23450;:tabla&#12458;&#12503;&#12471;&#12519;&#12531;
escribirTabla(tabla = TestData, wb, hoja = "&#12390;&#12377;&#12392;", fila = 13, columna = 1)

###openxlsx&#12497;&#12483;&#12465;&#12540;&#12472;&#12434;&#21033;&#29992;#####&#12371;&#12371;&#12363;&#12425;
#&#12501;&#12449;&#12452;&#12523;&#12434;&#30452;&#25509;&#12456;&#12463;&#12475;&#12523;&#12391;&#38283;&#12367;:openXL&#12467;&#12510;&#12531;&#12489;
openXL(wb)
###&#12371;&#12371;&#12414;&#12391;#####

エクセルへの書き込み例

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