radar-chart - 为什么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]))
})