Есть ли способ использовать векторы для определения порядка меток оси x и цветов графика при использовании facet_wrap в ggplot2?

Я хотел бы сделать 3 графика с помощью facet_wrap, где я мог бы установить порядок оси x на основе myOrder и цвета на основе myColours. У меня есть следующее data.frame:

Cell <- c("AAA", "AAA", "AAA", "AAA", "AAA", "AAA", "AAA", "AAA", "AAA", 
      "AAA", "ABB", "ABB", "ABB", "ABB", "ABB", "ABB", "ABB", "ABB", 
      "ABB", "ABB", "ACB", "ACB", "ACB", "ACB", "ACB", "ACB", "ACB", 
      "ACB", "ACB", "ACB", "BAA", "BAA", "BAA", "BAA", "BAA", "BAA", 
      "BAA", "BAA", "BAA", "BAA", "BCA", "BCA", "BCA", "BCA", "BCA", 
      "BCA", "BCA", "BCA", "BCA", "BCA", "BCC", "BCC", "BCC", "BCC", 
      "BCC", "BCC", "BCC", "BCC", "BCC", "BCC", "CAA", "CAA", "CAA", 
      "CAA", "CAA", "CAA", "CAA", "CAA", "CAA", "CAA", "CCC", "CCC", 
      "CCC", "CCC", "CCC", "CCC", "CCC", "CCC", "CCC", "CCC", "CBA", 
      "CBA", "CBA", "CBA", "CBA", "CBA", "CBA", "CBA", "CBA", "CBA")
Mean <- c(8, 11, 37, 3, 30, 8, 38, 50, 9, 31, 27, 41, 16, 
      29, 4, 29, 28, 22, 48, 36, 13, 46, 21, 41, 38, 21, 
      26, 27, 49, 4, 38, 44, 49, 48, 32, 3, 6, 25, 33, 
      9, 9, 6, 8, 43, 21, 44, 41, 49, 32, 35, 40, 2, 41, 
      34, 22, 12, 0, 21, 39, 30, 49, 26, 26, 39, 4, 13, 
      18, 12, 9, 29, 24, 40, 38, 17, 40, 13, 30, 8, 9, 
      11, 40, 19, 46, 6, 49, 38, 16, 1, 34, 22)
Type <- c("1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", 
      "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", 
      "1", "1", "1", "1", "1", "2", "2", "2", "2", "2", "2", "2", "2", 
      "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", 
      "2", "2", "2", "2", "2", "2", "2", "2", "2", "3", "3", "3", "3", 
      "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", 
      "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3")
TesT <- data.frame(Cell,Mean, Type)

Я пытался построить эти данные, используя ggplot со следующим кодом:

myOrder <- c("AAA", "ACB", "ABB", "BCA", "BAA", "BCC", "CBA", "CAA", "CCC")
myColours <- c("red", "blue", "green", "red", "blue", "green", rep("grey", 3))

ggplot(TesT, aes(x = Cell, y = Mean, fill = Cell)) + 
  theme_bw() +
  stat_boxplot(geom = "errorbar") +
  geom_boxplot(colour = "black") +
  scale_x_discrete(breaks = myOrder, labels = myOrder) +
  scale_fill_manual(limits = myOrder, values = myColours) + 
  facet_wrap(~Type, scales = "free_x") +
  scale_shape()

Вот что я получаю:

Моя проблема в том, что мне не удается получить ось x в правильном порядке (порядок в myOrder). Единственный способ, которым мне удалось это сделать, — изменить перерывы на пределы (scale_x_discrete(limits = myOrder, labels = myOrder)). Однако, когда я это делаю, я получаю все возможные категории x на всех графиках:

Я потратил довольно много времени на поиск ответа здесь и в Google, но, похоже, ничто не решает мою проблему. У кого-нибудь есть предложение?