Rで解析：エクセルファイルのデータ整理に便利です「xlcutter」パッケージ

整然データ構造でない、エクセルデータを整然データで取得するパッケージの紹介です。整然データの取得は整然データ構造と同じエクセルファイルをテンプレートに使用し、取得データ位置を{{XXX}}と指定します。

整然データ構造でないエクセルの例

テンプレートの例（注意_整然データ構造でないエクセルと同じレイアウトです。）

実行コマンドではフォルダに保存されている「整然データ構造でないエクセル」をtemplate.xlsxで指定したルールでデータを取得するコマンドを紹介します。

パッケージバージョンは0.1.0、実行コマンドはR version 4.2.3で確認しています。

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

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

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

実行コマンド

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

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

###&#12487;&#12540;&#12479;&#12398;&#28310;&#20633;#####
#data_xlsx&#12501;&#12449;&#12452;&#12523;&#12364;&#20445;&#23384;&#12373;&#12428;&#12390;&#12356;&#12427;&#12501;&#12457;&#12523;&#12480;&#12434;&#36984;&#25246;
XLFile <- list.files(as.character(tkchooseDirectory()),
                     pattern = "\\.xlsx$",
                     full.names = TRUE)

#Template_xlsx&#12501;&#12449;&#12452;&#12523;&#12434;&#36984;&#25246;
TempFile <- paste0(as.character(
  tkgetOpenFile(title = "xlsx&#12501;&#12449;&#12452;&#12523;&#12434;&#36984;&#25246;",
                filetypes = '{"xlsx&#12501;&#12449;&#12452;&#12523;" {".xlsx"}}',
                initialfile = c("*.xlsx"))), collapse = " ")
########

#&#21508;data_xlsx&#12434;Template_xlsx&#12398;&#12523;&#12540;&#12523;&#12391;&#12487;&#12540;&#12479;&#12434;&#21462;&#24471;:xlsx_cutter&#12467;&#12510;&#12531;&#12489;
GetData <- xlsx_cutter(data_files = XLFile,
                       template_file = TempFile,
                       marker_open = "{{",
                       marker_close = "}}")
#&#30906;&#35469;
GetData
#       Start   User        End Age             Text
#1 2023.06.11 TEST_1 2023.06.12  25   &#12390;&#12377;&#12392;&#12390;&#12377;&#12392;_1
#2 2023.07.11 TEST_2 2023.07.12  30 &#12363;&#12425;&#12384;&#12395;&#12356;&#12356;&#12418;&#12398;

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