ggradar 雷达图 2020-04-06

# 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,])

//摘自网络