求助：如何用R将单行数据绘制成雷达图？尝试fmsb库未成功

问题根源 #

fmsb包的radarchart()函数对输入格式有硬性要求：数据框必须包含两行表头行——第一行是各变量的最大值，第二行是最小值，之后才是待绘制的实际数据行。你当前仅提供了一行数据，不符合函数的输入规范，因此无法生成正确的雷达图。

分步解决方法 #

1. 数据预处理 #

为原始数据补充最大值和最小值行。考虑到你的数据中Acyl Lipid Metabolism Family值（167）远大于其他变量，建议手动调整最大值范围，避免雷达图比例失衡：

library(tibble)
library(fmsb)

# 原始数据
data <- tibble("AAAP family"=15,"ABC super family"=42,"ACA"=6, "ACBP60s"=4,"AGC Family"=12,"AS2 family"=5,"Acyl Lipid Metabolism Family"=167)

# 转换为数据框并构建符合要求的格式
radar_data <- as.data.frame(data)
# 手动设置最大值：给高值变量留余量，其他变量取自身值的1.1倍向上取整
max_vals <- sapply(radar_data, function(x) ifelse(x == max(radar_data), 170, ceiling(x*1.1)))
min_vals <- rep(0, ncol(radar_data))
# 组合成fmsb要求的结构：最大值行 → 最小值行 → 实际数据行
radar_data <- rbind(max_vals, min_vals, radar_data)

2. 绘制适配的雷达图 #

调整轴刻度和样式参数，让图表更清晰美观：

radarchart(radar_data,  axistype=1,
           # 多边形样式
           pcol=rgb(0.2,0.5,0.5,0.9), pfcol=rgb(0.2,0.5,0.5,0.5), plwd=4,
           # 网格样式
           cglcol="grey", cglty=1, axislabcol="grey", 
           # 根据数据范围设置轴刻度
           caxislabels=seq(0,160,40), cglwd=0.8,
           # 标签大小适配长名称
           vlcex=0.7 
)

可选方案：ggplot风格雷达图 #

如果偏好ggplot生态的可视化，可以使用ggradar包，它对单一行数据的支持更灵活：

library(ggradar)
library(dplyr)

# 数据标准化（ggradar要求数据在0-1区间）
data_norm <- data %>%
  mutate(across(everything(), ~./max(.))) %>%
  mutate(group = "Sample") # 添加分组标识列

# 绘制雷达图
ggradar(data_norm, 
        group.line.width = 1.5,
        group.point.size = 3,
        group.colours = rgb(0.2,0.5,0.5,0.9),
        background.circle.colour = "white",
        gridline.min.colour = "grey",
        gridline.mid.colour = "grey",
        gridline.max.colour = "grey",
        axis.label.size = 3,
        legend.position = "none")

内容的提问来源于stack exchange，提问作者Corrector