Rで解析:エクセルへの表出力が簡単です「tablaxlsx」パッケージ

エクセルファイルの操作にオススメな「openxlsx」パッケージと連携して、簡単に表をシートへ書き込めます。本パッケージの利用で「openxlsx」パッケージがもっと便利になります。

なお、「openxlsx」パッケージはJAVAを利用していないのでデータサイズが大きくともエラーを起こさずに読み書きが可能なパッケージです。パッケージの使用方法は下記記事を参考にしてください。

・Rで解析：セル体裁！大きなデータも大丈夫！エクセル操作の「openxlsx」パッケージ
https://www.karada-good.net/analyticsr/r-338/

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

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

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

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

実行コマンド

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

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

###openxlsx&#12497;&#12483;&#12465;&#12540;&#12472;#####
#&#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, sheetName = "TEST")
#####

#&#12471;&#12540;&#12488;&#12395;&#26528;&#32218;&#12434;&#25551;&#20889;:bordear&#12467;&#12510;&#12531;&#12489;
#&#23550;&#35937;&#12471;&#12540;&#12488;&#12434;&#25351;&#23450;:hoja&#12458;&#12503;&#12471;&#12519;&#12531;
#&#26528;&#32218;&#24038;&#19978;&#37096;&#12398;&#34892;&#20301;&#32622;:fila&#12458;&#12503;&#12471;&#12519;&#12531;
#&#26528;&#32218;&#24038;&#19978;&#37096;&#12398;&#21015;&#20301;&#32622;:columna&#12458;&#12503;&#12471;&#12519;&#12531;
#&#26528;&#32218;&#24038;&#19978;&#37096;&#12363;&#12425;&#12398;&#24133;:ancho&#12458;&#12503;&#12471;&#12519;&#12531;
#&#26528;&#32218;&#24038;&#19978;&#37096;&#12363;&#12425;&#12398;&#39640;&#12373;:alto&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12473;&#12479;&#12452;&#12523;&#35373;&#23450;:estilo&#12458;&#12503;&#12471;&#12519;&#12531;
#createStyle&#12467;&#12510;&#12531;&#12489;&#12391;&#35373;&#23450;
#&#32218;&#12398;&#20301;&#32622;:border&#12458;&#12503;&#12471;&#12519;&#12531;;
#"Top","Bottom","Left","Right","TopBottom","LeftRight",
#"TopLeftRight","TopBottomLeftRight"&#12398;&#35373;&#23450;&#12364;&#21487;&#33021;
#&#32218;&#12398;&#31278;&#39006;:borderStyle&#12458;&#12503;&#12471;&#12519;&#12531;;
#"thin","medium","dashed","thick","double","hair","mediumDashed",
#"dashDot","mediumDashDot","dashDotDot","mediumDashDotDot","slantDashDot"&#12398;&#35373;&#23450;&#12364;&#21487;&#33021;
#&#33394;&#12398;&#25351;&#23450;;borderColour&#12458;&#12503;&#12471;&#12519;&#12531;
bordear(wb, hoja = "TEST", fila = 3, columna = 2,
        ancho = 5, alto = 4,
        estilo = createStyle(border = "TopLeftRight",
                             borderStyle = c("double", "dashed"),
                             borderColour = c("red", "blue")))

###&#12487;&#12540;&#12479;&#12434;&#26360;&#12365;&#36796;&#12416;&#38555;&#12395;&#32218;&#12434;&#36861;&#35352;&#12377;&#12427;#####
###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 10
TestData <- data.frame(Group = sample(paste0("Group ", 1:4), n, replace = TRUE),
                              Data = sample(0:100, n, replace = TRUE))
########

#escribirTabla&#12467;&#12510;&#12531;&#12489;
#&#12487;&#12540;&#12479;&#34892;&#21517;&#12398;&#26377;&#28961;:cabecerasFila&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12487;&#12540;&#12479;&#21015;&#21517;&#12398;&#26377;&#28961;:limpiarColumnas&#12458;&#12503;&#12471;&#12519;&#12531;
#&#32619;&#32218;&#12398;&#35373;&#23450;:bordes&#12458;&#12503;&#12471;&#12519;&#12531;;&#20840;&#12390;&#12398;&#12458;&#12503;&#12471;&#12519;&#12531;&#12434;&#35373;&#23450;&#12375;&#12390;&#12356;&#12414;&#12377;
escribirTabla(tabla = TestData, wb, hoja = "TEST", fila = 10, columna = 2,
              limpiarFilas = FALSE, cabecerasFila = FALSE, limpiarColumnas = TRUE,
              bordes = c("TABLA","CABECERA","CABECERASFILA","CABECERASCOLUMNA","DATOS"))

###openxlsx&#12497;&#12483;&#12465;&#12540;&#12472;#####
#&#20445;&#23384;&#22580;&#25152;&#12398;&#25351;&#23450;
library("tcltk")
setwd(paste(as.character(tkchooseDirectory(title = "&#12501;&#12457;&#12523;&#12480;&#12434;&#36984;&#25246;"), sep = "", collapse ="")))
#&#12527;&#12540;&#12463;&#12502;&#12483;&#12463;&#12398;&#20986;&#21147;:saveWorkbook&#12467;&#12510;&#12531;&#12489;
saveWorkbook(wb, file = "TEST.xlsx", overwrite = TRUE)
########

出力例

なお、実行コマンドでは表のみがシートに書き込まれます。

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