在ggplot2中绘制带偏移的圆形直方图

Question

我有时间数据，我认为最适合作为极坐标直方图（玫瑰图）。我想最终得到这样的东西：

而不是我得到的：

特别是我想分散小值以使它们更容易看到，但是在极坐标系上，宽度变为零，使得难以阅读。有没有办法使用ggplot来做到这一点？

以下是数据：

   Arrival_h<-c(3,3,4,5,5,6,6,7,7,7,7,8,9,9,9,9,9,9,9,9,10,10,10,10,11,11,11,11,11,12,12,12,12,12,13,13,13,13,14,15,15,16,16,16,16,17,17,17,17,17,17,17,18,18,19,19)
  HKArr<-data.frame(Arrival_h)

Answer 1

我一时兴起决定尝试修改y轴，它解决了问题：

这是一个比我之前没有偏移

更好的布局

p<-ggplot(data=HKArr,aes(x=Arrival_h))+
  geom_histogram(fill='blue',color='black',breaks=c(1:24))+coord_polar()+
  scale_x_continuous("", limits = c(0, 24), 
                     breaks = seq(0, 24), labels = seq(0,24))
p

产生这个：

...添加y偏移量：

p<-ggplot(data=HKArr,aes(x=Arrival_h))+
  geom_histogram(fill='blue',color='black',breaks=c(1:24))+coord_polar()+
  scale_x_continuous("", limits = c(0, 24), 
                     breaks = seq(0, 24), labels = seq(0,24))+
  scale_y_continuous("",limits=c(-2,10))
p

给出了这个，我认为更容易阅读：