迁移数据的玫瑰图

我正在尝试创建一个玫瑰图，显示每个细胞子集的平均轨迹角和距离。我希望玫瑰图周围的角度为轨迹角，而图中的条形长度为总位移。

这是每组平均角度和位移的测试数据集。

testsum<-data.frame(Group=c(1,2,3),
                angle=c(0.78,1.04,2.094),
                displacement=c(1.5,2,1))

当我尝试以循环方法绘制此图时，我的图表看起来非常错误。

p1<-ggplot(testsum, aes(x=angle,y=displacement))+
  coord_polar(theta="x",start=0)+
  geom_bar(stat="identity",aes(color=Group,fill=Group),width=.01)+
  scale_x_continuous(breaks=seq(0,360,60))

它为我提供了该图的输出。



根据数据的说明，它应该看起来更像这样(绘制预期的输出)。


似乎是错误地放置了角度？知道我在做什么错吗？

最佳答案

也许您可以尝试以下方法:

testsum$angle_b=180*testsum$angle/pi
#
ggplot(testsum, aes(x=angle_b,y=displacement))+
    geom_bar(stat="identity",aes(color=Group,fill=Group),width=1) +
    scale_x_continuous(breaks=seq(0,360,10), limits=c(0,360)) + coord_polar(direction=1)