#Import data

library(readxl)
car = read_excel("C:/Users/ihsan/OneDrive/Documents/Semester 6/Bintel/car sales.xlsx")

#Visualisasi ##Visualisasi gender

library(ggplot2)
ggplot(data=car)+geom_bar(aes(x=Gender,fill=Gender))

Berdasarkan data, dapat dilihat pembeli mobil terbanyak adalah laki-laki

##Visualisasi Body Style

ggplot(data=car)+geom_bar(aes(x=`Body Style`,fill=`Body Style`))

Dari grafik dapat diketahui bahwa mobil dengan style SUV lebih banyak diminati

##Visualisasi Transmission

ggplot(data=car)+geom_bar(aes(x=Transmission,fill=Transmission))

Selanjutnya dapat diketahui tipe transmisi yang paling banyak diminati adalah transmisi Automatic

##Visualisasi hubungan annual income dan price

ggplot(car)+geom_point(aes(x=`Annual Income`, y=`Price ($)`))

Tidak terdapat korelasi annual income dan dan harga mobil yang dibeli, jadi bisa dikatakan pendapatan tidak memengaruhi harga mobil yang dibeli/dipilih pelanggan

#Visualisasi Tableau Berikut adalah visualisasi tambahan menggunakan tableau

Link tersebut akan langsung membuka dashboard yang sudah dipublikasi. Dashboard tersebut menggunakan filter berdasarkan Body Styles