Почему Radarchart() создает пустые графики

Question

Я пытаюсь построить несколько радарных графиков, но я потратил целый день на поиск, и я, похоже, не понимаю, где я получаю неправильный код, так как получаю пустые графики. Я использовал library(fmsb)Мои данные как

df<-data.frame(
site.spp=c("G.E", "G.R", "N.E", "N.R","W.R"),
am1=c(11.17, 62.71, 14, 17, 23),
am2=c(5.75,62.9,20.18,18,8.375),
pm1=c(16.14, 53.77, 21.75, 53, 25.67),
pm2=c(20, 52.5, 34.2, 23.38, 4.75)
)

Я попытался установить поля графа, а затем запустить цикл.

par(mar=c(2, 1, 2, 1))
layout(matrix(1:6, ncol=3)) #draw 4 plots to device

lapply(1:5, function(i) { 
  radarchart(rbind(rep(1,6), rep(0,6), df[i,-1]))
})

Я получаю только пустые графики без отображения моих данных. Кто-нибудь поможет этому новичку?

Answer 1

Я нашел решение, я просто не устанавливал диапазоны для моего графика правильно,

Так что это работает отлично, я изменяю диапазон графиков с rep (0-6) на rep(0-70), чтобы охватить диапазон моих данных. Я думал, что это может помочь другим новичкам, как я!

lapply(1:5, function(i) { 
  radarchart(rbind(rep(70,4), rep(0,4), df[i,-1]))
})