r - 如何在两个不同类别之间绘制 facet_wrap 中的国家/地区？

Question

我使用 facet_wrap 绘制了六个国家/地区的估计值。我想加一层，把国家分成两组a和 b同时保留 facet_wrap 选项。这意味着我希望看到两组中每个国家/地区分开的地块a和 b .
这是所有国家在一起时的情节:

df %>%
  ggplot(aes(x= estimate, y=term)) +
  geom_point(mapping=aes(x=estimate, y=term)) +
  facet_wrap( ~ cntry,  strip.position = "bottom") 

我尝试使用 ggforce 将它们分开.正如我们所看到的，它实际上确实将它们分开了，但实际上所有国家都混合在一个图中。有没有办法让每个国家在两个不同的群体中单独绘制？
这是代码和情节:

df %>%
  ggplot(aes(x= estimate, y=term)) +
  geom_point(mapping=aes(x=estimate, y=term)) +
  facet_wrap( ~ cntry,  strip.position = "bottom") +
  ggforce::facet_row(vars(cat_f), scales = 'free_x', strip.position = 'bottom')

这是数据:

structure(
    list(
        cntry = 
            structure(
                c("Austria", "Belgium", "Italy", "Switzerland", "Spain", "Austria","Belgium", "Italy", "Switzerland", "Spain", "Denmark"),
                format.stata = "%15s"
            ), 
        estimate = 
            structure(
                c(1, 1.5, 2, 1.20000004768372, 1.70000004768372, 4, 5.5, 6, 3, 3.09999990463257, 4.30000019073486), 
                format.stata = "%8.0g"
            ), 
        cat_f = 
            structure(c("Widening gap", 
                "Widening gap", "Widening gap", "Widening gap", "Widening gap", 
                "No change", "No change", "No change", "No change", "No change", 
                "No change"), 
                format.stata = "%13s"
            ), 
        term = 
            structure(c("2009", "2009", "2009", "2009", "2009", "2008", "2008", "2008", "2008", "2008", "2008"), 
                format.stata = "%15s"
            )
    ),
    row.names = c(NA, -11L), 
    class = "data.frame"
)

Answer 1

我不明白预期的输出；这是你想要做的吗？

library(tidyverse)
df <- structure(list(cntry = structure(c("Austria", "Belgium", "Italy", 
                                   "Switzerland", "Spain", "Austria", "Belgium", "Italy", "Switzerland", 
                                   "Spain", "Denmark"), format.stata = "%15s"), estimate = structure(c(1, 
                                                                                                       1.5, 2, 1.20000004768372, 1.70000004768372, 4, 5.5, 6, 3, 3.09999990463257, 
                                                                                                       4.30000019073486), format.stata = "%8.0g"), cat_f = structure(c("Widening gap", 
                                                                                                                                                                       "Widening gap", "Widening gap", "Widening gap", "Widening gap", 
                                                                                                                                                                       "No change", "No change", "No change", "No change", "No change", 
                                                                                                                                                                       "No change"), format.stata = "%13s"), term = structure(c("2009", 
                                                                                                                                                                                                                                "2009", "2009", "2009", "2009", "2008", "2008", "2008", "2008", 
                                                                                                                                                                                                                                "2008", "2008"), format.stata = "%15s")), row.names = c(NA, -11L
                                                                                                                                                                                                                                ), class = "data.frame")
df %>%
  ggplot(aes(x= estimate, y=term)) +
  geom_point() +
  facet_grid(cols = vars(cat_f), rows = vars(cntry))