# ggradar 雷达图
rm(list=ls())
# install.packages("devtools")
# devtools::install_github("ricardo-bion/ggradar", dependencies=TRUE)
set.seed(123)
mydata <- matrix(runif(24,0,1),4,6)
rownames(mydata) <- LETTERS[1:4]
colnames(mydata) <- c("Apple","Google","Amozon","Tencent","Alibaba","Baidu")
mynewdata <- data.frame(mydata)
Name <- c("USA","CHN","UK","RUS")
mynewdata <- data.frame(Name,mynewdata)
mynewdata
library(knitr)
kable(mynewdata,format="markdown")
ggradar(mynewdata)
ggradar(mynewdata[1,])
//摘自网络
网友评论