r - 方位角のローズダイアグラムを作成するggplot

Question

r の方位角データのローズ ダイアグラムをプロットしたいと思います。この投稿でコードを見つけました（R でパッケージ 'circular' を使用してローズ ダイアグラムでビンをシフトする方法）。コードをデータで動作させることができましたが、見た目を改善したいと考えています。具体的には、ウェッジに黒いボーダーが欲しいです。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