library(ggplot2)

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

diamonds
## # A tibble: 53,940 × 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
##  7  0.24 Very Good I     VVS1     62.3    57   336  3.95  3.98  2.47
##  8  0.26 Very Good H     SI1      61.9    55   337  4.07  4.11  2.53
##  9  0.22 Fair      E     VS2      65.1    61   337  3.87  3.78  2.49
## 10  0.23 Very Good H     VS1      59.4    61   338  4     4.05  2.39
## # ℹ 53,930 more rows
library(ggplot2)

# 1. Bar Chart: Total Carat berdasarkan Potongan
ggplot(diamonds, aes(x = cut, y = carat)) +
  geom_bar(stat = "identity", fill = "pink") +
  labs(
    title = "Total Carat Berlian berdasarkan Potongan",
    x = "Potongan (Cut)",
    y = "Total Carat"
  ) +
  theme_minimal()

Interpretasi Bar Chart: Grafik di atas menunjukkan bahwa berlian dengan potongan Ideal memiliki total carat paling tinggi dibandingkan jenis potongan lainnya. Ini diikuti oleh potongan Premium dan Very Good. Sebaliknya, berlian dengan potongan Fair memiliki total carat yang paling rendah. Hal ini mengindikasikan bahwa di pasar, volume (berat total) berlian berkualitas tinggi (Ideal) jauh lebih mendominasi.

library(ggplot2)

# 2. Grouped Bar Chart: Jumlah Berlian berdasarkan Warna dan Potongan
ggplot(diamonds, aes(x = color, fill = cut)) +
  geom_bar(position = "dodge") +
  labs(
    title = "Jumlah Berlian Berdasarkan Warna dan Potongan",
    x = "Warna Berlian",
    y = "Jumlah Berlian",
    fill = "Potongan"
  ) +
  theme_minimal() +
  scale_fill_manual(values = c(
    "Fair" = "#FFC0CB",      # Pink
    "Good" = "#FFB6C1",      # LightPink
    "Very Good" = "#FF69B4", # HotPink
    "Premium" = "#FF1493",   # DeepPink
    "Ideal" = "#C71585"      # MediumVioletRed
  ))

Interpretasi Grouped Bar Chart: Dari grafik ini, kita bisa melihat bahwa untuk hampir semua kategori warna (dari D sampai J), potongan Ideal (batang berwarna merah muda/paling kiri di tiap grup) selalu mendominasi jumlahnya. Warna G dan E terlihat memiliki jumlah berlian terbanyak. Sementara itu, warna J (yang cenderung agak kuning) adalah yang paling sedikit jumlahnya di pasaran.

library(ggplot2)

# 3. Proportion Bar Chart: Komposisi Carat berdasarkan Cut dan Warna (Tema Pink)
ggplot(diamonds, aes(x = cut, y = carat, fill = color)) +
  geom_bar(stat = "identity", position = "fill") +
  labs(
    title = "Proporsi Carat Berlian berdasarkan Cut dan Warna",
    x = "Potongan Berlian",
    y = "Proporsi Carat",
    fill = "Warna"
  ) +
  theme_minimal() +
  scale_fill_brewer(palette = "RdPu")

Interpretasi Proportion Bar Chart: Grafik ini memperlihatkan bahwa distribusi warna berlian cenderung merata di setiap jenis potongan. Tidak ada satu jenis potongan pun yang secara drastis didominasi oleh satu warna tertentu saja. Namun, jika diperhatikan lebih teliti, potongan Ideal memiliki proporsi warna G (hijau muda) yang cukup besar, sedangkan warna J (kuning tua) proporsinya paling kecil di semua kategori potongan.