Matriks Korelasi 4x4

library(pheatmap)

## Warning: package 'pheatmap' was built under R version 4.5.3

# 1. Input data 4 variabel (Y, X1, X2, X3)
data <- data.frame(
  Y  = c(57.5, 52.8, 61.3, 67.0, 53.5, 62.7, 56.2, 68.5, 69.2),
  X1 = c(78, 69, 77, 88, 67, 80, 74, 94, 102),
  X2 = c(2.75, 2.15, 4.41, 5.52, 3.21, 4.32, 2.31, 4.30, 3.71),
  X3 = c(29.5, 26.3, 32.2, 36.5, 27.2, 27.7, 28.3, 30.3, 28.7)
)

# 2. Hitung matriks korelasi 4x4
matriks_korelasi <- cor(data)

# 3. Buat heatmap
pheatmap(
  matriks_korelasi,
  display_numbers = TRUE,
  number_color = "black",
  cluster_rows = FALSE,
  cluster_cols = FALSE,
  color = colorRampPalette(c("#4575b4", "#ffffff", "#d73027"))(100),
  main = "Heatmap Matriks Korelasi 4x4"
)