Бокплоты внутри скрипичного сюжета с огранкой и заливкой 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`)

Answer 1

Получил желаемый результат, включив настройку уклонения для скрипок и коробок.Спасибо за помощь!

ggplot(aes(y = HGT.Diff,
       x = `Platform`,
       fill = Metric,color=Metric),
       data = dta_compile) +
geom_violin(position=position_dodge(),draw_quantiles=c(0.5)) +
geom_boxplot(width=0.1,color="black",position = position_dodge(width =0.9))+
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`)

Пересмотренный сюжет для скрипки