df <- data.frame(x = seq(0,359,20),y = 1)

ggplot(df, aes(x+10,y, hjust=1)) +
  geom_col(colour = "black",fill = "grey") +
  geom_label(aes(x=x+5,label = x)) +
  scale_x_continuous(breaks = c(0,90,180,270),limits = c(0,360)) +
  coord_polar()