THE DATASET
dt_mie <- read_excel("C:\\komputasi stat\\data\\data\\Penjualan_warmindo.xlsx")
str(dt_mie) # Melihat struktur data
## tibble [499 × 12] (S3: tbl_df/tbl/data.frame)
## $ id : num [1:499] 1 2 3 4 5 6 7 8 9 10 ...
## $ invoice_id : num [1:499] 1 2 3 4 5 6 7 8 9 10 ...
## $ tanggal_transaksi: chr [1:499] "4/11/22" "8/1/22" "4/3/22" "3/19/22" ...
## $ customer_id : num [1:499] 44 10 62 48 87 80 15 94 6 86 ...
## $ nama_produk : chr [1:499] "Indomie Ayam Spesial" "Indomie Ayam Spesial" "Indomie Rasa Soto Betawi" "Indomie Rasa Soto Padang" ...
## $ jenis_produk : chr [1:499] "mie-kuah" "mie-kuah" "mie-kuah" "mie-kuah" ...
## $ kategori_produk : chr [1:499] "makanan" "makanan" "makanan" "makanan" ...
## $ quantity : num [1:499] 2 2 1 3 2 1 1 2 2 1 ...
## $ harga_jual : num [1:499] 9000 9000 10000 10000 10000 9000 9000 10000 9000 9000 ...
## $ jenis_pembayaran : chr [1:499] "QRIS-OVO" "CASH" "QRIS-OTHERS" "CASH" ...
## $ jenis_pesanan : chr [1:499] "Dine-In" "Delivery" "Delivery" "Dine-In" ...
## $ nilai_penjualan : num [1:499] 18000 18000 10000 30000 20000 9000 9000 20000 18000 9000 ...
summary(dt_mie) # Ringkasan statistik
## id invoice_id tanggal_transaksi customer_id
## Min. : 1.0 Min. : 1.0 Length:499 Min. : 1.00
## 1st Qu.:125.5 1st Qu.:125.5 Class :character 1st Qu.: 22.00
## Median :250.0 Median :250.0 Mode :character Median : 48.00
## Mean :250.0 Mean :250.0 Mean : 48.02
## 3rd Qu.:374.5 3rd Qu.:374.5 3rd Qu.: 72.50
## Max. :499.0 Max. :499.0 Max. :100.00
## nama_produk jenis_produk kategori_produk quantity
## Length:499 Length:499 Length:499 Min. :1.000
## Class :character Class :character Class :character 1st Qu.:1.000
## Mode :character Mode :character Mode :character Median :2.000
## Mean :1.954
## 3rd Qu.:3.000
## Max. :3.000
## harga_jual jenis_pembayaran jenis_pesanan nilai_penjualan
## Min. : 9000 Length:499 Length:499 Min. : 9000
## 1st Qu.: 9000 Class :character Class :character 1st Qu.:10000
## Median : 9000 Mode :character Mode :character Median :18000
## Mean : 9439 Mean :18441
## 3rd Qu.:10000 3rd Qu.:27000
## Max. :10000 Max. :30000
head(dt_mie) # Melihat beberapa baris pertama
## # A tibble: 6 × 12
## id invoice_id tanggal_transaksi customer_id nama_produk jenis_produk
## <dbl> <dbl> <chr> <dbl> <chr> <chr>
## 1 1 1 4/11/22 44 Indomie Ayam Spes… mie-kuah
## 2 2 2 8/1/22 10 Indomie Ayam Spes… mie-kuah
## 3 3 3 4/3/22 62 Indomie Rasa Soto… mie-kuah
## 4 4 4 3/19/22 48 Indomie Rasa Soto… mie-kuah
## 5 5 5 4/29/22 87 Indomie Rasa Sop … mie-kuah
## 6 6 6 7/23/22 80 Indomie Ayam Spes… mie-kuah
## # ℹ 6 more variables: kategori_produk <chr>, quantity <dbl>, harga_jual <dbl>,
## # jenis_pembayaran <chr>, jenis_pesanan <chr>, nilai_penjualan <dbl>
PIE CHART
ggplot(dt_mie, aes(x = "", y = nilai_penjualan, fill = nama_produk)) +
geom_col() +
coord_polar(theta = "y") +
theme_void() +
labs(title = "Distribusi Penjualan Tiap Jenis Indomie Di Warmindo")
