R语言 雷达图

雷达图

# install.packages("fmsb")
library(fmsb)
package 'fmsb' successfully unpacked and MD5 sums checked

The downloaded binary packages are in
	C:\Users\jhaow\AppData\Local\Temp\RtmpUdUuoC\downloaded_packages


Warning message:
"package 'fmsb' was built under R version 4.2.2"
pdata = data.frame(model1 = c(0.9, 0.93, 0.97, 0.95, 0.96, 0.99), Group = LETTERS[1:6])
pdata
A data.frame: 6 × 2
value Group
<dbl> <chr>
0.90 A
0.93 B
0.97 C
0.81 D
0.96 E
0.99 F

第一行必须为每列的最大值
第二行必须为每列的最小值

pdata2 = data.frame(t(pdata[, 1, drop = F]))
colnames(pdata2) = pdata$Group
pdata2 = rbind(Max = 1, Min = 0.8, pdata2); pdata2
A data.frame: 3 × 6
A B C D E F
<dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
Max 1.0 1.00 1.00 1.00 1.00 1.00
Min 0.8 0.80 0.80 0.80 0.80 0.80
model1 0.9 0.93 0.97 0.95 0.96 0.99

基础图

radarchart(pdata2)

在这里插入图片描述

## 进阶版


                
### 如何使用R语言生成雷达 在R语言中,可以利用`fmsb`包中的`radarchart()`函数或者`ggplot2`扩展功能来绘制雷达。以下是详细的说明以及示例代码。 #### 安装和加载必要的包 为了绘制雷达,首先需要安装并加载`fmsb`包或其他支持的绘库。如果尚未安装该包,则可以通过以下命令完成安装: ```r install.packages("fmsb") library(fmsb) ``` 此过程确保了所需的软件包已准备好供后续操作使用[^3]。 #### 数据准备 假设有一组数据表示五个维度上的评分情况,这些评分为0到1之间的数值。下面是一个简单的例子: ```r data <- data.frame( group = factor(c("A", "B")), var1 = c(0.9, 0.7), var2 = c(0.8, 0.6), var3 = c(0.5, 0.4), var4 = c(1.0, 0.9), var5 = c(0.7, 0.5) ) # 转置数据以便于处理 maxmin <- data.frame( max = rep(1, 5), min = rep(0, 5) ) rownames(maxmin) <- paste0('var', 1:5) ``` 上述代码定义了一个包含两个分组(A 和 B)及其对应各变量得分的数据框,并设置了最大最小值范围作为标准化依据[^4]。 #### 绘制基础雷达 有了前面准备好的数据之后,可以直接调用`radarchart()`函数来进行表渲染: ```r radarchart(data[, -1], axistype=1, pcol=c(rgb(0,0,1,0.5), rgb(1,0,0,0.5)), pfcol=c(rgb(0,0,1,0.2), rgb(1,0,0,0.2)), plwd=2, cglty=2, axislabcol="gray", vlcex=0.8, title="") ``` 这段脚本实现了基本样式设置,比如颜色透明度调整、线条宽度指定等参数配置。 对于更复杂的定制需求,还可以进一步探索其他高级选项或尝试基于`ggplot2`实现更加灵活美观的效果[^5]。 --- ### 雷达的应用场景与优势 雷达非常适合用来对比不同个体在同一套指标体系下的表现差异,或是观察单一对象随时间变化的趋势特征。它直观地展现了多维空间内的位置分布状况,在商业决策制定过程中具有重要价值[^1]。 ---
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值