#DATASET

data_ring <- data.frame(
  Kota = rep(c("A", "B"), each = 5),
  Produk = rep(c("Buku", "Elektronik", "Kosmetik", "Makanan", "Pakaian"), 2),
  Persen = c(19.28, 33.73, 6.02, 16.87, 24.10,   # Kota A
             17.89, 26.32, 18.95, 13.68, 23.16)  # Kota B
)
data_ring
##    Kota     Produk Persen
## 1     A       Buku  19.28
## 2     A Elektronik  33.73
## 3     A   Kosmetik   6.02
## 4     A    Makanan  16.87
## 5     A    Pakaian  24.10
## 6     B       Buku  17.89
## 7     B Elektronik  26.32
## 8     B   Kosmetik  18.95
## 9     B    Makanan  13.68
## 10    B    Pakaian  23.16

#CHART

ggplot(data_ring, aes(x = Produk, y = Persen, fill = Kota)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "Persentase Produk per Kota",
       x = "Produk",
       y = "Persen (%)") +
  theme_minimal()