Rで作成した図をパワーポイントで出力する【神機能】

Rで作成した図をパワーポイントで出力する【神機能】

このサイトを参考にしました。

パワーポイントでの編集もできるので、神機能だと思います。

上記のサイトにあるlibraryをインストールします（下記引用します。詳しくは上記サイトをご参考ください）。

install.packages("officer")
install.packages("rvg")
install.packages("openxlsx")
install.packages("ggplot2")
install.packages("flextable")
install.packages("xtable")
install.packages("rgl")
install.packages("stargazer")
install.packages("tikzDevice")
install.packages("xml2")
install.packages("broom")
install.packages("devtools")
library(devtools)
devtools::install_github("tomwenseleers/export")

libraryのインストール方法はこちら

練習データを使用し、箱ひげ図を作成します。

練習データはこちら

箱ひげ図の作り方はこちら

library(tidyverse)
g <- ggplot(df, 
           aes(x = factor(Male), y = BMI))+
 labs(x="Male", y="BMI")+
 geom_boxplot(width=0.75, fill = c("#4682B4", "#C71585"))+
 theme_classic()
plot(g)

箱ひげ図が作れたら、graph2ppt()でパワーポイントに出力します。

graph2ppt(x=g, file="box")

file = “ここ” の中に好きな名前をつけてください。

パワーポイントは指定したファイルに出力されます。

こちらの記事もご参考ください。

出力されたパワーポイントを確認できました。

グループ化されているので、解除すればそれぞれ細かく修正できます。

library(tidyverse)
g <- ggplot(df, 
           aes(x = factor(Male), y = BMI))+
 labs(x="Male", y="BMI")+
 geom_boxplot(width=0.75, fill = c("#4682B4", "#C71585"))+
 theme_classic()
plot(g)
graph2ppt(x=g, file="box")