INPUT DATA STUDENT PERFORMANCE

datastudent <- read.csv2("/Users/radhityaharma/Documents/SEMESTER 4/VISDAT/StudentsPerformance.csv", sep = ",")
datastudent

No 1 Tuan Adams ingin mengetahui eksplorasi data gender dan group secara visual (visualisasikan secara tunggal)

library(ggplot2)
ggplot(datastudent, aes(gender, fill = gender)) + geom_bar(color="black") + scale_fill_manual(values = c("male"="#B9F3E4","female"="#EA8FEA" )) + theme_classic()

datastudent$gender <- factor(datastudent$gender, levels=c("male", "female"));
ggplot(datastudent, aes(race.ethnicity , fill = race.ethnicity)) + geom_bar(color="black") + scale_fill_manual(values = c("group A"="#E5BA73", "group E"="#FEBE8C", "group B"="#FFFBC1", "group D"="#B6E2A1", "group C"="#829460" )) + theme_classic()

datastudent$race.ethnicity <- factor(datastudent$race.ethnicity, levels=c("group A", "group E", "group B", "group D", "group C"));

No 2 Nona Lily ingin mengetahui sebaran data tipe numerik secara visual (visualisasikan secara tunggal)

ggplot(datastudent, aes(x=math.score)) + geom_histogram(fill="#A8D1D1", color = "black", bins=30) + theme_classic() + ylab("siswa") + xlab("Skor Matematika") 

ggplot(datastudent, aes(x = math.score)) + geom_boxplot(color="black", fill="#A8D1D1") + theme_classic() + ylab("siswa") + xlab("Skor Matematika")

ggplot(datastudent, aes(x=reading.score)) + geom_histogram(fill="#DB7093", color = "black", bins=30) + theme_classic() + ylab("siswa") + xlab("Skor Membaca") 

ggplot(datastudent, aes(x =reading.score)) + geom_boxplot(color="black", fill="#DB7093") + theme_classic() + ylab("siswa") + xlab("Skor Membaca")

ggplot(datastudent, aes(x=writing.score)) + geom_histogram(fill="#FA8072", color = "black", bins=30) + theme_classic() + ylab("siswa") + xlab("Skor Menulis") 

ggplot(datastudent, aes(x =writing.score)) + geom_boxplot(color="black", fill="#FA8072") + theme_classic() + ylab("siswa") + xlab("Skor Menulis")

No 3 Tuan Bram ingin mengetahui sebaran data nilai matematika berdasarkan gender secara visual

ggplot(datastudent, aes(x =math.score, y = gender )) +  geom_boxplot(color="red", fill="#E6E6FA")+ theme_classic() + ylab("Gender") + xlab("Skor Matematika")

ggplot(datastudent, aes(x=math.score)) + geom_histogram(aes(fill=gender)) + theme_classic() + xlab("Skor Matematika")
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(datastudent, aes(x =math.score)) + geom_density(aes(color = gender)) + theme_classic() + ylab("Frekuensi") + xlab("Skor Matematika") + scale_color_manual(values=c("#DB7093", "#A8D1D1"))

ggplot(datastudent, aes( x= gender, y =math.score))+ geom_violin(aes(fill = gender))  + theme_classic() + ylab("Skor Matematika") + xlab("Grup") + scale_fill_manual(values=c("#DB7093", "#A8D1D1"))

No 4 Tuan Anto ingin mengetahui sebaran data nilai reading berdasarkan grup secara visual

ggplot(datastudent, aes(x =reading.score, y = race.ethnicity )) +  geom_boxplot(color="red", fill="#2E8B57")+ theme_classic() + ylab("Grup") + xlab("Skor Membaca")

ggplot(datastudent, aes(x=reading.score)) + geom_histogram(aes(fill=race.ethnicity)) + theme_classic()  + xlab("Skor Membaca")
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(datastudent, aes(x =reading.score)) + geom_density(aes(color = race.ethnicity)) + theme_classic() + ylab("Grup") + xlab("Skor Membaca")

ggplot(datastudent, aes( x= race.ethnicity, y =reading.score))+ geom_violin(aes(fill = race.ethnicity))  + theme_classic() + ylab("Grup") + xlab("Skor Membaca")

No 5 Nona An ingin mengetahui sebaran data nilai writing berdasarkan gender secara visual

ggplot(datastudent, aes(x =writing.score, y = gender )) +  geom_boxplot(color="black", fill="#FF8FAB")  + theme_classic() + ylab("Gender") + xlab("Skor Menulis")

ggplot(datastudent, aes(x=writing.score)) + geom_histogram(aes(fill=gender)) + theme_classic() + ylab("Frekuensi") + xlab("Skor Menulis") + scale_color_manual(values=c("#DB7093", "#A8D1D1"))
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(datastudent, aes(x =writing.score)) + geom_density(aes(color = gender)) + theme_classic() + ylab("Frekuensi") + xlab("Skor Menulis") + scale_color_manual(values=c("#DB7093", "#A8D1D1"))

ggplot(datastudent, aes( x= gender, y =writing.score))+ geom_violin(aes(fill = gender))  + theme_classic() + ylab("Skor Menulis") + xlab("Grup") + scale_fill_manual(values=c("#DB7093", "#A8D1D1"))