tidyplotsでggplot2のエコシステムを使いグラフをpatchworkで横に並べる

先日この記事を見てtidyplotsを試してるいる最中にグラフを横に並べたくなった。

横に並べるならpatchworkが楽だろうと思い、そのまま使おうとしたところうまく行かなかった。
あれこれ試した結果、以下のようにすると出来たので報告をしておく。

環境

tidyplots 0.1.2
patchwork 1.3.0 

コード

library(tidyplots)
library(patchwork)
# 1つ目のグラフをstudy_plotに入れる
study_plot <- study |>
  tidyplot(x = treatment, y = score, color = treatment) |>
  add_mean_bar(alpha = 0.4) |>
  add_sem_errorbar() |>
  add_data_points_beeswarm()

# 2つ目のグラフをenergy_plotに入れる
energy_plot <- energy |>
  tidyplot(x = year, y = power, color = energy_source) |>
  add_barstack_absolute()

# patchworkでレイアウトを作る
study_plots[[1]] + energy_plots[[1]]

どうやらリストに格納されているのでそこを見ればそのままggplot2のグラフとして見れるようだ。
グラフを格納している変数がchartならchart[[1]]のようにすればggplot2のグラフとして扱える

参考・引用
https://qiita.com/nozma/items/cd98ec7938e0783d5d89
https://qiita.com/nozma/items/4512623bea296ccb74ba
https://qiita.com/bob3bob3/items/a86265703d2979c36dde
https://jbengler.github.io/tidyplots/