我想创建一个条形图，其中x轴的离散值将被分组到子组中（见下面的代码），当我已经在另一个变量上刻面时。我已经使用ggh4x来接近。但我还没有完全做到：

set.seed(9) 
dfx <- data.frame(
    x = rep(LETTERS[1:2], 50),
    Group = rep(c("Group 1", "Group 2", "Group 3"), c(33, 33, 34)),
    value = rpois(100, 10),
    facet_var = sample(rep(c("A", "B", "C", "D"),c(25,25,25,25)))
)

ggplot(dfx, aes(paste0(x, "&", Group), value)) +
    geom_col() +
    facet_wrap( ~ facet_var, ncol=2) +
    guides(x = ggh4x::guide_axis_nested(delim = "&"))

但我希望它将我的“Group”列分组在一起，以便它看起来更像我在这个示例中看到的：

df <- data.frame(
  x = LETTERS[1:16],
  group = rep(c("Group 1", "Group 2", "Group 3"), c(5, 3, 8)),
  value = rpois(16, 10)
)

ggplot(df, aes(paste0(x, "&", group), value)) +
  geom_col() +
  guides(x = ggh4x::guide_axis_nested(delim = "&"))

有人能帮忙吗？