R语言绘图 | 使用ggradar绘制雷达图

准备

#安装包
install.packages("devtools")
devtools::install_github("ricardo-bion/ggradar", dependencies = TRUE)

#加载包
library(ggradar)
library(ggplot2)

#生成数据
dat=data.frame(
  student=paste0("G",1:3),
  A1=c(50,71,99),
  A2=c(90,50,82),
  A3=c(77,90,30),
  A4=c(89,67,47),
  A5=c(90,37,60),
  A6=c(78,60,100)
)
dat

  student A1 A2 A3 A4 A5  A6
1      G1 50 90 77 89 90  78
2      G2 71 50 90 67 37  60
3      G3 99 82 30 47 60 100

函数

grid.min: 网格的最小值

grid.mid: 网格的中间值

grid.max: 网格的最大值

values.radar: 雷达图上显示的数值标签

axis.label.size: 轴标签的大小

axis.line.colour: 轴线的颜色

plot.title: 图表的标题

fill: 是否填充雷达图区域

fill.alpha: 填充的透明度

theme_light(): 使用 light 主题样式

legend.position: 设置图例的位置为顶部

绘图

ggradar(dat,  # 数据集
        values.radar = c("0", "50", "100"), # 显示值
        grid.min = 0,  # 最小值
        grid.mid = 50, # 中间值
        grid.max = 100)#最大值

美化

ggradar(dat,  # 使用 ggradar 函数绘制雷达图，dat 是数据集
        grid.min = 0,  # 网格最小值设为 0
        grid.mid = 50,  # 网格中间值设为 50
        values.radar = c("0","50","100"),  # 设置雷达值为 0、50、100
        grid.max = 100,  # 网格最大值设为 100
        axis.label.size = 5,  # 设置轴标签大小为 5
        axis.line.colour = "black",  # 设置轴线颜色为黑色
        plot.title = "CCC",  # 绘制雷达图，并设置标题为 "CCC"
        fill = TRUE,  # 使用填充
        fill.alpha = 0.3) +  # 设置填充的透明度为 0.3
  theme_light() +  # 使用 light 主题
  theme(plot.title = element_text(size = 15),  # 设置标题文本大小为 15
        axis.text = element_blank(),  # 隐藏轴上的文本
        legend.text = element_text(size = 13),  # 设置图例文本大小为 13
        legend.title = element_text(size = 14),  # 设置图例标题大小为 14
        legend.position = "top")  # 设置图例位置为顶部