Rで解析：記事更新。エクセルの作成と保存が楽ちんです。「XLConnect」パッケージの紹介

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

#actionオプション;"save:保存場所の指定(初期値)", "read:読み込むエクセルファイルのパスを取得"
SelectXLS <- function(action = "save"){
  
  #ライブラリの読み込み
  library("tcltk")
  
  switch(action, save = {
    #エクセルファイルの保存場所を指定
    setwd(paste(as.character(tkchooseDirectory(title = "エクセルファイルの保存場所を選択"),
                             sep = "", collapse ="")))},
    read = {
      #読み込むエクセルファイルのパスをGetXLSXPathに格納
      assign("GetXLSXPath", paste0(as.character(tkgetOpenFile(title = "エクセルファイルを選択",
                                                              filetypes = '{"エクセルファイル" {".xlsx" ".xls"}}',
                                                              initialfile = c("*.xlsx", "*.xls")))),
             env = .GlobalEnv)})
}

#使用例
#エクセルファイルの保存先指定
SelectXLS("save")
#エクセルファイルの保存:saveWorkbookコマンド
saveWorkbook(XLData)
#作業フォルダの確認
#getwd()

#読み込むエクセルファイルのパスをGetXLSXPathに格納
#キャンセルでGetXLSXPathは空になります
SelectXLS("read")
#エクセルファイルの読み込み:readWorksheetFromFileコマンド
ReadData <- readWorksheetFromFile(GetXLSXPath, sheet = 1)
#ファイルパスの表示
#GetXLSXPath
########

#パッケージの読み込み
library("XLConnect")

###エクセルファイルの出力####
#データ例の作成
TestData <- data.frame(Group = I(paste0("TESTてすと", 1:10)),
                          Data = 1:10)

#空のエクセルオブジェクト(以下XLData)を作成:loadWorkbookコマンド
#loadWorkbook("ファイル名.xlsx or .xls", create = ファイルの作成:TRUE or FALSE)
XLData <- loadWorkbook("TEST.xlsx", create = TRUE)

#XLDataにシートを作成:createSheetコマンド
#createSheet(エクセルオブジェクト, name = シート名)
createSheet(XLData, name = "てすと")

#シートタブに色を設定:setSheetColorコマンド
#colorはXLCオブジェクトで指定します, 省略表記でも可能です
#記事最下部XLCオブジェクト一覧を参照してください
setSheetColor(XLData, sheet = 1, color = 14)

#作成したシートにデータを書き込む:writeWorksheetコマンド
#writeWorksheet(エクセルオブジェクト, data = 書き込むデータ,
#               sheet = データを書き込むシート名 or シート番号,
#               startRow = データ書き込み開始列:初期値は1,
#               startCol = データ書き込み開始行:初期値は1,
#               header = データ列名を書き込むかの指定:TRUE or FALSE)
writeWorksheet(XLData, data = TestData, sheet = 1,
               startRow = 3, startCol = 3, header = TRUE)

#セルパターン、塗りつぶしの色を設定
#設定はXLCオブジェクトで指定します
#createCellStyleコマンドでオブジェクトを作成します
Cstyle = createCellStyle(XLData, name = "色")
#setFillPatternコマンドでパターンを指定します
setFillPattern(Cstyle, fill = XLC$FILL.FINE_DOTS)
#setFillForegroundColorコマンドでセルの塗りつぶしの色を設定します
setFillForegroundColor(Cstyle, color = XLC$COLOR.GREEN)
#setCellStyleコマンドでセルに適応します
setCellStyle(XLData, sheet = 1, row = 4:10, col = 3,
             cellstyle = Cstyle)

###こんなこともできます#####
#例えばData列の2の倍数を赤く塗る
#createCellStyleコマンドでオブジェクトを作成します
Cstyle2 = createCellStyle(XLData, name = "2の倍数")
#setFillForegroundColorコマンドでセルの塗りつぶしの色を設定します
setFillForegroundColor(Cstyle2, color = XLC$COLOR.RED)
#setFillPatternコマンドでべた塗りを設定
setFillPattern(Cstyle2, fill = XLC$FILL.SOLID_FOREGROUND)
#setBorderコマンドで枠線を描写
#sideオプション:"bottom", "left", "right", "top", "all"
setBorder(Cstyle2, side = "all", type = XLC$BORDER.MEDIUM, color = XLC$COLOR.CORAL)

#元データで2の倍数の位置をwhichで取得後、データの書き込み開始行「3」を追加して塗りつぶし範囲を調整
RowIndex <- which(TestData[, 2] %% 2 == 0) + 3
#セルを塗りつぶし
if (length(RowIndex) != 0){
  setCellStyle(XLData, sheet = 1, row = RowIndex, col = 4,
               cellstyle = Cstyle2)}
########

#オートフィルタを設定:setAutoFilterコマンド
setAutoFilter(XLData, sheet = 1, reference = "D3:D13")

#セルの幅を設定:setColumnWidthコマンド
setColumnWidth(XLData, sheet = 1, column = 3, width = -1)

#セルの固定:createFreezePaneコマンド
#固定位置は行列番号で指定
createFreezePane(XLData, sheet = 1, colSplit = 6, rowSplit = 2)

#指定したセル範囲に名前をつける:createNameコマンド
#createName(エクセルオブジェクト, name = 範囲名, fomula = 範囲を指定:シート名!$行$列)
createName(XLData, name = "てすと", formula = "てすと!$C$4:$D$5", overwrite = TRUE)

###グラフを作成しエクセルに貼り付ける:addImageコマンド#####
#createNameコマンドと組み合わせます
#作業フォルダを取得
WDPath <- getwd() 
#一時フォルダに切り替え
setwd(tempdir())
#図の描写、ggplot2でも可能です
png("TEST.png", width = 400, height = 400)
plot(TestData[, 2], main = "TEST", col = "red", pch = 17)
dev.off()
#グラフの貼り付け位置を指定
createName(XLData, name = "グラフ", formula = "てすと!$F$3", overwrite = TRUE)
#addImageコマンドで追加:nameはcreateNameで指定した名前となります
addImage(XLData, filename = "TEST.png", name = "グラフ", originalSize = TRUE)
#作業フォルダをエクセルファイル保存先に戻す
setwd(WDPath)
########
#おまけ:欠損値に値を代入するsetMissingValueコマンド#
#setMissingValue(エクセルオブジェクト, value = 代入する値)

#エクセルファイルの保存:saveWorkbookコマンド
saveWorkbook(XLData)

###エクセルファイルの読み込み#####
SelectXLS("read")

#エクセルファイルの読み込み:readWorksheetFromFileコマンド
#readWorksheetFromFile(ファイルの場所, sheet = 読み込むシートを指定)
#startRow , startCol , endRow , endColオプションで読み込み範囲を指定できます
ReadData <- readWorksheetFromFile(GetXLSXPath, sheet = 1)
Group  Data
1   TESTてすと1    1
2   TESTてすと2    2
3   TESTてすと3    3
4   TESTてすと4    4
5   TESTてすと5    5
6   TESTてすと6    6
7   TESTてすと7    7
8   TESTてすと8    8
9   TESTてすと9    9
10 TESTてすと10   10

#セル範囲名のデータを読み込み:readNamedRegionFromFileコマンド
ReadData <- readNamedRegionFromFile(GetXLSXPath, name = "てすと", header = FALSE)
Col1 Col2
1 TESTてすと1    1
2 TESTてすと2    2