Data yang digunakan adalah Student Performance Data dari Kaggle. Sumber Dataset: Student Performance Dataset di Kaggle
# 1. Read Data
student_data <- read.csv("student_data.csv")
# 2. Summary (Mean, Median, Min, Max, dll)
summary(student_data$G3)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 8.00 11.00 10.42 14.00 20.00
# 3. Modus
tabel_g3 <- table(student_data$G3)
modus_g3 <- names(tabel_g3)[tabel_g3 == max(tabel_g3)]
cat("Modus dari G3 adalah:", modus_g3)
## Modus dari G3 adalah: 10
# 4. Pengelompokan Data
tabel_ringkasan <- aggregate(G3 ~ studytime, data = student_data, FUN = mean)
print(tabel_ringkasan)
## studytime G3
## 1 1 10.04762
## 2 2 10.17172
## 3 3 11.40000
## 4 4 11.25926
# 5. Histogram
hist(student_data$G3,
main = "Histogram Nilai Akhir Siswa (G3)",
xlab = "Nilai G3",
ylab = "Frekuensi",
col = "skyblue",
border = "black")