setwd("D:/USP/ENSINO/PosGraduacao/AnáliseDeDadosMultivariados/AdDM_I/Aulas/Dados_Excel")
dados = read.table("Carros.csv",header=T,sep=";",dec=",")
dados
row.names(dados) <- dados[, 1]
dados <- dados[, -1]
dados
fit <- cmdscale(dados, eig = TRUE, k = 2)
fit
x <- fit$points[, 1]
y <- fit$points[, 2]
#
range(x)
limx = range(x) + c(-1, 2)
limy = range(y) + c(-1, 1)
plot(x, y, pch = 19, xlim = limx, ylim = limy)
car.names <- row.names(dados)

text(x, y, pos = 4, labels = car.names)