Bar Chart

ggplot(diamonds, aes(x = cut)) +
  geom_bar(fill = "skyblue",
           color = "steelblue",
           linewidth = 0.3) +
  labs(title = "Distribusi Kualitas Potongan Berlian",
       x = "Kualitas Potongan (cut)",
       y = "Frekuensi") +
  theme_minimal()

Interpretasi:

Grafik menunjukkan bahwa kategori Ideal merupakan jenis potongan yang paling banyak tersedia di dataset. Hal ini mengindikasikan bahwa pasar berlian cenderung didominasi oleh berlian dengan kualitas potongan terbaik. Sebaliknya, kategori Fair memiliki jumlah paling sedikit, menunjukkan bahwa kualitas rendah relatif jarang ditemukan.

Grouped Bar Chart

ggplot(diamonds, aes(x = cut, fill = color)) +
  geom_bar(position = "dodge",
           width = 0.7,
           color = "steelblue",
           linewidth = 0.3) +
  scale_fill_brewer(palette = "Blues") +
  labs(title = "Distribusi Cut Berdasarkan Warna Berlian",
       x = "Kualitas Potongan",
       y = "Frekuensi",
       fill = "Color") +
  theme_minimal()

Interpretasi:

Grafik ini memperlihatkan distribusi warna dalam setiap kategori potongan. Terlihat bahwa pada hampir semua kategori cut, warna G, E, dan F cukup dominan. Hal ini menunjukkan bahwa berlian dengan kualitas warna menengah hingga baik cukup umum ditemukan di berbagai tingkat potongan.

Proportion Bar Chart

ggplot(diamonds, aes(x = cut, fill = clarity)) +
  geom_bar(position = "fill",
           color = "steelblue",
           linewidth = 0.3) +
  scale_fill_brewer(palette = "RdBu") +
  labs(title = "Proporsi Clarity pada Setiap Kategori Cut",
       x = "Kualitas Potongan",
       y = "Proporsi",
       fill = "Clarity") +
  theme_minimal()

Interpretasi:

Grafik proporsi menunjukkan komposisi tingkat kejernihan dalam setiap kategori potongan. Terlihat bahwa kategori kejernihan SI1 dan VS2 memiliki proporsi cukup besar di hampir semua jenis potongan. Artinya, sebagian besar berlian berada pada tingkat kejernihan menengah, bukan yang paling tinggi maupun paling rendah.