Simple MDS

tbl <- read.csv("kv.csv", header=TRUE)
tbl <- subset(tbl, select = -X )
d <- dist(tbl)
fit <- cmdscale(d,eig=TRUE, k=2)
nazev <- c("Fischer", "Sobotka", "Franz", "Roithová", "Fischerová", "Dientsbier", "Schwarzenberg","Zeman")
x <- fit$points[,1]*(-1)
y <- fit$points[,2]
plot(x, y, xlab="levice - pravice", ylab="konzervativni - liberalni", 
     main="Podobnost kandidátů podle postojů", type="n", ylim=c(-6,6), xlim=c(-6,6))
text(x, y, labels = nazev)
abline(h=0, v=0, col = "gray60")