library (ggplot2)
head(diamonds)
## # A tibble: 6 × 10
##   carat cut       color clarity depth table price     x     y     z
##   <dbl> <ord>     <ord> <ord>   <dbl> <dbl> <int> <dbl> <dbl> <dbl>
## 1  0.23 Ideal     E     SI2      61.5    55   326  3.95  3.98  2.43
## 2  0.21 Premium   E     SI1      59.8    61   326  3.89  3.84  2.31
## 3  0.23 Good      E     VS1      56.9    65   327  4.05  4.07  2.31
## 4  0.29 Premium   I     VS2      62.4    58   334  4.2   4.23  2.63
## 5  0.31 Good      J     SI2      63.3    58   335  4.34  4.35  2.75
## 6  0.24 Very Good J     VVS2     62.8    57   336  3.94  3.96  2.48
ggplot(diamonds, aes(x = cut, y = carat)) +
  geom_bar(stat = "identity", fill = "navy") +
  labs(
    title = "Carat Berlian berdasarkan Cut",
    x = "Cut",
    y = "Carat Berlian"
  ) +
  theme_minimal()

#Interpretasi Bar Chart Grafik di atas menunjukkan bahwa cut Ideal memiliki total carat paling tinggi, diikuti Premium dan Very Good, sedangkan Good dan Fair paling rendah. Hal ini menunjukkan bahwa berlian dengan cut yang lebih baik cenderung lebih dominan, baik karena jumlahnya lebih banyak maupun ukurannya lebih besar, sehingga total caratnya lebih tinggi.

ggplot(diamonds, aes(x = cut, y = carat, fill = color)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(
    title = "Carat Berlian berdasarkan cut",
    x = "Potongan Berlian",
    y = "Carat Berlian",
    fill = "Warna Berlian"
   
  ) +
  theme_minimal()

#Interpretasi Grouped bar chart Pada grafik tersebut dapat dilihat bahwa ukuran berlian (carat) berbeda menurut jenis cut dan warna. Berlian dengan warna yang lebih cerah seperti I dan J cenderung memiliki carat yang lebih besar, sedangkan berlian dengan warna yang lebih gelap seperti D, E, dan F umumnya berukuran lebih kecil. Pola ini konsisten pada hampir seluruh jenis potongan, mulai dari Fair hingga Ideal, sehingga dapat disimpulkan bahwa perbedaan warna berkaitan dengan perbedaan ukuran berlian pada data tersebut.

ggplot(diamonds, aes(x = cut, y = carat, fill = color)) +
  geom_bar(stat = "identity", position = "fill") +
  labs(
    title = "Carat Berlian berdasarkan Cut dan Warna",
    x = "Potongan Berlian",
    y = "Carat Berlian",
    fill = "Warna Berlian"
  ) +
  theme_minimal()

#Interpretasi Propotion bar chart Pada grafik, carat berlian dari setiap jenis potongan (Fair, Good, Very Good, Premium, dan Ideal) cenderung tersebar secara merata. Tidak terlihat perbedaan yang mencolok antara satu potongan dengan potongan lainnya dalam hal komposisi carat. Potongan Fair dan Good sedikit lebih didominasi oleh carat ukuran menengah, sementara potongan Premium dan Ideal tersebar hampir seimbang di semua kelompok. Secara umum, hasil ini mengindikasikan bahwa kualitas potongan berlian tidak secara langsung menentukan besar kecilnya carat berlian.