Rで解析：パワーポイントで編集可能な図を出力！「rvg」パッケージ

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

###データ例の作成#####
#officerパッケージがなければインストール
if(!require("officer", quietly = TRUE)){
  install.packages("officer");require("officer")
}
#ggh4xパッケージがなければインストール
if(!require("ggh4x", quietly = TRUE)){
  install.packages("ggh4x");require("ggh4x")
}
#tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}

set.seed(1234)
n <- 50
TestData <- tibble(Group = sample(paste0("Group ", 1:2),
                                  n, replace = TRUE),
                   SubGroup = sample(paste0("SubGroup ", 1:3),
                                     n, replace = TRUE),
                   Data_X = 1:n,
                   Data_Y = rnorm(n))

#########################################
###「ggh4x」パッケージを利用して作図#####
#########################################
#https://www.karada-good.net/analyticsr/r-753/
#各コマンドのstripオプションに体裁を適応する:strip_themedコマンド
TestStrip <- strip_themed(
  #水平方向の体裁
  #listで各ラベルの色を設定可能:fill,color
  background_x = 
    list(element_rect(fill = "dodgerblue"),
         element_rect(fill = "green"),
         element_rect(fill = "white")),
  text_x = elem_list_text(colour = "black",
                          face = "bold"),
  #by_layer_xオプション:FALSE:異なる要素を個々に適応
  by_layer_x = FALSE,
  #垂直方向の体裁
  background_y = elem_list_rect(
    fill = c("gold", "red")
  ),
  text_y = elem_list_text(angle = c(0, 45)),
  #by_layer_yオプション:FALSE:異なる要素を個々に適応
  by_layer_y = TRUE
)

#プロット;BasePlotに保存する
Ggh4xPlot <- ggplot(TestData, aes(x = Data_X,
                                  y = Data_Y,
                                  color = Group)) +
  geom_point() +
  theme(axis.line = element_line(colour = "black")) +
  facet_grid2(rows = vars(Group), cols = vars(SubGroup),
              scales = "fixed", space = "fixed",
              axes = "margins", remove_labels = "none",
              strip = TestStrip)

#########################################
###「ggplot2」パッケージを利用して作図###
#########################################
BoxPlot <- ggplot(data = TestData,
                  mapping = aes(x = Group,
                                 y = Data_Y,
                                 fill = Group)) +
  geom_boxplot()
########

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

#########################################
###パワーポイントに挿入##################
#########################################

#グラフの変換:dmlコマンド
#ggplot以外の作図コマンドを指定:codeオプション
TestPlot <- dml(code = plot(TestData$Data_X, TestData$Data_Y))
#ggplotオブジェクトを指定:ggobj
TestGGobj <- dml(ggobj = Ggh4xPlot)

###「officer」パッケージのコマンドで埋め込む
#パワーポイントを新規作成:read_pptxコマンド
NewPPT <- read_pptx()
#スライド追加:add_slideコマンド
NewPPT <- add_slide(NewPPT, layout = "Title and Content",
                    master = "Office Theme")
#スライドに図を追加:ph_withコマンド
NewPPT <- ph_with(NewPPT, value = TestPlot,
                  location = ph_location_left())
NewPPT <- ph_with(NewPPT, value = TestGGobj,
                  location = ph_location_right())
#作業フォルダにパワーポイントを保存
print(NewPPT, target = "NewPPT.pptx")

########

#########################################
###エクセルに挿入########################
#########################################

###「officer」パッケージのコマンドで埋め込む
#エクセルを新規作成:read_xlsxコマンド
#NewXLSX <- read_xlsx()
#シートを追加
#NewXLSX <- add_sheet(NewXLSX, label = "てすと")
##「rvg」パッケージ
#シートに図を追加:xl_add_vgコマンド;
#設定しても"Feuil1"シートが追加されます
#ggplot以外の作図コマンドを指定:codeオプション
#NewXLSX <- xl_add_vg(NewXLSX, sheet = "てすと",
#                     code = plot(TestData$Data_X, TestData$Data_Y), 
#                     width = 5, height = 5, left = 1, top = 2 )
#ggplotオブジェクトを指定:ggobj
#NewXLSX <- xl_add_vg(NewXLSX, sheet = "てすと",
#                     code = print(Ggh4xPlot), 
#                     width = 5, height = 5, left = 2, top = 2 )
#作業フォルダにエクセルを保存
#print(NewXLSX, target = "NewXLSX.xlsx")
########