r - R：ggplot 使用 facet_wrap 和 coord_flip 重新排序 x 轴

Question

我有两个数据框，我想使用 facet_wrap 将它们一起绘制，如下所示：

# create data frames    
d = data.frame(
      f = rep(c("f1", "f2"), each = 4),
      x = rep(c("a", "b", "c", "d"), 2),
      y = c(0, 2, 3, 3, 2, 1, 0, 6))
    
# plot ggplot
ggplot(d, aes(x, y)) +
  geom_col() +
  facet_wrap(~ f) +
  coord_flip() 

结果：

两个图共享它们的 x 轴，我将其翻转到一边。但是，x 轴的顺序遵循字母顺序。这不是我想要的。相反，我想使用以下从上到下的顺序手动订购 x 轴：“a”、“c”、“d”、“b”。

我尝试通过以下代码对 x 轴值进行预排序，但效果为零：

d2 = d[order(c("a", "a", "c", "c", "d", "d", "b", "b")),] 

ggplot(d2, aes(x, y)) +
  geom_col() +
  facet_wrap(~ f) +
  coord_flip() 

还有很多其他问题，人们想使用不同的顺序分别重新排序所有图的 x 轴，例如这里，但我想对所有图使用相同的顺序一次完成所有这些。有谁知道如何在保持简单的同时做到这一点？

Answer 1

您需要将您的转换x为 afactor并手动输入值。在这种情况下，由于您的轴被翻转，您需要将列表放入...翻转。

library(tidyverse)

d = data.frame(
  f = rep(c("f1", "f2"), each = 4),
  x = rep(c("a", "b", "c", "d"), 2),
  y = c(0, 2, 3, 3, 2, 1, 0, 6))

d$x <- factor(d$x, levels= c('b','d','c','a'))

# plot ggplot
ggplot(d, aes(x, y)) +
  geom_col() +
  facet_wrap(~ f) +
  coord_flip()