library(MCDA)
alternativesValues <- c(10,1,8,3,8,3,4,4,8,5)
names(alternativesValues) <- c("x10","x1","x9","x2","x8","x3","x7","x4","x6","x5")
plotAlternativesValuesPreorder(alternativesValues, decreasing=TRUE, alternativesIDs=c("x10","x3","x7","x4","x6","x5"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.