请问~R怎么画雷达图？？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求教！一定要是R不能是excel

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏9 回帖

关键词：雷达图 EXCEL xcel SOSO exce 雷达

啥是雷达图？

1. library(fmsb)
   
2. maxmin <- data.frame(
   
3. total=c(5,1),
   
4. phys=c(15,3),
   
5. psycho=c(3,0),
   
6. social=c(5,1),
   
7. env=c(5,1))
   
8. # data for radarchart function version 1 series, minimum value must be omitted from above.
   
9. RNGkind("Mersenne-Twister")
   
10. set.seed(123)
    
11. dat <- data.frame(
    
12. total=runif(3,1,5),
    
13. phys=rnorm(3,10,2),
    
14. psycho=c(0.5,NA,3),
    
15. social=runif(3,1,5),
    
16. env=c(5,2.5,4))
    
17. dat <- rbind(maxmin,dat)
    
18. op <- par(mar=c(1,2,2,1),mfrow=c(2,2))
    
19. radarchart(dat,axistype=1,seg=5,plty=1,title="(axis=1, 5 segments)")
    
20. radarchart(dat,axistype=2,pcol=topo.colors(3),plty=1,title="(topo.colors, axis=2)")
    
21. radarchart(dat,axistype=3,pty=32,plty=1,axislabcol="grey",na.itp=FALSE,title="(no points, axis=3, na.itp=FALSE)")
    
22. radarchart(dat,axistype=0,plwd=1:5,pcol=1,title="(use lty and lwd but b/w, axis=0)")
    
23. par(op)

复制代码

R好是好，可有时候感觉很麻烦。

kk22boy 发表于 2012-4-7 22:15

谢谢！！

thanks for your share

想问一下，怎样在旁边做个图例之类的

请问怎么添加图例

kk22boy 发表于 2012-4-7 22:15

学习了，谢谢指导

、无衣 发表于 2016-2-25 12:33
请问怎么添加图例

legend("bottomright",legend=c("客户群1","客户群2","客户群3","客户群4"),lty=c(1,4,3,2),lwd=2,inset=c(0.05,0),cex=0.85)