Radar Chart: Profile of Fictional Student A

For this project, I created a radar chart laying out the statistical profile of a fictional student. I encounter this type of chart often in video games and popular media and think it could be useful to make comparisons in a visually appealing manner for non-technical audiences.

Code can be found below.

library(fmsb)
library(fmsb)
data <- as.data.frame(matrix( sample( 2:20 , 10 , replace=T) , ncol=10))
colnames(data) <- c("biostats" , "epidemiology" , "literature" , "music discovery" , "R-coding", "data-viz" , "Japanese" , "cinema", "writing", "running" )
data <- rbind(rep(20,10) , rep(0,10) , data)
oldpar <- par()

# Set bold font using par function
par(font = 2)

radarchart(data, axistype = 1,
           pcol = rgb(255, 20, 147, maxColorValue = 255),
           pfcol = rgb(255, 182, 193, maxColorValue = 255),
           plwd = 4,
           cglcol = "grey", cglty = 1, axislabcol = "black",
           caxislabels = seq(0, 20, 5), cglwd = 0.8,
           vlcex = 0.8)