R:如何跨区域可视化给定列中的前 5 个值

Question

这是一个问题，我认为这是一项简单的任务，但仍然是我无法全神贯注的问题。

我想制作一个图，其中列出了给定组织的前五个合作伙伴 pr。区域办事处。 请记住，在我的实际数据中，有 700 多个合作伙伴 5 个区域办事处。

假设我的数据如下所示，我有 8 个合作伙伴值:

Partner <- c(A, B, C, D, E, F, G, A, A, B, B, C, D, E, G, G, H, I, F)
Region_Off <-c(AU, BE, CA, DK, EU, FR, GER, AU, AU , BE, BE, CA, DK, EU, 
GER, GER, HK, IR, FR)

我尝试过的:

Top_Partners <- MY_df %>%
  count(Partner)%>%
  arrange(Partner) %>%
  arrange(n) %>%
  head(n=5) %>%
  facet_wrap(~ Region_Off)

我试过:

Top_Partners <- MY_df %>%
  select(Region_abb, Partner, Context)

dat2 <- as.data.frame(apply(Top_Partners, 2, function (x) sort(x, decreasing = TRUE)[1:5]))

但是，我似乎无法弄清楚如何做这个公关。区域办事处...

然后以某种方式绘制它以制作条形图 - 尽管我不确定在上述解决方案中在哪里绘制函数 geom_bar。

我希望有人能帮助我从这里继续前进。

谢谢

Answer 1

很难回答您的问题，因为您的示例不可重现。我们需要 MY_df 的一个子集并知道 Context 变量是什么。

下面的数据框是你想得到的吗？

set.seed(123)
df <- data_frame(
  Region_Off = sample(c("AU", "BE", "CA", "DK", "EU", "FR", "GER", "HK", "IR"), 500, replace = T),
  Partner = sample(LETTERS[1:8], 500, replace = T)
)

df %>% 
  group_by(Region_Off) %>% 
  count(Partner) %>% 
  arrange(desc(n)) %>% 
  slice(1:5)