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 = color, y = carat))+
  geom_bar(stat = "identity", fill = "maroon") +
  labs(
    title = "Perbandingan Jumlah Berlian Berdasarkan Warna",
    x = "Warna Berlian",
    y = "Karat Berlian"
  )+
  theme_minimal()

Bar Chart ini menunjukkan perbandingan jumlah karat berlian berdasarkan warna dari warna D hingga J. Berlian dengan warna G memiliki jumlah karat paling tinggi dibandingkan warna lain, dapat dikatakan bahwa warna G merupakan yang paling dominan. Selanjutnya, warna H dan F juga memiliki jumlah karat yang relatif besar, meskipun masih lebih rendah dibandingkan warna G. Warna E berada pada tingkat menengah, menunjukkan jumlah karat yang cukup signifikan tetapi tidak termasuk yang tertinggi. Sementara itu, warna D dan I memiliki jumlah karat yang lebih rendah dari warna-warna sebelumnya. Warna J menunjukkan jumlah karat paling sedikit, sehingga dapat disimpulkan bahwa berlian dengan warna J merupakan yang paling sedikit jumlahnya.

ggplot(diamonds, aes(x = color, fill = cut))+
  geom_bar(position = "dodge") +
  scale_fill_manual(values = c("brown", "orange", "skyblue", "darkgreen", "darkblue"))

  labs(
    title = "Perbandingan Jumlah Berlian Berdasarkan Warna dan Potongan",
    x = "Warna Berlian",
    y = "Jumlah Berlian",
    fill = "Potongan"
  )+
  theme_minimal()
## NULL

Grup Bar Chart ini menunjukkan jumlah berlian berdasarkan kombinasi warna dari D sampai j dan kualitas potoongan, yaitu Fair (Maroon), Good (Orange), Very Good (Sky Blue), Premium (Dark Green), dan Ideal (Dark Blue). Pada Bar ini menunjukkan bahwa berlian dengan warna G dan potongan Ideal paling banyak ditemukan dalam data. Potongan Ideal mendominasi jumlah berlian pada hampir semua warna, terutama pada warna G yang memiliki jumlah terbanyak dibanding dengan warna dan potongan lainnya. Potongan Premium dan Very Good juga memiliki jumlah yang cukup besar pada setiap warna, jumlahnya meningkat dari warna D hingga mencapai puncak di warna G dan menurun pada warna H hingga J. Sebaliknya, potongan fair dan Good memiliki jumlah paling sedikit untuk seluruh warna berlian, menunjukkan bahwa berlian dengan kualitas potongan yang lebih rendah dibanding cut lainnya.

ggplot(diamonds, aes(x = color, fill = cut))+
  geom_bar(position = "fill") +
  labs(
    title = "Perbandingan Jumlah Berlian Berdasarkan Warna dan Potongan",
    x = "Warna Berlian",
    y = "Jumlah Berlian",
    fill = "Potongan"
  )+
  theme_minimal()

Proportion Bar Chart ini menunjukkan proporsi jumlah berlian berdasarkan warna dan jenis potongan, di mana setiap batang merepresentasikan total 100% jumlah berlian untuk masing-masing warna. Potongan Ideal memiliki proporsi tersebar pada seluruh warna berlian, terutama pada warna D, E, F dan G, yang menunjukkan bahwa sebagian besar berlian pada warna-warna tersebut memiliki kualitas potongan Ideal. Selanjutnya, potongan Premium menempati proporsi terbesar kedua dan relatif konsisten di semua warna. Potongan Very Good berada pada proporsi menengah dan menunjukkan pola yang cukup stabil dari warna D hingga J. Sementara itu, potongan Good memiliki proporsi yang lebih kecil dibandingkan Very Good dan Premium, namun tetap muncul secara konsisten di tiap warna berlian. Adapun potongan Fair memiliki proporsi paling kecil pada semua warna, yang berarti jumlah berlian dengan potongan Fair sangat sedikit. Selain itu, terlihat bahwa pada warna J, proporsi potongan Ideal sedikit lebih rendah dibandingkan warna lainnya, sementara proporsi Premium dan Very Good cendurung meningkat.