小编pr1*_*085的帖子

我最近一直在研究雷达图，并从Erwan Le Pennec找到了大量代码。我进行了一些编辑，但是有一些部分我无法弄清楚如何删除最外面的圆圈，因为它没有定义值。目前，代码正在绘制主要的网格线。我试图欺骗它删除两个轴并且只绘制较小的增量，但是任何一个都有效。

干杯!

这是我的代码：

coord_radar <- function (theta = "x", start = 0, direction = 1) 


 {
        theta <- match.arg(theta, c("x", "y"))
        r <- if (theta == "x") 
            "y"
        else "x"
        ggproto("CordRadar", CoordPolar, theta = theta, r = r, start = start, 
            direction = sign(direction),
            is_linear = function(coord) TRUE)
    }

RadarTheme<-theme(panel.background=element_blank(),
                      plot.title= element_text(size = 25,face=c("bold","italic")),
                      plot.margin = unit(c(2, 2, 2, 2), "cm"),
                      text=element_text(family="Open Sans"), aspect.ratio = 1,
                      legend.position="bottom",legend.title=element_blank(),legend.direction="vertical",
                      strip.text.x = element_text(size = rel(0.8)),
                      axis.text.x = element_text(size = …