从 ggplot2 的构面中删除未使用的因子

Question

我正在尝试找出一种巧妙的方法来从 ggplot2 的方面删除未使用的因素。这是一个最小的例子

# DUMMY DATA
mydf = data.frame(
  x = rpois(6, 25),
  y = LETTERS[1:6],
  cat = c(rep('AA', 3), rep('BB', 3)))

# PLOT IT!
p0 = ggplot(mydf, aes(x = x, y = y)) +
  geom_point() +
  facet_wrap(~ cat, ncol = 1)

从下图中，您可以看到因子 D、E 和 F 被绘制在面 AA 中，尽管事实上没有相应的数据。我想要的是一种从面 AA 中消除 {D, E, F} 以及类似地从面 BB 中消除 {A, B, C} 的方法。

有没有一种巧妙的方法可以做到这一点，或者甚至可以接受黑客攻击。

Answer 1

我想你只需要scales = "free_y":

p0 = ggplot(mydf, aes(x = x, y = y)) +
  geom_point() +
  facet_wrap(~ cat, ncol = 1,scales = "free_y")

p0