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

Question

I'm trying to recreate this circular barplot:

The only difference would be the data, labels and the fact that I want 160 bars on my chart. I have looked at the code in R Graph Gallery but I am a complete novice and don't understand how to go from what they have to what I want.

Any help in making this barplot or pointing me somewhere that can help me would be greatly appreciated

This is the Data It shows Gross Value Added per hour (£)

Answer 1

The problem with this kind of question is that, without seeing your data, it is next to impossible to show a solution that you can get working with your own data set. It's certainly possible to create a visualization like this with 160 bars, as I can show with some dummy data:

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())

One of the problems as you can see is that to fit 160 bars around this kind of plot, the text labels have to be tiny, and therefore unreadable unless you are going to print this on a very large (A2 or larger) poster.