Mapping Cabang berdasarkan average 3 tahun vs cross selling

1 PRODUK EMAS

# Import library
library(ggplot2)
library(dplyr)
library(plotly)
library(readxl) # Untuk membaca file Excel

file_path <- "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_EMAS.xlsx"

# Baca sheet pertama dari file Excel
data <- read_excel(file_path)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data)

# Hitung rata-rata X dan Y
mean_x <- mean(data$CrossSelling, na.rm = TRUE)
mean_y <- mean(data$Average3Years, na.rm = TRUE)

# Tambahkan kolom kuadran
data <- data %>%
  mutate(
    Kuadran = case_when(
      CrossSelling >= mean_x & Average3Years >= mean_y ~ "Kuadran I",
      CrossSelling < mean_x & Average3Years >= mean_y ~ "Kuadran II",
      CrossSelling < mean_x & Average3Years < mean_y ~ "Kuadran III",
      CrossSelling >= mean_x & Average3Years < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data)

mean_x <- mean(data$CrossSelling, na.rm = TRUE)
mean_y <- mean(data$Average3Years, na.rm = TRUE)

mean_x

#> [1] 0.1687126

mean_y

#> [1] 2662932136

# Plot interaktif dengan plotly
plot <- plot_ly(
  data = data,
  x = ~CrossSelling,
  y = ~Average3Years,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG:", CABANG, "<br>CrossSelling:", CrossSelling, "<br>Average3Years:", Average3Years, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Emas",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data$Average3Years), y1 = max(data$Average3Years), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data$CrossSelling), x1 = max(data$CrossSelling), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran <- data %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling = min(CrossSelling, na.rm = TRUE),
    Max_CrossSelling = max(CrossSelling, na.rm = TRUE),
    Min_Average3Years = min(Average3Years, na.rm = TRUE),
    Max_Average3Years = max(Average3Years, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling = 0.5 - Min_CrossSelling,
    BatasAtas_CrossSelling = 0.5 + Max_CrossSelling,
    BatasBawah_Average3Years = 0.5 - Min_Average3Years,
    BatasAtas_Average3Years = 0.5 + Max_Average3Years
  )

# Tampilkan hasil
summary_kuadran

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

2 PRODUK KCA

file_path_KCA <- "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_KCA.xlsx"

# Baca sheet pertama dari file Excel
data_KCA <- read_excel(file_path_KCA)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_KCA)

# Hitung rata-rata X dan Y
mean_x <- mean(data_KCA$CrossSelling_KCA, na.rm = TRUE)
mean_y <- mean(data_KCA$Average3Years_KCA, na.rm = TRUE)

# Tambahkan kolom kuadran
data_KCA <- data_KCA %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_KCA >= mean_x & Average3Years_KCA >= mean_y ~ "Kuadran I",
      CrossSelling_KCA < mean_x & Average3Years_KCA >= mean_y ~ "Kuadran II",
      CrossSelling_KCA < mean_x & Average3Years_KCA < mean_y ~ "Kuadran III",
      CrossSelling_KCA >= mean_x & Average3Years_KCA < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_KCA)

# Plot interaktif dengan plotly
plot_KCA <- plot_ly(
  data = data_KCA,
  x = ~CrossSelling_KCA,
  y = ~Average3Years_KCA,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_KCA:", CABANG_KCA, "<br>CrossSelling_KCA:", CrossSelling_KCA, "<br>Average3Years_KCA:", Average3Years_KCA, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk KCA",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_KCA$Average3Years_KCA), y1 = max(data_KCA$Average3Years_KCA), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_KCA$CrossSelling_KCA), x1 = max(data_KCA$CrossSelling_KCA), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_KCA

colnames(data_KCA)

#> [1] "CABANG_KCA"        "Average3Years_KCA" "CrossSelling_KCA" 
#> [4] "Kuadran"

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_KCA <- data_KCA %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_KCA = min(CrossSelling_KCA, na.rm = TRUE),
    Max_CrossSelling_KCA = max(CrossSelling_KCA, na.rm = TRUE),
    Min_Average3Years_KCA = min(Average3Years_KCA, na.rm = TRUE),
    Max_Average3Years_KCA = max(Average3Years_KCA, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_KCA = 0.5 - Min_CrossSelling_KCA,
    BatasAtas_CrossSelling_KCA = 0.5 + Max_CrossSelling_KCA,
    BatasBawah_Average3Years_KCA = 0.5 - Min_Average3Years_KCA,
    BatasAtas_Average3Years_KCA = 0.5 + Max_Average3Years_KCA
  )

# Tampilkan hasil
summary_kuadran_KCA

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

3 PRODUK KRASIDA

TAHAPAN_1

file_path_KRASIDA <- "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_KRASIDA.xlsx"

# Baca sheet pertama dari file Excel
data_KRASIDA <- read_excel(file_path_KRASIDA)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_KRASIDA)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_KRASIDA$CrossSelling_KRASIDA, na.rm = TRUE)
mean_y <- mean(data_KRASIDA$Average3Years_KRASIDA, na.rm = TRUE)

# Tambahkan kolom kuadran
data_KRASIDA <- data_KRASIDA %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_KRASIDA >= mean_x & Average3Years_KRASIDA >= mean_y ~ "Kuadran I",
      CrossSelling_KRASIDA < mean_x & Average3Years_KRASIDA >= mean_y ~ "Kuadran II",
      CrossSelling_KRASIDA < mean_x & Average3Years_KRASIDA < mean_y ~ "Kuadran III",
      CrossSelling_KRASIDA >= mean_x & Average3Years_KRASIDA < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_KRASIDA)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_KRASIDA <- plot_ly(
  data = data_KRASIDA,
  x = ~CrossSelling_KRASIDA,
  y = ~Average3Years_KRASIDA,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_KRASIDA:", CABANG_KRASIDA, "<br>CrossSelling_KRASIDA:", CrossSelling_KRASIDA, "<br>Average3Years_KRASIDA:", Average3Years_KRASIDA, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk KRASIDA",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_KRASIDA$Average3Years_KRASIDA), y1 = max(data_KRASIDA$Average3Years_KRASIDA), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_KRASIDA$CrossSelling_KRASIDA), 
           x1 = max(data_KRASIDA$CrossSelling_KRASIDA), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_KRASIDA

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_KRASIDA <- data_KRASIDA %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_KRASIDA = min(CrossSelling_KRASIDA, na.rm = TRUE),
    Max_CrossSelling_KRASIDA = max(CrossSelling_KRASIDA, na.rm = TRUE),
    Min_Average3Years_KRASIDA = min(Average3Years_KRASIDA, na.rm = TRUE),
    Max_Average3Years_KRASIDA = max(Average3Years_KRASIDA, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_KRASIDA = 0.5 - Min_CrossSelling_KRASIDA,
    BatasAtas_CrossSelling_KRASIDA = 0.5 + Max_CrossSelling_KRASIDA,
    BatasBawah_Average3Years_KRASIDA = 0.5 - Min_Average3Years_KRASIDA,
    BatasAtas_Average3Years_KRASIDA = 0.5 + Max_Average3Years_KRASIDA
  )

# Tampilkan hasil
summary_kuadran_KRASIDA

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

4 PRODUK RAHN

TAHAPAN_1

file_path_RAHN <- "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_RAHN.xlsx"

# Baca sheet pertama dari file Excel
data_RAHN <- read_excel(file_path_RAHN)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_RAHN)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_RAHN$CrossSelling_RAHN, na.rm = TRUE)
mean_y <- mean(data_RAHN$Average3Years_RAHN, na.rm = TRUE)

# Tambahkan kolom kuadran
data_RAHN <- data_RAHN %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_RAHN >= mean_x & Average3Years_RAHN >= mean_y ~ "Kuadran I",
      CrossSelling_RAHN < mean_x & Average3Years_RAHN >= mean_y ~ "Kuadran II",
      CrossSelling_RAHN < mean_x & Average3Years_RAHN < mean_y ~ "Kuadran III",
      CrossSelling_RAHN >= mean_x & Average3Years_RAHN < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_RAHN)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_RAHN <- plot_ly(
  data = data_RAHN,
  x = ~CrossSelling_RAHN,
  y = ~Average3Years_RAHN,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_RAHN:", CABANG_RAHN, "<br>CrossSelling_RAHN:", CrossSelling_RAHN, "<br>Average3Years_RAHN:", Average3Years_RAHN, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk RAHN",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_RAHN$Average3Years_RAHN), y1 = max(data_RAHN$Average3Years_RAHN), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_RAHN$CrossSelling_RAHN), 
           x1 = max(data_RAHN$CrossSelling_RAHN), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_RAHN

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_RAHN <- data_RAHN %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_RAHN = min(CrossSelling_RAHN, na.rm = TRUE),
    Max_CrossSelling_RAHN = max(CrossSelling_RAHN, na.rm = TRUE),
    Min_Average3Years_RAHN = min(Average3Years_RAHN, na.rm = TRUE),
    Max_Average3Years_RAHN = max(Average3Years_RAHN, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_RAHN = 0.5 - Min_CrossSelling_RAHN,
    BatasAtas_CrossSelling_RAHN = 0.5 + Max_CrossSelling_RAHN,
    BatasBawah_Average3Years_RAHN = 0.5 - Min_Average3Years_RAHN,
    BatasAtas_Average3Years_RAHN = 0.5 + Max_Average3Years_RAHN
  )

# Tampilkan hasil
summary_kuadran_RAHN

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

5 PRODUK ARRUM EMAS

TAHAPAN_1

file_path_ARRUMEMAS <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_ARRUM EMAS.xlsx"

# Baca sheet pertama dari file Excel
data_ARRUMEMAS <- read_excel(file_path_ARRUMEMAS)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_ARRUMEMAS)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_ARRUMEMAS$CrossSelling_ARRUMEMAS, na.rm = TRUE)
mean_y <- mean(data_ARRUMEMAS$Average3Years_ARRUMEMAS, na.rm = TRUE)

# Tambahkan kolom kuadran
data_ARRUMEMAS <- data_ARRUMEMAS %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_ARRUMEMAS >= mean_x & Average3Years_ARRUMEMAS >= mean_y ~ "Kuadran I",
      CrossSelling_ARRUMEMAS < mean_x & Average3Years_ARRUMEMAS >= mean_y ~ "Kuadran II",
      CrossSelling_ARRUMEMAS < mean_x & Average3Years_ARRUMEMAS < mean_y ~ "Kuadran III",
      CrossSelling_ARRUMEMAS >= mean_x & Average3Years_ARRUMEMAS < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_ARRUMEMAS)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_ARRUMEMAS <- plot_ly(
  data = data_ARRUMEMAS,
  x = ~CrossSelling_ARRUMEMAS,
  y = ~Average3Years_ARRUMEMAS,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_ARRUMEMAS:", CABANG_ARRUMEMAS, "<br>CrossSelling_ARRUMEMAS:", CrossSelling_ARRUMEMAS, "<br>Average3Years_ARRUMEMAS:", Average3Years_ARRUMEMAS, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Arrum Emas",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_ARRUMEMAS$Average3Years_ARRUMEMAS), y1 = max(data_ARRUMEMAS$Average3Years_ARRUMEMAS), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_ARRUMEMAS$CrossSelling_ARRUMEMAS), 
           x1 = max(data_ARRUMEMAS$CrossSelling_ARRUMEMAS), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_ARRUMEMAS

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_ARRUMEMAS <- data_ARRUMEMAS %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_ARRUMEMAS = min(CrossSelling_ARRUMEMAS, na.rm = TRUE),
    Max_CrossSelling_ARRUMEMAS = max(CrossSelling_ARRUMEMAS, na.rm = TRUE),
    Min_Average3Years_ARRUMEMAS = min(Average3Years_ARRUMEMAS, na.rm = TRUE),
    Max_Average3Years_ARRUMEMAS = max(Average3Years_ARRUMEMAS, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_ARRUMEMAS = 0.5 - Min_CrossSelling_ARRUMEMAS,
    BatasAtas_CrossSelling_ARRUMEMAS = 0.5 + Max_CrossSelling_ARRUMEMAS,
    BatasBawah_Average3Years_ARRUMEMAS = 0.5 - Min_Average3Years_ARRUMEMAS,
    BatasAtas_Average3Years_ARRUMEMAS = 0.5 + Max_Average3Years_ARRUMEMAS
  )

# Tampilkan hasil
summary_kuadran_ARRUMEMAS

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

6 PRODUK ARRUM HAJI

TAHAPAN_1

file_path_ARRUMHAJI <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_ARRUM HAJI.xlsx"

# Baca sheet pertama dari file Excel
data_ARRUMHAJI <- read_excel(file_path_ARRUMHAJI)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_ARRUMHAJI)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_ARRUMHAJI$CrossSelling_ARRUMHAJI, na.rm = TRUE)
mean_y <- mean(data_ARRUMHAJI$Average3Years_ARRUMHAJI, na.rm = TRUE)

# Tambahkan kolom kuadran
data_ARRUMHAJI <- data_ARRUMHAJI %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_ARRUMHAJI >= mean_x & Average3Years_ARRUMHAJI >= mean_y ~ "Kuadran I",
      CrossSelling_ARRUMHAJI < mean_x & Average3Years_ARRUMHAJI >= mean_y ~ "Kuadran II",
      CrossSelling_ARRUMHAJI < mean_x & Average3Years_ARRUMHAJI < mean_y ~ "Kuadran III",
      CrossSelling_ARRUMHAJI >= mean_x & Average3Years_ARRUMHAJI < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_ARRUMHAJI)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_ARRUMHAJI <- plot_ly(
  data = data_ARRUMHAJI,
  x = ~CrossSelling_ARRUMHAJI,
  y = ~Average3Years_ARRUMHAJI,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_ARRUMHAJI:", CABANG_ARRUMHAJI, "<br>CrossSelling_ARRUMHAJI:", CrossSelling_ARRUMHAJI, "<br>Average3Years_ARRUMHAJI:", Average3Years_ARRUMHAJI, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Arrum Haji",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_ARRUMHAJI$Average3Years_ARRUMHAJI), y1 = max(data_ARRUMHAJI$Average3Years_ARRUMHAJI), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_ARRUMHAJI$CrossSelling_ARRUMHAJI), 
           x1 = max(data_ARRUMHAJI$CrossSelling_ARRUMHAJI), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_ARRUMHAJI

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_ARRUMHAJI <- data_ARRUMHAJI %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_ARRUMHAJI = min(CrossSelling_ARRUMHAJI, na.rm = TRUE),
    Max_CrossSelling_ARRUMHAJI = max(CrossSelling_ARRUMHAJI, na.rm = TRUE),
    Min_Average3Years_ARRUMHAJI = min(Average3Years_ARRUMHAJI, na.rm = TRUE),
    Max_Average3Years_ARRUMHAJI = max(Average3Years_ARRUMHAJI, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_ARRUMHAJI = 0.5 - Min_CrossSelling_ARRUMHAJI,
    BatasAtas_CrossSelling_ARRUMHAJI = 0.5 + Max_CrossSelling_ARRUMHAJI,
    BatasBawah_Average3Years_ARRUMHAJI = 0.5 - Min_Average3Years_ARRUMHAJI,
    BatasAtas_Average3Years_ARRUMHAJI = 0.5 + Max_Average3Years_ARRUMHAJI
  )

# Tampilkan hasil
summary_kuadran_ARRUMHAJI

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

7 PRODUK ARRUM SAFAR

TAHAPAN_1

file_path_ARRUMSAFAR <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_ARRUM SAFAR.xlsx"

# Baca sheet pertama dari file Excel
data_ARRUMSAFAR <- read_excel(file_path_ARRUMSAFAR)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_ARRUMSAFAR)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_ARRUMSAFAR$CrossSelling_ARRUMSAFAR, na.rm = TRUE)
mean_y <- mean(data_ARRUMSAFAR$Average3Years_ARRUMSAFAR, na.rm = TRUE)

# Tambahkan kolom kuadran
data_ARRUMSAFAR <- data_ARRUMSAFAR %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_ARRUMSAFAR >= mean_x & Average3Years_ARRUMSAFAR >= mean_y ~ "Kuadran I",
      CrossSelling_ARRUMSAFAR < mean_x & Average3Years_ARRUMSAFAR >= mean_y ~ "Kuadran II",
      CrossSelling_ARRUMSAFAR < mean_x & Average3Years_ARRUMSAFAR < mean_y ~ "Kuadran III",
      CrossSelling_ARRUMSAFAR >= mean_x & Average3Years_ARRUMSAFAR < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_ARRUMSAFAR)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_ARRUMSAFAR <- plot_ly(
  data = data_ARRUMSAFAR,
  x = ~CrossSelling_ARRUMSAFAR,
  y = ~Average3Years_ARRUMSAFAR,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_ARRUMSAFAR:", CABANG_ARRUMSAFAR, "<br>CrossSelling_ARRUMSAFAR:", CrossSelling_ARRUMSAFAR, "<br>Average3Years_ARRUMHAJI:", Average3Years_ARRUMSAFAR, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Arrum Safar",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_ARRUMSAFAR$Average3Years_ARRUMSAFAR), y1 = max(data_ARRUMSAFAR$Average3Years_ARRUMSAFAR), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_ARRUMSAFAR$CrossSelling_ARRUMSAFAR), 
           x1 = max(data_ARRUMSAFAR$CrossSelling_ARRUMSAFAR), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_ARRUMSAFAR

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_ARRUMSAFAR <- data_ARRUMSAFAR %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_ARRUMSAFAR = min(CrossSelling_ARRUMSAFAR, na.rm = TRUE),
    Max_CrossSelling_ARRUMSAFAR = max(CrossSelling_ARRUMSAFAR, na.rm = TRUE),
    Min_Average3Years_ARRUMSAFAR = min(Average3Years_ARRUMSAFAR, na.rm = TRUE),
    Max_Average3Years_ARRUMSAFAR = max(Average3Years_ARRUMSAFAR, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_ARRUMSAFAR = 0.5 - Min_CrossSelling_ARRUMSAFAR,
    BatasAtas_CrossSelling_ARRUMSAFAR = 0.5 + Max_CrossSelling_ARRUMSAFAR,
    BatasBawah_Average3Years_ARRUMSAFAR = 0.5 - Min_Average3Years_ARRUMSAFAR,
    BatasAtas_Average3Years_ARRUMSAFAR = 0.5 + Max_Average3Years_ARRUMSAFAR
  )

# Tampilkan hasil
summary_kuadran_ARRUMSAFAR

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

8 PRODUK KREASI

TAHAPAN_1

file_path_KREASI <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_KREASI.xlsx"

# Baca sheet pertama dari file Excel
data_KREASI <- read_excel(file_path_KREASI)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_KREASI)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_KREASI$CrossSelling_KREASI, na.rm = TRUE)
mean_y <- mean(data_KREASI$Average3Years_KREASI, na.rm = TRUE)

# Tambahkan kolom kuadran
data_KREASI <- data_KREASI %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_KREASI >= mean_x & Average3Years_KREASI >= mean_y ~ "Kuadran I",
      CrossSelling_KREASI < mean_x & Average3Years_KREASI >= mean_y ~ "Kuadran II",
      CrossSelling_KREASI < mean_x & Average3Years_KREASI < mean_y ~ "Kuadran III",
      CrossSelling_KREASI >= mean_x & Average3Years_KREASI < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_KREASI)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_KREASI <- plot_ly(
  data = data_KREASI,
  x = ~CrossSelling_KREASI,
  y = ~Average3Years_KREASI,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_KREASI:", CABANG_KREASI, "<br>CrossSelling_KREASI:", CrossSelling_KREASI, "<br>Average3Years_KREASI:", Average3Years_KREASI, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Kreasi",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_KREASI$Average3Years_KREASI), y1 = max(data_KREASI$Average3Years_KREASI), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_KREASI$CrossSelling_KREASI), 
           x1 = max(data_KREASI$CrossSelling_KREASI), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_KREASI

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_KREASI <- data_KREASI %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_KREASI = min(CrossSelling_KREASI, na.rm = TRUE),
    Max_CrossSelling_KREASI = max(CrossSelling_KREASI, na.rm = TRUE),
    Min_Average3Years_KREASI = min(Average3Years_KREASI, na.rm = TRUE),
    Max_Average3Years_KREASI = max(Average3Years_KREASI, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_KREASI = 0.5 - Min_CrossSelling_KREASI,
    BatasAtas_CrossSelling_KREASI = 0.5 + Max_CrossSelling_KREASI,
    BatasBawah_Average3Years_KREASI = 0.5 - Min_Average3Years_KREASI,
    BatasAtas_Average3Years_KREASI = 0.5 + Max_Average3Years_KREASI
  )

# Tampilkan hasil
summary_kuadran_KREASI

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

9 PRODUK KRESNA

TAHAPAN_1

file_path_KRESNA <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_KRESNA.xlsx"

# Baca sheet pertama dari file Excel
data_KRESNA <- read_excel(file_path_KRESNA)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_KRESNA)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_KRESNA$CrossSelling_KRESNA, na.rm = TRUE)
mean_y <- mean(data_KRESNA$Average3Years_KRESNA, na.rm = TRUE)

# Tambahkan kolom kuadran
data_KRESNA <- data_KRESNA %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_KRESNA >= mean_x & Average3Years_KRESNA >= mean_y ~ "Kuadran I",
      CrossSelling_KRESNA < mean_x & Average3Years_KRESNA >= mean_y ~ "Kuadran II",
      CrossSelling_KRESNA < mean_x & Average3Years_KRESNA < mean_y ~ "Kuadran III",
      CrossSelling_KRESNA >= mean_x & Average3Years_KRESNA < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_KRESNA)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_KRESNA <- plot_ly(
  data = data_KRESNA,
  x = ~CrossSelling_KRESNA,
  y = ~Average3Years_KRESNA,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_KRESNA:", CABANG_KRESNA, "<br>CrossSelling_KRESNA:", CrossSelling_KRESNA, "<br>Average3Years_KRESNA:", Average3Years_KRESNA, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Kresna",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_KRESNA$Average3Years_KRESNA), y1 = max(data_KRESNA$Average3Years_KRESNA), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_KRESNA$CrossSelling_KRESNA), 
           x1 = max(data_KRESNA$CrossSelling_KRESNA), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_KRESNA

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_KRESNA <- data_KRESNA %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_KRESNA = min(CrossSelling_KRESNA, na.rm = TRUE),
    Max_CrossSelling_KRESNA = max(CrossSelling_KRESNA, na.rm = TRUE),
    Min_Average3Years_KRESNA = min(Average3Years_KRESNA, na.rm = TRUE),
    Max_Average3Years_KRESNA = max(Average3Years_KRESNA, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_KRESNA = 0.5 - Min_CrossSelling_KRESNA,
    BatasAtas_CrossSelling_KRESNA = 0.5 + Max_CrossSelling_KRESNA,
    BatasBawah_Average3Years_KRESNA = 0.5 - Min_Average3Years_KRESNA,
    BatasAtas_Average3Years_KRESNA = 0.5 + Max_Average3Years_KRESNA
  )

# Tampilkan hasil
summary_kuadran_KRESNA

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

10 PRODUK KUPEDES

TAHAPAN_1

file_path_KUPEDES <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_KUPEDES.xlsx"

# Baca sheet pertama dari file Excel
data_KUPEDES <- read_excel(file_path_KUPEDES)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_KUPEDES)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_KUPEDES$CrossSelling_KUPEDES, na.rm = TRUE)
mean_y <- mean(data_KUPEDES$Average3Years_KUPEDES, na.rm = TRUE)

# Tambahkan kolom kuadran
data_KUPEDES <- data_KUPEDES %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_KUPEDES >= mean_x & Average3Years_KUPEDES >= mean_y ~ "Kuadran I",
      CrossSelling_KUPEDES < mean_x & Average3Years_KUPEDES >= mean_y ~ "Kuadran II",
      CrossSelling_KUPEDES < mean_x & Average3Years_KUPEDES < mean_y ~ "Kuadran III",
      CrossSelling_KUPEDES >= mean_x & Average3Years_KUPEDES < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_KUPEDES)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_KUPEDES <- plot_ly(
  data = data_KUPEDES,
  x = ~CrossSelling_KUPEDES,
  y = ~Average3Years_KUPEDES,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_KUPEDES:", CABANG_KUPEDES, "<br>CrossSelling_KUPEDES:", CrossSelling_KUPEDES, "<br>Average3Years_KUPEDES:", Average3Years_KUPEDES, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Kupedes",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_KUPEDES$Average3Years_KUPEDES), y1 = max(data_KUPEDES$Average3Years_KUPEDES), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_KUPEDES$CrossSelling_KUPEDES), 
           x1 = max(data_KUPEDES$CrossSelling_KUPEDES), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_KUPEDES

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_KUPEDES <- data_KUPEDES %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_KUPEDES = min(CrossSelling_KUPEDES, na.rm = TRUE),
    Max_CrossSelling_KUPEDES = max(CrossSelling_KUPEDES, na.rm = TRUE),
    Min_Average3Years_KUPEDES = min(Average3Years_KUPEDES, na.rm = TRUE),
    Max_Average3Years_KUPEDES = max(Average3Years_KUPEDES, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_KUPEDES = 0.5 - Min_CrossSelling_KUPEDES,
    BatasAtas_CrossSelling_KUPEDES = 0.5 + Max_CrossSelling_KUPEDES,
    BatasBawah_Average3Years_KUPEDES = 0.5 - Min_Average3Years_KUPEDES,
    BatasAtas_Average3Years_KUPEDES = 0.5 + Max_Average3Years_KUPEDES
  )

# Tampilkan hasil
summary_kuadran_KUPEDES

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

11 PRODUK ARRUM MIKRO

TAHAPAN_1

file_path_ARRUMMIKRO <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_ARRUM MIKRO.xlsx"

# Baca sheet pertama dari file Excel
data_ARRUMMIKRO <- read_excel(file_path_ARRUMMIKRO)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_ARRUMMIKRO)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_ARRUMMIKRO$CrossSelling_ARRUMMIKRO, na.rm = TRUE)
mean_y <- mean(data_ARRUMMIKRO$Average3Years_ARRUMMIKRO, na.rm = TRUE)

# Tambahkan kolom kuadran
data_ARRUMMIKRO <- data_ARRUMMIKRO %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_ARRUMMIKRO >= mean_x & Average3Years_ARRUMMIKRO >= mean_y ~ "Kuadran I",
      CrossSelling_ARRUMMIKRO < mean_x & Average3Years_ARRUMMIKRO >= mean_y ~ "Kuadran II",
      CrossSelling_ARRUMMIKRO < mean_x & Average3Years_ARRUMMIKRO < mean_y ~ "Kuadran III",
      CrossSelling_ARRUMMIKRO >= mean_x & Average3Years_ARRUMMIKRO < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_ARRUMMIKRO)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_ARRUMMIKRO <- plot_ly(
  data = data_ARRUMMIKRO,
  x = ~CrossSelling_ARRUMMIKRO,
  y = ~Average3Years_ARRUMMIKRO,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_ARRUMMIKRO:", CABANG_ARRUMMIKRO, "<br>CrossSelling_ARRUMMIKRO:", CrossSelling_ARRUMMIKRO, "<br>Average3Years_ARRUMMIKRO:", Average3Years_ARRUMMIKRO, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Arrum Mikro",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_ARRUMMIKRO$Average3Years_ARRUMMIKRO), y1 = max(data_ARRUMMIKRO$Average3Years_ARRUMMIKRO), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_ARRUMMIKRO$CrossSelling_ARRUMMIKRO), 
           x1 = max(data_ARRUMMIKRO$CrossSelling_ARRUMMIKRO), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_ARRUMMIKRO

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_ARRUMMIKRO <- data_ARRUMMIKRO %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_ARRUMMIKRO = min(CrossSelling_ARRUMMIKRO, na.rm = TRUE),
    Max_CrossSelling_ARRUMMIKRO = max(CrossSelling_ARRUMMIKRO, na.rm = TRUE),
    Min_Average3Years_ARRUMMIKRO = min(Average3Years_ARRUMMIKRO, na.rm = TRUE),
    Max_Average3Years_ARRUMMIKRO = max(Average3Years_ARRUMMIKRO, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_ARRUMMIKRO = 0.5 - Min_CrossSelling_ARRUMMIKRO,
    BatasAtas_CrossSelling_ARRUMMIKRO = 0.5 + Max_CrossSelling_ARRUMMIKRO,
    BatasBawah_Average3Years_ARRUMMIKRO = 0.5 - Min_Average3Years_ARRUMMIKRO,
    BatasAtas_Average3Years_ARRUMMIKRO = 0.5 + Max_Average3Years_ARRUMMIKRO
  )

# Tampilkan hasil
summary_kuadran_ARRUMMIKRO

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

12 PRODUK ARRUM EXPRESS LOAN

TAHAPAN_1

file_path_ARRUMEXPRESSLOAN <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_ARRUM EXPRESS LOAN.xlsx"

# Baca sheet pertama dari file Excel
data_ARRUMEXPRESSLOAN <- read_excel(file_path_ARRUMEXPRESSLOAN)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_ARRUMEXPRESSLOAN)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_ARRUMEXPRESSLOAN$CrossSelling_ARRUMEXPRESSLOAN, na.rm = TRUE)
mean_y <- mean(data_ARRUMEXPRESSLOAN$Average3Years_ARRUMEXPRESSLOAN, na.rm = TRUE)

# Tambahkan kolom kuadran
data_ARRUMEXPRESSLOAN <- data_ARRUMEXPRESSLOAN %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_ARRUMEXPRESSLOAN >= mean_x & Average3Years_ARRUMEXPRESSLOAN >= mean_y ~ "Kuadran I",
      CrossSelling_ARRUMEXPRESSLOAN < mean_x & Average3Years_ARRUMEXPRESSLOAN >= mean_y ~ "Kuadran II",
      CrossSelling_ARRUMEXPRESSLOAN < mean_x & Average3Years_ARRUMEXPRESSLOAN < mean_y ~ "Kuadran III",
      CrossSelling_ARRUMEXPRESSLOAN >= mean_x & Average3Years_ARRUMEXPRESSLOAN < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_ARRUMEXPRESSLOAN)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_ARRUMEXPRESSLOAN <- plot_ly(
  data = data_ARRUMEXPRESSLOAN,
  x = ~CrossSelling_ARRUMEXPRESSLOAN,
  y = ~Average3Years_ARRUMEXPRESSLOAN,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_ARRUMEXPRESSLOAN:", CABANG_ARRUMEXPRESSLOAN, "<br>CrossSelling_ARRUMEXPRESSLOAN:", CrossSelling_ARRUMEXPRESSLOAN, "<br>Average3Years_ARRUMEXPRESSLOAN:", Average3Years_ARRUMEXPRESSLOAN, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Arrum Express Loan",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_ARRUMEXPRESSLOAN$Average3Years_ARRUMEXPRESSLOAN), y1 = max(data_ARRUMEXPRESSLOAN$Average3Years_ARRUMEXPRESSLOAN), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_ARRUMEXPRESSLOAN$CrossSelling_ARRUMEXPRESSLOAN), 
           x1 = max(data_ARRUMEXPRESSLOAN$CrossSelling_ARRUMEXPRESSLOAN), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_ARRUMEXPRESSLOAN

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_ARRUMEXPRESSLOAN <- data_ARRUMEXPRESSLOAN %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_ARRUMEXPRESSLOAN = min(CrossSelling_ARRUMEXPRESSLOAN, na.rm = TRUE),
    Max_CrossSelling_ARRUMEXPRESSLOAN = max(CrossSelling_ARRUMEXPRESSLOAN, na.rm = TRUE),
    Min_Average3Years_ARRUMEXPRESSLOAN = min(Average3Years_ARRUMEXPRESSLOAN, na.rm = TRUE),
    Max_Average3Years_ARRUMEXPRESSLOAN = max(Average3Years_ARRUMEXPRESSLOAN, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_ARRUMEXPRESSLOAN = 0.5 - Min_CrossSelling_ARRUMEXPRESSLOAN,
    BatasAtas_CrossSelling_ARRUMEXPRESSLOAN = 0.5 + Max_CrossSelling_ARRUMEXPRESSLOAN,
    BatasBawah_Average3Years_ARRUMEXPRESSLOAN = 0.5 - Min_Average3Years_ARRUMEXPRESSLOAN,
    BatasAtas_Average3Years_ARRUMEXPRESSLOAN = 0.5 + Max_Average3Years_ARRUMEXPRESSLOAN
  )

# Tampilkan hasil
summary_kuadran_ARRUMEXPRESSLOAN

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

13 PRODUK AMANAH

TAHAPAN_1

file_path_AMANAH <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_AMANAH.xlsx"

# Baca sheet pertama dari file Excel
data_AMANAH <- read_excel(file_path_AMANAH)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_AMANAH)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_AMANAH$CrossSelling_AMANAH, na.rm = TRUE)
mean_y <- mean(data_AMANAH$Average3Years_AMANAH, na.rm = TRUE)

# Tambahkan kolom kuadran
data_AMANAH <- data_AMANAH %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_AMANAH >= mean_x & Average3Years_AMANAH >= mean_y ~ "Kuadran I",
      CrossSelling_AMANAH < mean_x & Average3Years_AMANAH >= mean_y ~ "Kuadran II",
      CrossSelling_AMANAH < mean_x & Average3Years_AMANAH < mean_y ~ "Kuadran III",
      CrossSelling_AMANAH >= mean_x & Average3Years_AMANAH < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_AMANAH)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_AMANAH <- plot_ly(
  data = data_AMANAH,
  x = ~CrossSelling_AMANAH,
  y = ~Average3Years_AMANAH,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_AMANAH:", CABANG_AMANAH, "<br>CrossSelling_AMANAH:", CrossSelling_AMANAH, "<br>Average3Years_AMANAH:", Average3Years_AMANAH, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Amanah",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_AMANAH$Average3Years_AMANAH), y1 = max(data_AMANAH$Average3Years_AMANAH), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_AMANAH$CrossSelling_AMANAH), 
           x1 = max(data_AMANAH$CrossSelling_AMANAH), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_AMANAH

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_AMANAH <- data_AMANAH %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_AMANAH = min(CrossSelling_AMANAH, na.rm = TRUE),
    Max_CrossSelling_AMANAH = max(CrossSelling_AMANAH, na.rm = TRUE),
    Min_Average3Years_AMANAH = min(Average3Years_AMANAH, na.rm = TRUE),
    Max_Average3Years_AMANAH = max(Average3Years_AMANAH, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_AMANAH = 0.5 - Min_CrossSelling_AMANAH,
    BatasAtas_CrossSelling_AMANAH = 0.5 + Max_CrossSelling_AMANAH,
    BatasBawah_Average3Years_AMANAH = 0.5 - Min_Average3Years_AMANAH,
    BatasAtas_Average3Years_AMANAH = 0.5 + Max_Average3Years_AMANAH
  )

# Tampilkan hasil
summary_kuadran_AMANAH

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

14 PRODUK RAHN TASJILY TANAH

TAHAPAN_1

file_path_RTT <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_RTT.xlsx"

# Baca sheet pertama dari file Excel
data_RTT <- read_excel(file_path_RTT)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_RTT)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_RTT$CrossSelling_RTT, na.rm = TRUE)
mean_y <- mean(data_RTT$Average3Years_RTT, na.rm = TRUE)

# Tambahkan kolom kuadran
data_RTT <- data_RTT %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_RTT >= mean_x & Average3Years_RTT >= mean_y ~ "Kuadran I",
      CrossSelling_RTT < mean_x & Average3Years_RTT >= mean_y ~ "Kuadran II",
      CrossSelling_RTT < mean_x & Average3Years_RTT < mean_y ~ "Kuadran III",
      CrossSelling_RTT >= mean_x & Average3Years_RTT < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_RTT)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_RTT <- plot_ly(
  data = data_RTT,
  x = ~CrossSelling_RTT,
  y = ~Average3Years_RTT,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_RTT:", CABANG_RTT, "<br>CrossSelling_RTT:", CrossSelling_RTT, "<br>Average3Years_RTT:", Average3Years_RTT, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Rahn Tasjily Tanah",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_RTT$Average3Years_RTT), y1 = max(data_RTT$Average3Years_RTT), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_RTT$CrossSelling_RTT), 
           x1 = max(data_RTT$CrossSelling_RTT), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_RTT

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_RTT <- data_RTT %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_RTT = min(CrossSelling_RTT, na.rm = TRUE),
    Max_CrossSelling_RTT = max(CrossSelling_RTT, na.rm = TRUE),
    Min_Average3Years_RTT = min(Average3Years_RTT, na.rm = TRUE),
    Max_Average3Years_RTT = max(Average3Years_RTT, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_RTT = 0.5 - Min_CrossSelling_RTT,
    BatasAtas_CrossSelling_RTT = 0.5 + Max_CrossSelling_RTT,
    BatasBawah_Average3Years_RTT = 0.5 - Min_Average3Years_RTT,
    BatasAtas_Average3Years_RTT = 0.5 + Max_Average3Years_RTT
  )

# Tampilkan hasil
summary_kuadran_RTT

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.

15 PRODUK DIGITAL LENDING

TAHAPAN_1

file_path_DIGITALLENDING <- 
  "E:/MAPPING CABANG/CABANG_AVERAGE_CROSS SELLING_DIGITAL LENDING.xlsx"

# Baca sheet pertama dari file Excel
data_DIGITALLENDING <- read_excel(file_path_DIGITALLENDING)

# Pastikan kolom-kolom sesuai: CrossSelling dan Average3Years
head(data_DIGITALLENDING)

TAHAPAN 2

# Hitung rata-rata X dan Y
mean_x <- mean(data_DIGITALLENDING$CrossSelling_DIGITALLENDING, na.rm = TRUE)
mean_y <- mean(data_DIGITALLENDING$Average3Years_DIGITALLENDING, na.rm = TRUE)

# Tambahkan kolom kuadran
data_DIGITALLENDING <- data_DIGITALLENDING %>%
  mutate(
    Kuadran = case_when(
      CrossSelling_DIGITALLENDING >= mean_x & Average3Years_DIGITALLENDING >= mean_y ~ "Kuadran I",
      CrossSelling_DIGITALLENDING < mean_x & Average3Years_DIGITALLENDING >= mean_y ~ "Kuadran II",
      CrossSelling_DIGITALLENDING < mean_x & Average3Years_DIGITALLENDING < mean_y ~ "Kuadran III",
      CrossSelling_DIGITALLENDING >= mean_x & Average3Years_DIGITALLENDING < mean_y ~ "Kuadran IV"
    )
  )

# Lihat data dengan kuadran
head(data_DIGITALLENDING)

TAHAPAN 3

# Plot interaktif dengan plotly
plot_DIGITALLENDING <- plot_ly(
  data = data_DIGITALLENDING,
  x = ~CrossSelling_DIGITALLENDING,
  y = ~Average3Years_DIGITALLENDING,
  color = ~Kuadran,
  colors = c("green", "orange", "red", "purple"),
  text = ~paste("CABANG_DIGITALLENDING:", CABANG_DIGITALLENDING, "<br>CrossSelling_DIGITALLENDING:", CrossSelling_DIGITALLENDING, "<br>Average3Years_DIGITALLENDING:", Average3Years_DIGITALLENDING, "<br>Kuadran:", Kuadran),
  type = 'scatter',
  mode = 'markers'
) %>%
  layout(
    title = "Analisa 4 Kuadran Cabang Produk Digital Lending",
    xaxis = list(title = "Cross Selling (X)"),
    yaxis = list(title = "Average 3 Tahun Terakhir (Y)"),
    shapes = list(
      # Garis vertikal (rata-rata CrossSelling)
      list(type = "line", x0 = mean_x, x1 = mean_x, y0 = min(data_DIGITALLENDING$Average3Years_DIGITALLENDING), y1 = max(data_DIGITALLENDING$Average3Years_DIGITALLENDING), line = list(color = "red", dash = "dash")),
      # Garis horizontal (rata-rata Average3Years)
      list(type = "line", x0 = min(data_DIGITALLENDING$CrossSelling_DIGITALLENDING), 
           x1 = max(data_DIGITALLENDING$CrossSelling_DIGITALLENDING), y0 = mean_y, y1 = mean_y, line = list(color = "blue", dash = "dash"))
    )
  )

# Tampilkan plot interaktif
plot_DIGITALLENDING

TAHAPAN 4

# Pastikan library dplyr terpasang
library(dplyr)

# Hitung batas bawah dan batas atas masing-masing kuadran
summary_kuadran_DIGITALLENDING <- data_DIGITALLENDING %>%
  group_by(Kuadran) %>%
  summarise(
    Min_CrossSelling_DIGITALLENDING = min(CrossSelling_DIGITALLENDING, na.rm = TRUE),
    Max_CrossSelling_DIGITALLENDING = max(CrossSelling_DIGITALLENDING, na.rm = TRUE),
    Min_Average3Years_DIGITALLENDING = min(Average3Years_DIGITALLENDING, na.rm = TRUE),
    Max_Average3Years_DIGITALLENDING = max(Average3Years_DIGITALLENDING, na.rm = TRUE)
  ) %>%
  mutate(
    BatasBawah_CrossSelling_DIGITALLENDING = 0.5 - Min_CrossSelling_DIGITALLENDING,
    BatasAtas_CrossSelling_DIGITALLENDING = 0.5 + Max_CrossSelling_DIGITALLENDING,
    BatasBawah_Average3Years_DIGITALLENDING = 0.5 - Min_Average3Years_DIGITALLENDING,
    BatasAtas_Average3Years_DIGITALLENDING = 0.5 + Max_Average3Years_DIGITALLENDING
  )

# Tampilkan hasil
summary_kuadran_DIGITALLENDING

Hasil Summarry_kuadran merupakan nilai batas bawah (BB) dan nilai batas atas (BA) masing-masing kuadran.