Как построить коробчатые диаграммы для каждой категориальной переменной с другой категориальной переменной в R

Question

Я пытаюсь использовать этот кусок кода для создания графика в R. Я хочу получить один кадр для каждой переменной в Offensive_Statistic с блокпостами для каждой переменной в Jet_Lag_boolean, представляющими распределения в Measure

    ggplot(data=df_off_plots, aes(y=Jet_Lag_boolean, x=Measure)) + geom_boxplot() +
  xlab("Measurement Value")+
  facet_wrap( ~ Offensive_Statistic, scales="free_y")+
  theme_bw() + ylab(" Number of Time Zones Crossed")  + coord_flip()

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

Я добавляю воспроизводимый набор данных:

Data <- data.frame(
  Measure = sample(0:999),
  Jet_Lag_boolean = sample(c("1", "0"), 1000, replace = TRUE),
  Offensive_Statistic = sample(c('OPA', 'OA', 'SLG'), 1000, replace = TRUE)
)

Я получаю ту же ошибку:

Answer 1

Вы получили x & y заказов назад

library(ggplot2)

ggplot(data = Data, aes(y = Measure, x = Jet_Lag_boolean)) +
  geom_boxplot() +
  # geom_jitter() +
  facet_wrap(~ Offensive_Statistic, scales = "free_y") +
  theme_bw() + 
  # coord_flip() +
  ylab("Measurement Value") +
  xlab("Number of Time Zones Crossed")

^{Создано в 2019-05-18 с помощью пакета представ. (v0.3.0)}