20.ggradar

library(ggradar)

data <- as.data.frame(matrix( runif( 30, 0, 1) , ncol=10) )
colnames(data) <- c("math" , "english" , "biology" , "music" , "R-coding", "data-viz" , "french" , "physic", "statistic", "sport" )

data

##        math    english   biology      music   R-coding  data-viz    french
## 1 0.1002081 0.38539505 0.3178534 0.85290611 0.14215804 0.7506240 0.6261220
## 2 0.8117986 0.89057513 0.2808392 0.42624059 0.76987078 0.1637151 0.5981209
## 3 0.3959347 0.04125544 0.4560532 0.01888432 0.03125135 0.5067491 0.2699539
##      physic statistic     sport
## 1 0.5709931 0.9621783 0.0654030
## 2 0.8744272 0.6800339 0.1986909
## 3 0.8520884 0.4897425 0.4815960

x <- as.data.frame(matrix(c("A", "B", "C"), ncol = 1))
colnames(x) <- "NAME"
data <- cbind(x, data)
data

##   NAME      math    english   biology      music   R-coding  data-viz    french
## 1    A 0.1002081 0.38539505 0.3178534 0.85290611 0.14215804 0.7506240 0.6261220
## 2    B 0.8117986 0.89057513 0.2808392 0.42624059 0.76987078 0.1637151 0.5981209
## 3    C 0.3959347 0.04125544 0.4560532 0.01888432 0.03125135 0.5067491 0.2699539
##      physic statistic     sport
## 1 0.5709931 0.9621783 0.0654030
## 2 0.8744272 0.6800339 0.1986909
## 3 0.8520884 0.4897425 0.4815960

ggradar(data)

ggradar(data, background.circle.colour = "slateblue", grid.label.size = 5.5, gridline.mid.colour = "cornflowerblue", gridline.max.colour = "cornflowerblue", gridline.min.colour = "cornflowerblue", group.line.width = 1.2, group.point.size = 4, group.colours = c("firebrick1","darkorange1","cyan4"))