使用 ggplot2 生成雷达图

Question

为了便于重现，您可以在此处下载数据。它的结构是：

> str(data)
'data.frame':   30 obs. of  4 variables:
 $ Count: num  -15.26 NaN NaN -7.17 -49.37 ...
 $ X1   : Factor w/ 1 level "Mean": 1 1 1 1 1 1 1 1 1 1 ...
 $ X2   : Factor w/ 10 levels "DC1","DC10","DC2",..: 1 1 1 3 3 3 4 4 4 5 ...
 $ X3   : Factor w/ 3 levels "SAPvsSH","SAPvsTD6",..: 1 2 3 1 2 3 1 2 3 1 ...

我运行这个ggplot图表：

ggplot(data=data,  aes(x=X2, y=Count, group=X3, colour=X3)) + 
  geom_point(size=5) + 
  geom_line() + 
  xlab("Decils") + 
  ylab("% difference in nº Pk") + 
  ylim(-50,25) + ggtitle("CL")  + 
  geom_hline(aes(yintercept=0), lwd=1, lty=2) + 
  scale_x_discrete(limits=c(orden_deciles))

有了这个结果：

该图表表示 SH 和 TD6 之间的差异百分比 SAP（它是水平黑线，分别以红色和绿色表示）和 TD6 之间的差异百分比 SH（在这种情况下也由水平黑线表示，但现在为蓝色）。我使用了十个变量：DC1:DC10.

我想将此图表转换为雷达图表。我尝试使用ggradaror ggRadar，但没有成功。像这样的事情将是惊人的：

水平黑线应该是完美的圆形，就像上图中红线和蓝线之间的圆圈一样。理想情况下，DC1 应该向北放置，顺时针方向。

有什么想法或建议吗？

Answer 1

感谢@DJack，我在这里发布了结果+ coord_polar()：

这是最终的代码：

ggplot(data=data,  aes(x=X2, y=Count, group=X3, colour=X3)) + 
  geom_point(size=5) + 
  geom_line() + 
  xlab("Decils") + 
  ylab("% difference in nº Pk") + 
  ylim(-50,25) + ggtitle("CL")  + 
  geom_hline(aes(yintercept=0), lwd=1, lty=2) + 
  scale_x_discrete(limits=c(orden_deciles)) +
  coord_polar()