p2.2

# Load library
library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.5.3

# Baca data
data = read.table(file.choose(), header = T, sep = "\t")
data

##         Nama_Produk  Kategori Penjualan
## 1             Beras   Sembako        35
## 2     Minyak_Goreng   Sembako        75
## 3        Gula_Pasir   Sembako        60
## 4        Mie_Instan   Makanan       150
## 5           Biskuit   Makanan        85
## 6          Susu_UHT   Makanan        70
## 7         The_Celup   Makanan        55
## 8       Sabun_Mandi Perawatan        90
## 9             Sampo Perawatan        65
## 10       Pasta_Gigi Perawatan        70
## 11 Sabun_Cuci_ Muka Perawatan        45

# Buat barplot dengan ggplot2
ggplot(data, aes(x = Nama_Produk, y = Penjualan, fill = Kategori)) +
  geom_bar(stat = "identity") +
  labs(
    title = "Jumlah Penjualan Produk Toko MUTIA",
    x = "Produk",
    y = "Jumlah Penjualan"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(hjust = 0.5, face = "bold")
  )

# Agregasi data (total penjualan per kategori)
total_penjualan <- aggregate(Penjualan ~ Kategori, data, sum)
total_penjualan

##    Kategori Penjualan
## 1   Makanan       360
## 2 Perawatan       270
## 3   Sembako       170

# Buat barplot dengan ggplot2
ggplot(total_penjualan, aes(x = Kategori, y = Penjualan, fill = Kategori)) +
  geom_bar(stat = "identity") +
  labs(
    title = "Jumlah Penjualan per Kategori",
    x = "Kategori",
    y = "Jumlah Penjualan"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(hjust = 0.5, face = "bold")
  )