绘图导航
  • 基础绘图
  • 高级绘图
  • 微生物
  • 转录组

R语言|绘制雷达图

 二维码 6
作者:图图来源:图图云平台

fmsb包绘制雷达图


##雷达图

library(fmsb)

##模拟数据

#设置取值范围

max_min <- data.frame(输出=c(50, 0),生存=c(50, 0),团战=c(50, 0),发育=c(50, 0),KDA=c(50, 0))

#转换成数据框

dat.A<- data.frame(输出=40,生存=30,团战=15,发育=25,KDA=20)

dat.A2<-rbind(max_min,dat.A)

#绘图

radarchart(dat.A2, axistype=0, seg=5,centerzero = TRUE)


library(fmsb)

#模拟数据

set.seed(99)

dat <- as.data.frame(matrix( sample( 0:50, 15 , replace=F) , ncol=5))

colnames(dat) <- c("输出" , "生存" , "团战" , "发育" , "KDA" )

rownames(dat) <- paste("player" , letters[1:3] , sep="-")

# 添加两行数据:最大值和最小值

data <- rbind(rep(50,5) , rep(0,5) , dat)

# 颜色

colors_border=c( rgb(0.2,0.5,0.5,0.9), rgb(0.8,0.2,0.5,0.9) , rgb(0.7,0.5,0.1,0.9) )

colors_in=c( rgb(0.2,0.5,0.5,0.4), rgb(0.8,0.2,0.5,0.4) , rgb(0.7,0.5,0.1,0.4) )

# 使用默认选项绘制

radarchart( data, axistype=1 , pcol=colors_border , pfcol=colors_in , plwd=4 , plty=1,            cglcol="grey", cglty=1, axislabcol="grey", caxislabels=seq(0,20,5), cglwd=0.8,            vlcex=0.8 ,title="王者荣耀战绩")

# 添加图例

legend(x=0.7, y=1, legend = rownames(data[-c(1,2),]), bty = "n", pch=20 , col=colors_in , text.col = "grey", cex=1.2, pt.cex=3)




“作图帮”微信公众号同步更新

作图帮二维码.jpg


可添加下方微信进入【生信作图交流群】,群内免费分享绘图代码与示例数据

公司二维码.png




推荐使用谷歌浏览器点击下载