r - ファセットと塗りつぶし R を使用したバイオリン プロット内の箱ひげ図

Question

各バイオリン プロット内にボックス プロットを含むバイオリン プロットを作成しようとしています。現在、箱ひげ図は、塗りつぶしのグループ化を組み合わせながら、x 変数に基づいて作成されています。各 x 変数の塗りつぶしグループごとに箱ひげ図が必要です。

助けてくれてありがとう！

ggplot(aes(y = HGT.Diff,
           x = `Platform`,
           fill = Metric,
           color = Metric),
       data = dta_compile) +
  geom_violin(draw_quantiles = c(0.5)) +
  geom_boxplot(width = 0.1, fill = "grey", color = "black") +
  ylim(0,1) +
  labs(title = "Comparing Ground Filters",
       x = "Flight Date", 
       y = "Absolute Difference to Manual HGT Measurmenets (m)") +
  theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust=.4)) +
  facet_grid(`Flight.Date` ~ `GroundFilter`)