在“R”中制作圆形条形图

Question

我正在尝试重新创建这个圆形条形图：

唯一的区别是数据、标签以及我希望图表上有 160 根柱线这一事实。 我已经查看了 R Graph Gallery 中的代码，但我是一个完整的新手，不明白如何从他们拥有的变成我想要的。

在制作此条形图或将我指向可以帮助我的地方的任何帮助将不胜感激

这是数据它显示增加值每小时（£）

Answer 1

这种问题的问题在于，如果没有看到您的数据，几乎不可能展示您可以使用自己的数据集的解决方案。 用 160 条柱创建这样的可视化当然是可能的，因为我可以用一些虚拟数据来展示：

set.seed(1)

df <- data.frame(x = as.factor(1:160), y = sort(runif(160))/2 + 0.5,
                 group = as.factor(sample(5, 160, TRUE)))

library(ggplot2)

ggplot(df, aes(x, y, fill = group)) + 
  geom_col(width = 0.5) + 
  geom_hline(yintercept = 0.25, color = "#0b192d", size = 0.1) +
  geom_hline(yintercept = 0.5, color = "#0b192d", size = 0.1) +
  geom_hline(yintercept = 0.75, color = "#0b192d", size = 0.1) +
  scale_y_continuous(limits = c(-0.5, 1)) +
  geom_text(label = "Average\nWorking Week\n(Hours)",
            x = 0, y = 0, color = "white", vjust = 1.7, size = 5,
            check_overlap = TRUE, fontface = "bold") +
  coord_polar() +
  theme_dark() +
  scale_fill_manual(values = c("#6a4199", "#ea5f3c", "#f69a40", 
                               "#2dbed3", "#ef0000")) +
  theme(panel.background = element_rect(fill = "#0b192d"),
        axis.text.x = element_text(colour = "white", size = 4),
        panel.grid = element_blank(),
        legend.position = "none",
        plot.background = element_rect(fill = "#0b192d"),
        axis.title = element_blank(),
        axis.text.y = element_blank())

如您所见，问题之一是要在此类图周围放置 160 个条形，文本标签必须很小，因此无法读取，除非您要将其打印在非常大（A2 或更大）的海报上。