R中的雷达图 - 轴标签

如何解决R中的雷达图 - 轴标签

我按照 this tutorial 在 R 中创建了一个雷达图。我采用了教程中的最后一个图表（在引入 ggplot 之前），其中比较了不同情况下的“平均”配置文件。我按照教程建议的方式设置了我的数据，但我希望在“方面”具有相同的最大值和最小值，因此我将其固定为整体最小值和整体最大值。>

数据为：

plot_dat_sameaxis <- structure(list(pol_demo = c(30,8.97007879362473,11.0085519474347,8.53571259274138,11.2005365744873,8.71195021047779,9.7436080644818,10.399697356034,7.20225368831287,7.19846449682537),pol_demo_online = c(30,9.98019651039727,11.2121387931753,10.3544128960645,12.9789806839878,10.9067032818662,10.0244169530494,10.0412566166562,9.15927081711705,7.82259925448071),pol_post_online = c(30,20.4990544471384,22.7970962322516,20.1055172731424,24.8459684814346,20.1141933651088,15.3678777437076,21.1504832571486,23.2280265873052,21.5491092364356
                                                                                                      ),pol_petition = c(30,22.4291973933483,19.4974718426517,19.2697196682787,24.3023818310391,19.5669419418758,22.3942976741465,18.8415089525096,25.983262468582,28.842684781718),pol_cntct_polit = c(30,10.7532765882399,10.815449497248,12.7134692760538,7.23126866059413,11.2047622893094,11.4708587897729,9.33114630516778,9.60620574567012,10.6909820573769),pol_party = c(30,8.74403983440336,7.77898781617009,9.02365487435948,7.5573005918663,9.55902871932231,10.3628637158336,9.8557831406188,7.67193215789611,7.08669448709292),pol_other = c(30,11.949458207316,9.43079720266811,12.5014350323826,9.03630081302701,12.9221923230867,11.5716131017492,12.1911878955728,14.0101290367095,11.8331630213764),pol_demo_illegal = c(30,6.67469822553204,7.45950666840047,7.49607838697717,2.84726236356375,7.01422786895309,9.0644639572591,8.18893647629205,3.13891949840709,4.97630266469401
                                                                                                                                                                                                                                                                                                        )),row.names = c("Max","Min","Average","Only corona freedom","Only corona economic","Corona both","Corona and other","Only climate prot.","Only racism","Both racism and climate","Other"),class = "data.frame")

我将教程中的轴自定义与最后一个绘图代码相结合。所以我首先从网站上获取函数 create_beautiful_radarchart：

create_beautiful_radarchart <- function(data,color = "#00AFBB",vlabels = colnames(data),vlcex = 0.7,caxislabels = NULL,title = NULL,...){
  radarchart(
    data,axistype = 1,# Customize the grid
    cglcol = "grey",cglty = 1,cglwd = 0.8,# Customize the axis
    axislabcol = "grey",# Variable labels
    vlcex = vlcex,vlabels = vlabels,caxislabels = caxislabels,title = title,...
  )
}

那么创建图形的代码是：

opar <- par() 
# Define settings for plotting in a 3x4 grid,with appropriate margins:
par(mar = rep(0.8,4))
par(mfrow = c(3,3))
# Produce a radar-chart for each student
for (i in 4:nrow(plot_dat_sameaxis)) {
  create_beautiful_radarchart(
    plot_dat[c(1:3,i),],pfcol = c("#99999980",NA),pcol= c(NA,2),plty = 1,plwd = 1,title = row.names(plot_dat_sameaxis)[i],caxislabels = c(0,7.5,15,22.5,30)
  )
}

我通过设置 caxislabels 向量值将 caxislabels 中的值设置为四个相等的段。首先我想有六个以避免小数，但我得到了一个错误。如果有人可以提供帮助，那也将不胜感激。

然而，更大的问题是，在我运行此代码后，我在图表上获得的值不会反映数据集中的 average 值（中间的阴影区域）。例如，根据图表，pol_party 的平均值应该是大约 15，但在数据集中实际上是 8.74。不明白哪里来的不一样，但是轴标签明显不对。

所以我的问题是，任何人都可以帮助以反映基础数据集的方式整理轴标签，并且可能还有六个而不是五个中断？提前致谢！

R中的雷达图 - 轴标签

如何解决R中的雷达图 - 轴标签

相关推荐