Rスタープロット - どのように私は星のフレームを描くことができますか？

Question

私が使用したコードは次のとおりです。

mycolors <- colorRampPalette(c("blue", "orangeRed"))(n) 
palette(mycolors) 
stars(mydata[, 1:8], len = 0.9, key.loc = c(10, 1.5),nrow=2,ncol = 10, main = "", draw.segments = TRUE, cex=0.8,lty=1,lwd=0.1) 

my plot is

referencing Yang et al.,2015

ので、私はどのように私はちょうどヤンの図のように破線内の各花びらのフレームを追加できることを知っていただきたいと思いますet al。、2015？コードは何ですか？
私は非常に感謝しています！

Answer 1

ggplot2ライブラリと可能な解決策：

library(ggplot2) 
library(reshape2) 

例データ：

df=data.frame(livestock=0.75, 
       tea=0.5, 
       crops=1, 
       carb=0.25, 
       aqua=0.66) 
molten=melt(df) 
> molten 
    variable value 
1 livestock 0.75 
2  tea 0.50 
3  crops 1.00 
4  carb 0.25 
5  aqua 0.66 

プロット：

ggplot(molten, aes(x=seq(1,360,by=360/nrow(molten)),y=value)) + 
    geom_bar(width=360/nrow(molten),stat='identity',position = "stack",colour=("grey90"),aes(fill=variable)) + 
    geom_hline(yintercept = 1 ,linetype="dotted")+ 
    geom_vline(xintercept = seq(37,396,by=360/nrow(molten)),linetype="dotted")+ 
    coord_polar()+ 
    theme_void() 

います：

を