passa

grades <- read_excel(“C:/Users/Nurilla/Downloads/student_grades.xlsx”) subject_data <- grades[ , 2:6] colMeans(subject_data) apply(subject_data, 2, median) apply(subject_data, 2, sd) grades$ОрташаБаға <- rowMeans(subject_data)

for (i in 1:nrow(grades)) { student_name <- as.character(grades[i, 1])
avg_grade <- round(grades$ОрташаБаға[i], 2) cat(student_name, “:”, avg_grade, “”) }

for (subject in names(subject_data)) { hist(subject_data[[subject]], main=subject, col=“skyblue”, xlab=“Баға”) }

barplot( grades$ОрташаБаға, names.arg = grades[[1]], las = 2, col = “lightgreen”, main = “Студенттердің орташа бағасы”, cex.names = 0.6 )