从重新排列因子级别停止scale_y_discrete

Question

我有一个带有刻面的图，我想强制y轴包括所有因子水平，尽管缺少数据。然而，某些东西不起作用，y轴标签变得混乱并且奇怪地展开。

set.seed(10)
data = data.frame(
  myfacet = rep(c("A", "B", "C"), each = 3),
  x = sample(c(1,2,3), 9, replace  = T),
  y = c("Monday", NA, NA, "Monday", NA, NA, NA, NA, NA))

data$y = factor(data$y, 
         levels = c("Monday", "Tuesday", "Wednesday"), ordered = TRUE)

ggplot(data, aes(x = x, y = y)) + 
  geom_point() +
  scale_y_discrete(limits = levels(data$y)) +
  facet_grid(myfacet ~.)

导致此行为的原因是什么？如何在保持正确顺序的同时包括每个方面的所有级别？