Question

我对fmsb R软件包中的雷达图功能有一个奇怪的问题。我正在尝试使用以下代码为每行创建一个单独的图网格。

avgsol <- avg %>% select(-group)
avgsol <- rbind(rep(100,17) , rep(0,17) , avgsol)
# Prepare color

colors_border=colormap(colormap=colormaps$viridis, nshades=6, alpha=1)
colors_in=colormap(colormap=colormaps$viridis, nshades=6, alpha=0.3)

# Prepare title
mytitle <- c("Baseline", "3Hz", "7Hz", "8Hz", "10Hz", "13Hz", "15Hz","19Hz")

# Split the screen in 6 parts
par(mar=rep(0.8,4))
par(mfrow=c(2,4))

# Loop for each plot
for(i in 1:8){
  
  # Custom the radarChart !
  radarchart( avgsol[c(1,2,i+2),], axistype=0, 
              
              #custom polygon
              pcol=colors_border[i] , pfcol=colors_in[i] , plwd=4, plty=1 , 
              
              #custom the grid
              cglcol="grey", cglty=1, axislabcol="grey", caxislabels=seq(0,20,5), cglwd=0.8,
              
              #custom labels
              vlcex=0.8,
              
              #title
              title=mytitle[i]
  )
}

avg仅包含一行16行的8行数字数据。不确定为什么大部分作品都会失败，但最后一部分会中断。

Plot that I'm getting

Answer 1

发现问题出在我的调色板（colors_border和colors_in）中，所以最后两个条件只是透明地绘制。如果有人遇到与我相同的问题，请添加更改后的代码。本质上，将色图功能设置为仅显示6种颜色，因此其他2种最终变成透明的。

colors_border = colormap（colormap = colormaps $ viridis，nshades = 8，alpha = 1） colors_in = colormap（colormap = colormaps $ viridis，nshades = 8，alpha = 0.3）

fmsb-雷达图功能。在某些雷达图中，网格中缺少多边形

1 个答案: