ggplot为方位角

Question

我想在r中绘制方位角数据的玫瑰图。我在这篇文章中找到了代码（How to shift bins in a rose diagram using package 'circular' in R）。我设法让代码使用我的数据，但是，我想改进它的外观。具体来说，我希望楔子有黑色寄宿生。我无法想象如何在ggplot2中做到这一点。任何人都有几分钟时间向我展示我将如何做到这一点？提前谢谢。

library(ggplot2)
Degrees <- runif(100, 0, 360)
rose <- ggplot(mapping = aes(x = Degrees)) +
  stat_bin(breaks = (0:8 - 0.5)/8 * 360) +
  scale_x_continuous(
    breaks = 0:7/8*360, 
    labels = c("N", "NE", "E", "SE", "S", "SW", "W", "NW")
    ) +
  coord_polar(start=-pi/8)
rose