adsp0604-2

# 다차원척도법
# 1. 커피 브랜드 간 거리행렬 (가상의 인지 거리)
coffee_dist <- matrix(c(
  0, 2, 4, 5, 3, 6, 7,
  2, 0, 3, 4, 2, 5, 6,
  4, 3, 0, 2, 4, 3, 5,
  5, 4, 2, 0, 3, 2, 4,
  3, 2, 4, 3, 0, 5, 6,
  6, 5, 3, 2, 5, 0, 3,
  7, 6, 5, 4, 6, 3, 0
), nrow = 7, byrow = TRUE)

# 2. 브랜드 이름 지정
brand_names <- c("Starbucks", "Ediya", "The Venti", "Paik's Coffee", "Hollys", "Twosome Place", "Mega Coffee")
rownames(coffee_dist) <- colnames(coffee_dist) <- brand_names

# 3. 거리 객체 변환
coffee_dist <- as.dist(coffee_dist)

# 4. 고전적 MDS 수행
mds_result <- cmdscale(coffee_dist, k = 2)

# 5. 결과 시각화
plot(mds_result, type = "n", main = "커피 브랜드 다차원척도법 (MDS)", xlab = "Dimension 1", ylab = "Dimension 2")
text(mds_result, labels = brand_names, cex = 1.1, col = "brown")