PrakKomstat_Pert2

library(ggplot2)

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

data <- read.table("PRODUK CONSOL MATERI 2 KOMSTAT.txt", header = TRUE, sep = "\t", fill = TRUE)
data$Penjualan <- as.numeric(data$Penjualan)
str(data)

## 'data.frame':    11 obs. of  3 variables:
##  $ Nama_Produk: chr  "Beras" "Minyak_Goreng" "Gula_Pasir" "Mie_Instan" ...
##  $ Kategori   : chr  "Sembako" "Sembako" "Sembako" "Makanan" ...
##  $ Penjualan  : num  35 75 60 150 85 70 55 90 65 70 ...

#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") 
  )