#Input data 
dt <- read.csv("D:/Semester 4/Visualisasi Data/Praktikum 3/StudentsPerformance.csv", sep=",")
dt <-as.data.frame(dt)
  1. Tuan Adams ingin mengetahui eksplorasi data gender dan group secara visual (visualisasikan secara tunggal)
library(ggplot2)
ggplot(dt, aes(x=`race.ethnicity`, fill=`gender`)) + geom_bar(position="dodge") + xlab("Nama Group") + ylab("Jumlah") + ggtitle("Klasifikasi Gender Berdasarkan Group") + theme_classic() + theme(plot.title=element_text(hjust=0.6))

  1. Nona Lily ingin mengetahui sebaran data tipe numerik secara visual (visualisasikan secara tunggal)
#Sebaran Nilai Writing
ggplot(data = dt, aes(x=`writing.score`)) + geom_histogram(fill="violet", color="purple", bins=30)+ theme_classic() + xlab("Nilai Writing") + ylab("Frekuensi") + ggtitle("Sebaran Nilai Writing") + theme(plot.title=element_text(hjust=0.5))

#Sebaran Nilai Matematika
ggplot(data = dt, aes(x=`math.score`)) + geom_histogram(fill="#Fb9fac", color="dark red", bins=30)+ theme_classic() + xlab("Nilai Matematika") + ylab("Frekuensi") + ggtitle("Sebaran Nilai Matematika") + theme(plot.title=element_text(hjust=0.5))

#sebaran Nilai Reading
ggplot(data = dt, aes(x=`reading.score`)) + geom_histogram(fill="#A5fb9f", color="dark green", bins=30)+ theme_classic() + xlab("Nilai Reading") + ylab("Frekuensi") + ggtitle("Sebaran Nilai Reading") + theme(plot.title=element_text(hjust=0.5))

  1. Tuan Bram ingin mengetahui sebaran data nilai matematika berdasarkan gender secara visual
ggplot(dt, aes(x=`math.score`, fill=`gender`)) + geom_boxplot() + xlab("Nilai Matematika") + ylab("") + ggtitle("Klasifikasi Nilai Matematika berdasarkan Gender") + theme_classic() + theme(plot.title=element_text(hjust=1))

  1. Tuan Anto ingin mengetahui sebaran data nilai reading berdasarkan grup secara visual
ggplot(dt, aes(x=`reading.score`, fill=`race.ethnicity`)) + geom_boxplot() + xlab("Nilai Reading") + ylab("") + ggtitle("Klasifikasi Nilai Reading berdasarkan Group") + theme_classic() + theme(plot.title=element_text(hjust=1));

  1. Nona An ingin mengetahui sebaran data nilai writing berdasarkan gender secara visual
ggplot(dt, aes(x=`writing.score`, fill=`gender`)) + geom_boxplot() + xlab("Nilai Writing") + ylab("") + ggtitle("Klasifikasi Nilai Writing berdasarkan Gender") + theme_classic() + theme(plot.title=element_text(hjust=1))