R: Как изменить аргументы каждого отдельного радара, которые создаются сразу

Я создаю пять радиолокационных графиков:

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, что является наименьшим значением.

Любая помощь будет оценена, пожалуйста, дайте мне знать, если необходима дополнительная информация.


r plot lapply radar-chart
person Dre    schedule 05.05.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Кажется, вы совсем рядом. Я немного изменил ваш код:

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

Результаты следующие: Индивидуальные атрибуты каждого графика

person Bulat    schedule 05.05.2016