R: Wie die Argumente der einzelnen radarplot zu ändern, die auf einmal erstellt werden

Question

ich fünf Radar Plots erschaffe:

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) 
}) 

Derzeit jede Handlung hat die gleichen Argumente. Ich würde gerne herausfinden, wie man die Argumente für jede Handlung ändert. Ich möchte in der Lage sein, den Titel, die Plotdatenfarbe und die Polygonfarbe für jedes Diagramm festzulegen.

Wenn möglich, würde ich auch gerne die Linienstärke ändern für welche Plot die kleinsten durchschnittlichen Plot Daten hat. In diesem Fall wäre es Handlung fünf.

Die Plotdaten für Plot fünf sind c (3,1,1,1,1), der Mittelwert ist 1,4, was der kleinste ist.

Jede Hilfe wird geschätzt werden bitte lassen Sie mich wissen, wenn weitere Informationen benötigt werden.

Answer 1

Es scheint, dass Sie ziemlich nah sind.

:

dies

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]) 
}) 

Ergebnisse: Ich habe Sie ein wenig Code geändert