Rで解析：ggplot2の学習に便利かも「ggghost」パッケージ

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

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

###データ例の作成#####
n <- 50
TestData <- data.frame("Group" = sample(paste0("Group", 1:3), n, replace = TRUE),
                          "Data1" = sample(rnorm(10), n, replace = TRUE))
########

#ggghostオブジェクトの作成:%g&lt;%コマンド
#ggghostオブジェクトはlist class
TestPlot %g&lt;% ggplot(TestData, aes(x = Group, y = Data1, fill = Group))
TestPlot <- TestPlot +
  geom_boxplot() +
  labs(title = "Test ggplot") +
  geom_jitter(col = "red")

#プロット
TestPlot
#ggghostオブジェクトの内容確認
#コマンドで表示するにはcombine = TRUEを追加
summary(TestPlot)
[[1]]
ggplot(TestData, aes(x = Group, y = Data1, fill = Group))
[[2]]
geom_boxplot()
[[3]]
labs(title = "Test ggplot")
[[4]]
geom_jitter(col = "red")

#ggplotオブジェクトを削除:-コマンド
#geom_jitterを削除
TestPlot - geom_jitter()
#titleを削除
TestPlot - labs(title)

#プロット内容をGifアニメで出力:reanimateコマンド
reanimate(TestPlot, "TestPlot.gif")