在R中有三个顶点的面包雷达图

我已经创建了下面的情节，它给出了我想要的情节的形状。但是当我把它包起来时，形状不再是三角形，几乎变成了细胞状。刻面后如何保持三角形形状

样本数据：

lvls <- c("a","b","c","d","e","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15")
df <- data.frame(Product = factor(rep(lvls, 3)), 
             variable = c(rep("Ingredients", 20),
                          rep("Defence", 20),
                          rep("Benefit", 20)),
             value = rnorm(60, mean = 5))

然而，这些产品都是相互重叠的，所以理想情况下，我想用贴面包装

ggplot(df,
   aes(x = variable,
       y = value,
       color = Product,
       group = Product)) +
geom_polygon(fill = NA) + 
coord_polar() +
facet_wrap(~Product)

但是当我进行镶嵌面包裹时，形状会变得奇怪的细胞状，而不是三角形（从点到点的直线）。关于如何改变这个输出有什么想法吗

---

谢谢。

您看到的“蜂窝”形状是由“极弧”后面的直线而不是直线造成的，而

geom_polygon

是该规则的唯一例外。显然，刻面恢复到了

coord\u polar

中线条的标准用法。按照上面链接的优秀答案进行操作。谢谢。我正在尝试这一点，但似乎我需要为ggigraph安装依赖项，因为我收到了大量非零条目消息。dependencies=T参数也无法解决此问题。您只需定义自己的

coord\u radar

，而无需安装任何东西。放置

coord\u雷达
ggplot(df,
   aes(x = variable,
       y = value,
       color = Product,
       group = Product)) +
geom_polygon(fill = NA) + 
coord_polar() +
facet_wrap(~Product)