r fmsb包雷达如何反转轴

在本例中，我无法反转轴。我想从图表中间的8开始，然后从顶部的1开始。此时，中间为0，末端为8

库（fmsb）

创建数据：Jonathan高中时注意：

data=as.data.frame(matrix( sample( 1:8 , 10 , replace=T) , ncol=10))
colnames(data)=c("math" , "english" , "biology" , "music" , "R-coding", "data-viz" , "french" , "physic", "statistic", "sport" )

要使用fmsb包，我必须在数据框中添加两行：要在绘图上显示的每个主题的最大值和最小值

data=rbind(rep(8,1) , rep(1,1) , data)

库建议的默认雷达图：

radarchart(data)

定制雷达艺术

radarchart( data  , axistype=1 ,

        #custom polygon
        pcol=rgb(0.2,0.5,0.5,0.9) , pfcol=rgb(0.2,0.5,0.5,0.5) , plwd=4 ,

        #custom the grid
        cglcol="grey", cglty=1, axislabcol="grey", caxislabels=seq(0,8,2), cglwd=0.8,

        #custom labels
        vlcex=0.8
)

---

您似乎只希望对偶数值进行标记，但这样就不会得到1作为轴标记。我将使它从8变为0，而不是从8变为1。您需要做的只是反转指定的轴限制，并反转轴标签

data=as.data.frame(matrix( sample( 1:8 , 10 , replace=T) , ncol=10)) 
    colnames(data)=c("math" , "english" , "biology" , "music" , 
    "R-coding", "data-viz" , "french" , "physic", "statistic", "sport" )

## Changes lower limit to 0
data=rbind(rep(8,1) , rep(0,1) , data)
radarchart(data)

## Reverse max and min (how points will be plotted)
data2 = data
data2[1:2,] = data2[2:1,]

radarchart( data2, axistype=1 ,
        #custom polygon
        pcol=rgb(0.2,0.5,0.5,0.9) , pfcol=rgb(0.2,0.5,0.5,0.5) , plwd=4 ,

        #custom the grid
        cglcol="grey", cglty=1, axislabcol="grey", 

        # Reverse axis labeling
        caxislabels=seq(8,0,-2), cglwd=0.8,

        #custom labels
        vlcex=0.8

)

---

嗨，戈登，欢迎来到SO。请学习如何正确格式化您的帖子：