Function reorder tidak jalan pada ggplot dengan geom_col

[galuhchynintya]

Halo tim algoritma,
saya mau bertanya, saya sedang membuat multivariate plot jenis bar plot, ini kenapa fungsi reorder tidak berjalan maksimal ya, ada 2 data yang terbalik, seperti pada gambar berikut.

Data retailer Kohl's dan Sports Direct terbalik urutannya. Apakah ada yang salah dengan syntax nya? Saya juga coba dengan menggunakan fungsi fct_reorder() seperti penjelasan pada diskusi #421 , tapi hasilnya jadi lebih aneh.
Berikut syntax nya
#data untuk plot1
sales_region <-
sales %>%
filter(season %in% "Winter",
year %in% "2021") %>%
group_by(Retailer, Region) %>%
summarise(Total.Sales = sum(Total.Sales)) %>%
#arrange(-Total.Sales) %>%
mutate(label = glue("Retailer: {Retailer}
{Region} Sales: {comma(Total.Sales)}"))

Pembuatan Visual Statis

plot1 <-
ggplot(data = sales_region,
mapping = aes(x=Total.Sales,
y=reorder(Retailer, Total.Sales),
text=label)) +
geom_col(mapping = aes(fill=Region), position = "stack") +
scale_fill_brewer(palette = "Set2")+
scale_x_continuous(labels = comma)+
labs(title = "Total Sales Based on Season",
x = "Total Sales",
y = "Retailer",
fill="Region") +
theme_classic()

Mengubah Visual Statis menjadi Interaktif

ggplotly(plot1, tooltip = 'text')

Terima kasih

[Yusraf002]

Dear @galuhchynintya

Terimakasih telah mengajukan pertanyaan melalui forum ini.

Untuk kendala yang ibu alami, kami melihat untuk code yang diberikan sudah sesuai. disini ada beberapa opsi yang bisa kami sarankan:

1. bisa dicoba tampilkan terlebih dahulu visualisasi barplot biasa tanpa informasi stack. kemudian periksa apakah hasil visual sudah terurut secara benar atau masih sama seperti kondisi diatas.
2. kiranya ibu berkenan untuk melampirkan file rmd dan dataset yang ibu gunakan untuk kami bantu solving lebih lanjut.

Bisa dicoba terlebih dahulu untuk opsi 1. jika masih terkendala bisa kita diskusikan kembali.
Best Regards,
Team Algoritma

[galuhchynintya]

ok mas yusraf, sudah di email

[Yusraf002]

Setelah kami periksa mengenai fungsi reorder disini, indikasi pertama fungsi reorder tidak mengurutkan dengan benar adalah karena pada data yang ibu miliki untuk setiap kategori Retailer berulang untuk setiap Region.

Untuk mengatasi hal tersebut, kita bisa melakukan sorting secara manual dengan menggunakan fungsi
scale_y_discreate(limits = c(urutan retailer) pada saat membuat plot statis. dengan catatan
**urutan retailer** dari **kiri ke kanan** akan ditampilkan pada bar chart menjadi **dari atas ke bawah**

Sementara untuk mendapatkan urutan retailer, disini bisa kita lakukan group_by retailer dan summarise by total.sales terlebih dahulu.

# menampilkan peringkat retailer by total sales
salreg2 %>% group_by(Retailer) %>% summarise(Total.Sales = sum(Total.Sales)) %>% arrange(Total.Sales) 

# Pembuatan Visual Statis
plot1 <- 
ggplot(data = sales_region, 
       mapping = aes(x= Total.Sales, 
                     
                     # tidak menggunakan fungsi reorder
                     y= Retailer,
                     
                     # mewarnai stack by region
                     fill = Region,
                     
                     # memberi info tooltip
                     text=label)) +
  geom_col(position = "stack") +
  
  # mengurutkan berdasarkan custom order
  scale_y_discrete(limits = c("Walmart","Amazon","Kohl's","Sports Direct","Foot Locker","West Gear"))+
  
  scale_fill_brewer(palette = "Dark2")+
  scale_x_continuous(labels = unit_format(scale = 1e-6, suffix = " mio"),
                     breaks = seq(from = 0,
                                  to = 250e6,
                                  by = 50e6))+
  

  
  labs(title = "Total Sales Based on Season",
       x = "Total Sales",
       y = "Retailer") +
  theme_classic()+
  theme(plot.title = element_text(face = "bold", size = 14, hjust = 6))
# Mengubah Visual Statis menjadi Interaktif
ggplotly(plot1, tooltip = 'text')

bisa di coba terlebih dahulu semoga berhasil, apabila jawaban ini membantu boleh mark as answer ya bu.

[galuhchynintya]

sudah sy coba mas yusraf, alhamdulillah berhasil jika memilih semua season dan semua tahun mas
tapi jadinya kalau saya hanya pilih season tertentu, tetap tidak urut karena urutan retailernya sudah ditentukan. Untuk file shiny nya saya kirimkan via email ya mas yusraf.

[Yusraf002]

Selamat sore Ibu Galuh,

Untuk melakukan filtering disini ibu bisa lakukan tahapan berikut:

1. preparasi data berisi filter musim dan tahun
2. membuat data agregasi untuk melihat urutan dan disimpan kedalam suatu objek
3. menambahkan scale_x/y_discreate pada pembuatan plot dan memasukkan limit dengan nama objek yang berisi urutan

dengan pengaplikasian sebagai berikut

Data Preparation untuk Plot 1

sales_region <- 
sales %>% 
  filter(season %in% "Winter",    # ganti musim disini
         year %in% "2021") %>%  # ganti tahun disini
  group_by(Retailer, Region) %>% 
  summarise(Total.Sales = sum(Total.Sales), .groups = 'drop') %>% 
  ungroup() %>% 
  #arrange(-Total.Sales) %>% 
  mutate(label = glue("Retailer: {Retailer}
                      {Region} Sales: {comma(Total.Sales)}"))

Membuat agregasi urutan peringkat

urutan <- sales_region %>% aggregate(Total.Sales ~ Retailer, FUN = sum) %>% arrange(Total.Sales) %>%  mutate(Retailer = as.character(Retailer)) %>% select(Retailer) %>% as.list()

urutan

Membuat visual dengan menambahkan scale_x/y_discreate

# Pembuatan Visual Statis
plot1 <- 
ggplot(data = sales_region, 
       mapping = aes(x=Total.Sales, 
                     y=reorder(Retailer, Total.Sales),
                     text=label)) +
  geom_col(mapping = aes(fill=Region), position = "stack") +
  scale_fill_brewer(palette = "Dark2")+

# menambahkan custom urutan
  scale_y_discrete(limits = urutan$Retailer)+
  scale_x_continuous(labels = unit_format(scale = 1e-6, suffix = " mio"),
                     breaks = seq(from = 0,
                                  to = 250e6,
                                  by = 50e6))+
  labs(title = "Total Sales Based on Season",
       x = "Total Sales",
       y = "Retailer",
       fill="Region") +
  theme_classic()+
  theme(plot.title = element_text(face = "bold", size = 14, hjust = 6))

# Mengubah Visual Statis menjadi Interaktif
ggplotly(plot1, tooltip = 'text')

Data preparasi dan agregasi urutan dijalankan bersamaan sebagai persiapan plot 1, dengan demikian setiap ibu memberikan filter musim dan tahun akan berhasil menyesuaikan urutan visualnya.

Gambar 1: Winter, 2021

Gambar 2: Summer, 2021

Demikian solusi yang dapat kami berikan, bisa di coba terlebih dahulu dan semoga berhasil. Apabila jawaban ini membantu boleh mark as answer ya bu.

[galuhchynintya]

Alhamdulillah sudah bisa mas Yusraf, terima kasih banyak bantuannya.