迁移数据的玫瑰图

Question

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

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

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))

它给了我这个输出图。



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


它似乎放置的角度不正确？知道我做错了什么吗？

Answer 1

虽然MLavoie“打败了我”了20分钟，但我认为可以通过使用NISTunits来增加一些可读性。包裹:

library(ggplot2)
library(NISTunits)

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

testsum$angle = NISTradianTOdeg(testsum$angle)

ggplot(testsum, aes(x = angle, y = displacement)) +
  coord_polar(theta = "x", start = NISTdegTOradian(-90), direction = 1) +
  geom_bar(stat = "identity",
           aes(color = Group, fill = Group),
           width = 1) +
  scale_x_continuous(breaks = seq(0, 360, 10), limits = c(0, 360))

结果:



夹下半部分检查 this answer.