Nothing
## ------------------------------------------------------------------------
library(radarchart)
skills
## ------------------------------------------------------------------------
skillsByName
## ---- tidyR--------------------------------------------------------------
library(tidyr)
skillsByLabel <- gather(skillsByName, key=Label, value=Score, -Name) %>%
spread(key=Name, value=Score)
skillsByLabel
## ---- baseR--------------------------------------------------------------
skillsByLabel <- as.data.frame(t(skillsByName[,-1]))
names(skillsByLabel) <- skillsByName$Name
skillsByLabel <- cbind(Label=row.names(skillsByLabel), skillsByLabel)
row.names(skillsByLabel) <- NULL
## ---- eval=FALSE---------------------------------------------------------
# chartJSRadar(scores = skillsByLabel, maxScale = 10)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.