Pendahuluan

Penelitian ini bertujuan untuk melakukan analisis visualisasi data jumlah mobil berdasarkan kota dan merek di Negara Kulim. Tujuan dari penilitian ini adalah untuk mengetahui ada berapa banyak jumlah mobil dan merek mobil di masing-masing kota di negara Kulim.

Visualisasi dilakukan menggunakan grafik batang (bar chart) dengan bantuan paket ggplot2 pada RStudio.

1. Jumlah Mobil Di Negara Kulim Berdasarkan Kotanya

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.4.3
ggplot(diamonds, aes(x = clarity)) +
  geom_bar(position = "dodge", fill = "black") +
  scale_x_discrete(
    breaks = c("I1","SI2","SI1","VS2","VS1","VVS2","VVS1","IF"),
    labels = c("Silicon","Rassion","New Boll","Billion","Recta","Solder","Reinforced","Elytra")
  ) + labs(title = "Grafik Jumlah Mobil Di Negara Kulim Berdasarkan Kotanya",
           x = "Kota",
           y = "Jumlah")  +
  
  geom_text(
    stat = "count",
    aes(label = after_stat(count)),
    vjust = -0.5
  )

Grafik Diatas menunjukkan banyaknya mobil di masing-masing kota yang ada di negara kulim. Pada grafik tersebut, Kota New Boll merupakan kota yang memiliki jumlah mobil yang paling banyak di Negara Kulim. Sementara itu, Kota Silicon merupakan kota yang memiliki jumlah mobil yang paling sedikit di Negara Kulim. Grafik diatas juga menunjukkan bahwa msaing-masing kota di Negara Kulim memiliki jumlah mobil yang sangat jauh berbeda.

2. Jumlah Mobil Berdasarkan Merek Di Negara Kulim

ggplot(diamonds, aes(x = color)) +
  geom_bar(fill = "brown") +
  geom_text(stat = "count", aes(label = after_stat(count)), vjust = -0.5) +
  scale_x_discrete(labels = c(
    "D"="Porsche","E"="Koenesigg","F"="Ferrari",
    "G"="Lamborghini","H"="Bugatti","I"="McLaren","J"="Rolls Royce"
  )) +
  labs(title = "Grafik Jumlah Mobil Berdasarkan Merek Di Negara Kulim  ", x="Merek Mobil", y="Jumlah")

Grafik diatas menunjukkan banyaknya jumlah mobil berdasarkan merek di Negara Kulim. Pada grafik tersebut, Lamborghini merupakan merek mobil terbanyak yang ada di Negara Kulim. Sementara itu, Rolls Royce menjadi merek mobil yang paling sedikit yang ada di Negara Kulim. Grafik ini juga menunjukkan banyaknya setiap merek mobil jauh berbeda kecuali Ferrari dan Koenesigg yang tipis perbedaan banyaknya.

Dari grafik tersebut, kita dapat mengetahui bahwasannya di Negara Kulim orang-orang lebih menyukai menggunakan Sport Car dibanding mobil mewah. Artinya, besar kemungkinan Negara Kulim memiliki jalan yang sangat bagus sehingga masyarakat Negara Kulim tidak takut mobil Sport Car miliknya lecet, kotor maupun rusak.

3. Jumlah Mobil Di Negara Kulim Berdasarkan Kota Dan Merek Mobil

library(ggplot2)
ggplot(diamonds, aes(x = clarity, fill = color)) +
  geom_bar(position = "dodge") +

  scale_x_discrete(
    breaks = c("I1","SI2","SI1","VS2","VS1","VVS2","VVS1","IF"),
    labels = c("Manchester","Rassion","New Boll","Billion","Recta","Solder","Reinforced","Elytra")
  ) +
  
  scale_fill_manual(
    values = c(
      "D" = "#4E79A7",  # biru lembut
      "E" = "#F28E2B",  # orange soft
      "F" = "#E15759",  # merah elegan
      "G" = "#76B7B2",  # hijau tosca
      "H" = "#59A14F",  # hijau natural
      "I" = "#EDC948",  # kuning soft
      "J" = "maroon"   # ungu lembut
    ),
    labels = c(
      "D"="Porsche","E"="Koenesigg","F"="Ferrari",
      "G"="Lamborghini","H"="Bugatti","I"="McLaren","J"="Rolls Royce"
    ),
    name = "Merek Mobil"
  )+
  labs(
    title = "Grafik Jumlah Mobil Di Negara Kulim Berdasarkan Kota dan Merek Mobil",
    x = "Kota",
    y = "Jumlah",
    fill = "Merek Mobil"
  )

Grafik diatas menunjukkan banyaknya merek mobil yang ada di masing-masing kota di Negara Kulim. Berdasarkan grafik, Lamborghini merupakan merek mobil yang paling banyak pada 4 kota di Negara Kulim. Sedangkan Rolls Royce merupakan merek mobil yang paling sedikit di semua kota.

4. Proporsi Mobil Di Negara Kulim Berdasarkan Kota Dan Merek

ggplot(diamonds, aes(x = clarity, fill = color)) +
  geom_bar(position = "fill") +
  
  scale_x_discrete(
    breaks = c("I1","SI2","SI1","VS2","VS1","VVS2","VVS1","IF"),
    labels = c("Manchester","Rassion","New Boll","Billion","Recta","Solder","Reinforced","Elytra")
  ) +
  
  scale_fill_manual(
    values = c(
      "D" = "#4E79A7",  # biru lembut
      "E" = "#F28E2B",  # orange soft
      "F" = "#E15759",  # merah elegan
      "G" = "#76B7B2",  # hijau tosca
      "H" = "#59A14F",  # hijau natural
      "I" = "#EDC948",  # kuning soft
      "J" = "maroon"   # ungu lembut
    ),
    labels = c(
      "D"="Porsche","E"="Koenesigg","F"="Ferrari",
      "G"="Lamborghini","H"="Bugatti","I"="McLaren","J"="Rolls Royce"
    ),
    name = "Merek Mobil"
  )+
  labs(
    title = "Grafik Proporsi Mobil Di Negara Kulim Berdasarkan Kota dan Merek",
    x = "Kota",
    y = "Jumlah",
    fill = "Merek Mobil"
  )

Dari grafik tersebut, terlihat proporsi masing-masing merek mobil pada masing-masing kota yang ada di Negara Kulim. Lamborghini memiliki proporsi yang cukup besar pada 4 kota yang ada di Negara Kulim, Sedangkan Rolls Royce memiliki proporsi yang kecil di Negara Kulim.