data <- data %>%
  mutate(
    IKS_2024 = as.numeric(gsub(",", ".", IKS_2024)),
    IKE_2024 = as.numeric(gsub(",", ".", IKE_2024)),
    IKL_2024 = as.numeric(gsub(",", ".", IKL_2024)),
    NILAI_IDM_2024 = as.numeric(gsub(",", ".", NILAI_IDM_2024))
  )

data <- data %>%
  mutate(
    IKS_2024 = ifelse(is.na(IKS_2024), mean(IKS_2024, na.rm=TRUE), IKS_2024),
    IKE_2024 = ifelse(is.na(IKE_2024), mean(IKE_2024, na.rm=TRUE), IKE_2024),
    IKL_2024 = ifelse(is.na(IKL_2024), mean(IKL_2024, na.rm=TRUE), IKL_2024)
  )

X <- data %>%
  dplyr::select(IKS_2024, IKE_2024, IKL_2024)

X <- as.matrix(X)
storage.mode(X) <- "numeric"

w <- c(1/3, 1/3, 1/3)

hasil <- data.frame(
  Desa = data$NAMA_DESA,
  Status_IDM = data$STATUS_IDM_2024,
  Nilai_IDM = data$NILAI_IDM_2024,
  SAW = V_saw,
  Rank_SAW = as.integer(rank(-V_saw, ties.method = "first")),
  WP = V_wp,
  Rank_WP = as.integer(rank(-V_wp, ties.method = "first"))
)
hasil %>%
  head(10) %>%
  kable(
    caption = "Perbandingan Skor dan Ranking Desa Berdasarkan Metode SAW dan Weighted Product",
    digits = c(0,0,4,4,0,8,0),
    col.names = c(
      "Desa",
      "Status IDM",
      "Nilai IDM",
      "Skor SAW",
      "Rank SAW",
      "Skor WP",
      "Rank WP"
    )
  ) %>%
  kable_styling(
    bootstrap_options = c("striped","hover","condensed"),
    full_width = FALSE,
    position = "center"
  )

## Top 10 Hasil SAW dan WP

# Top 10 SAW
top10_saw <- hasil %>%
  arrange(desc(SAW)) %>%
  mutate(Rank_SAW = row_number()) %>%
  select(Desa, Status_IDM, SAW, Rank_SAW, WP, Rank_WP) %>%
  slice_head(n = 10)

# Top 10 WP
top10_wp <- hasil %>%
  arrange(desc(WP)) %>%
  mutate(Rank_WP = row_number()) %>%
  select(Desa, Status_IDM, SAW, Rank_SAW, WP, Rank_WP) %>%
  slice_head(n = 10)

kable(top10_saw, caption = "Top 10 Desa Berdasarkan Metode SAW")

kable(top10_wp, caption = "Top 10 Desa Berdasarkan Metode Weighted Product")

hasil <- hasil %>%
  mutate(
    
    # normalisasi WP supaya skalanya 0–1
    WP_norm = WP / max(WP),
    
    kategori_SAW = case_when(
      SAW < 0.4907 ~ "SANGAT TERTINGGAL",
      SAW < 0.5989 ~ "TERTINGGAL",
      SAW < 0.7072 ~ "BERKEMBANG",
      SAW < 0.8155 ~ "MAJU",
      TRUE ~ "MANDIRI"
    ),
    
    kategori_WP = case_when(
      WP_norm < 0.4907 ~ "SANGAT TERTINGGAL",
      WP_norm < 0.5989 ~ "TERTINGGAL",
      WP_norm < 0.7072 ~ "BERKEMBANG",
      WP_norm < 0.8155 ~ "MAJU",
      TRUE ~ "MANDIRI"
    )
    
  )

mismatch <- hasil %>%
  filter(
    Status_IDM != kategori_SAW |
    Status_IDM != kategori_WP
  )

hasil %>%
  select(Desa, Status_IDM, SAW, WP_norm, kategori_SAW, kategori_WP) %>%
  head(10) %>%
  kable(
    caption = "Hasil Kategori Desa Berdasarkan Metode SAW dan Weighted Product",
    digits = 4
  ) %>%
  kable_styling(
    bootstrap_options = c("striped","hover","condensed"),
    full_width = FALSE,
    position = "center"
  )

tab_saw <- table(hasil$Status_IDM, hasil$kategori_SAW)

tab_saw %>%
  as.data.frame.matrix() %>%
  kable(
    caption = "Perbandingan Status IDM dengan Kategori Hasil Metode SAW"
  ) %>%
  kable_styling(
    bootstrap_options = c("striped","hover","condensed"),
    full_width = FALSE,
    position = "center"
  )

tab_wp <- table(hasil$Status_IDM, hasil$kategori_WP)

tab_wp %>%
  as.data.frame.matrix() %>%
  kable(
    caption = "Perbandingan Status IDM dengan Kategori Hasil Metode Weighted Product"
  ) %>%
  kable_styling(
    bootstrap_options = c("striped","hover","condensed"),
    full_width = FALSE,
    position = "center"
  )

rentang_saw <- hasil %>%
  group_by(kategori_SAW) %>%
  summarise(
    min = min(SAW),
    max = max(SAW)
  )

rentang_saw %>%
  kable(
    caption = "Rentang Skor SAW Berdasarkan Kategori Desa",
    digits = 4
  ) %>%
  kable_styling(
    bootstrap_options = c("striped","hover"),
    full_width = FALSE
  )

## Rentang Skor WP
rentang_wp <- hasil %>%
  group_by(kategori_WP) %>%
  summarise(
    min = min(WP_norm),
    max = max(WP_norm)
  ) %>%
  arrange(min)

rentang_wp %>%
  kable(
    caption = "Rentang Skor Weighted Product Berdasarkan Kategori Desa",
    digits = 4
  ) %>%
  kable_styling(
    bootstrap_options = c("striped","hover"),
    full_width = FALSE
  )