R：如何更改一次创建的每个雷达图的参数

Question

我正在创建五个雷达图：

library(fmsb)

plottm <- data.frame(clust = 1:5, 
                 Off = c(3,4,2,2,3), 
                 D_Eff = c(5,3,1,3,1), 
                 turn = c(1,1,1,1,1), 
                 Opp_Off = c(5,3,1,5,1), 
                 Opp_Def = c(4,3,3,1,1))
par(mar=c(2,2,2,2))
layout(matrix(1:5, ncol = 5))
lapply(1:5, function(x){
  radarchart(rbind(rep(1,5), rep(5,5), plottm[x,-1]), pfcol = '328', pcol = 'black', title = 'TM', plwd = 3)
})

目前每个图都有相同的参数。我想了解如何更改每个图的参数。我希望能够为每个绘图设置标题、绘图数据颜色和多边形颜色。

如果可能的话，我还想更改平均绘图数据最小的绘图的线宽。在这种情况下，它将是情节五。

地块五的地块数据为c(3,1,1,1,1)，均值为1.4，最小。

如果需要更多信息，请告诉我任何帮助。

Answer 1

看来你们关系还不错。我稍微修改了你的代码：

library(fmsb)

plottm <- data.frame(clust = 1:5, 
                     Off = c(3,4,2,2,3), 
                     D_Eff = c(5,3,1,3,1), 
                     turn = c(1,1,1,1,1), 
                     Opp_Off = c(5,3,1,5,1), 
                     Opp_Def = c(4,3,3,1,1))
par(mar=c(2,2,2,2))
layout(matrix(1:5, ncol = 5))

colours <- c("white", "blue", "orange", "red", "green")
titles <- c("Tm1", "Tm2", "Tm3", "Tm4", "Tm5")
widths <- c(1, 3, 5, 8, 10)
myWidths <- widths[order(rowSums(plottm[, -1]), decreasing= T)]
lapply(1:5, function(x){
  radarchart(rbind(rep(1,5), rep(5,5), 
                   plottm[x,-1]), 
                   pfcol = '328', pcol = colours[x], title = titles[x], plwd = myWidths[x])
})

结果是这样的：

R：如何更改一次创建的每个雷达图的参数

R: How to change the arguments of each individual radarplot that are created all at once

plot

r

lapply

radar-chart