求助：如何反转R语言fmsb包radarchart的坐标轴

刚好之前我也折腾过fmsb雷达图的坐标轴反转需求，其实核心就是通过数据反向映射配合fmsb的规则来实现，再调整下刻度标签就搞定了，下面是具体的步骤和完整代码：

实现思路说明 #

fmsb的radarchart有个硬性要求：数据框必须包含两行特殊数据——第一行是各变量的最大值（对应雷达图最外层），第二行是最小值（对应雷达图中心）。要实现「中心为8，最外层为1」的反转效果，我们需要：

• 对原始数据做反向转换，让原来的1对应8、8对应1；
• 给转换后的数据添加符合fmsb要求的首尾行；
• 自定义坐标轴刻度标签，确保显示的是我们想要的数值。

完整代码 #

library(fmsb)

# 创建原始数据（和你提供的示例一致，加了随机种子保证结果可重复）
set.seed(123)
data <- as.data.frame(matrix(sample(1:8, 10, replace=T), ncol=10))
colnames(data) <- c("math", "english", "biology", "music", "R-coding", 
                    "data-viz", "french", "physic", "statistic", "sport")

# 1. 反向转换原始数据：用9 - x实现1↔8、2↔7的映射（因为1+8=9）
reversed_data <- data.frame(lapply(data, function(x) 9 - x))

# 2. 添加fmsb要求的首尾行：第一行是转换后的最大值（对应原始的1，即雷达最外层），第二行是转换后的最小值（对应原始的8，即雷达中心）
reversed_data <- rbind(rep(8, ncol(reversed_data)), rep(1, ncol(reversed_data)), reversed_data)

# 3. 绘制反转坐标轴的雷达图，自定义刻度标签
radarchart(reversed_data, 
           axistype = 1,          # 显示坐标轴刻度
           cglcol = "grey",       # 网格线颜色
           cglty = 1,             # 网格线类型
           axislabcol = "darkblue", # 坐标轴标签颜色
           vlcex = 0.8,           # 变量名称字体大小
           pty = 32,              # 数据点样式（圆形）
           plty = 1,              # 数据线类型
           plwd = 2,              # 数据线宽度
           col = "steelblue",     # 数据线颜色
           axislabels = c("8", "7", "6", "5", "4", "3", "2", "1") # 自定义刻度标签，实现反转显示
)

# 添加标题
title(main = "反转坐标轴的雷达图（中心为8，最外层为1）")

关键细节解释 #

• 反向转换公式：这里用9 - x是因为你的数据范围是1-8，最小值+最大值=9，这个公式可以通用到任意范围的数值——如果你的数据是a到b，转换公式就是(a + b) - x。
• 首尾行设置：fmsb会把第一行数据作为雷达图的最外层边界，第二行作为中心边界，所以我们把转换后的最大值（8）放在第一行，最小值（1）放在第二行，刚好对应我们要的「最外层1，中心8」的逻辑（因为转换后的8对应原始的1）。
• 刻度标签自定义：转换后的数据刻度是从8到1，所以我们把axislabels设置为从8到1的序列，这样显示出来的标签就是我们想要的反转后的数值，而不是转换后的中间值。

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