1. Деректер жиынын құру / Creating the Data Frame

data <- data.frame(
  Name = c("Альмуханова Қарлығаш", "Амангелді Гүлмерей", "Амантай Арлен", "Әсет Есхат", "Әбдуәзиз Ақдидар",
           "Бауыржанұлы Ерлан", "Бегайдар Мөлдір", "Ерғазина Аида", "Есімханова Дильназ", "Қабиден Әліби",
           "Қани Алмас", "Қуат Айша", "Максатхан Айжарық", "Нурсалапов Ерасыл", "Нұрберген Диас",
           "Нұртай Жанерке", "Оралұлы Өркениет", "Сапарбаева Диана", "Сапарова Назар", "Уәли Нұрдәулет",
           "Хабибулла Мұхаммед-Әмин", "Шукуманова Мидина"),
  Matematika = c(75,78,75,86,80,58,48,78,72,92,75,80,83,76,71,82,83,71,74,84,75,72),
  Algoritm = c(82,90,70,91,82,72,68,82,83,91,92,84,82,73,74,82,74,82,90,73,77,71),
  Russian = c(91,87,84,85,90,82,84,90,88,95,88,90,91,89,60,88,91,87,85,88,90,90),
  English = c(96,86,70,85,84,70,65,76,86,92,79,87,84,79,71,79,79,90,85,70,77,72),
  ICT = c(86,93,83,79,89,70,80,95,87,93,92,91,87,90,82,85,88,88,93,94,91,82)
)

2. Статистикалық есептеулер / Statistical Calculations

a. Әр пән бойынша орташа баға / Mean per Subject

subject_means <- colMeans(data[,2:6])
subject_means
## Matematika   Algoritm    Russian    English        ICT 
##   75.81818   80.22727   86.95455   80.09091   87.18182

b. Әр студенттің орташа бағасы / Mean per Student

data <- data %>% mutate(Average = rowMeans(select(., Matematika:ICT)))
kable(data)
Name Matematika Algoritm Russian English ICT Average
Альмуханова Қарлығаш 75 82 91 96 86 86.0
Амангелді Гүлмерей 78 90 87 86 93 86.8
Амантай Арлен 75 70 84 70 83 76.4
Әсет Есхат 86 91 85 85 79 85.2
Әбдуәзиз Ақдидар 80 82 90 84 89 85.0
Бауыржанұлы Ерлан 58 72 82 70 70 70.4
Бегайдар Мөлдір 48 68 84 65 80 69.0
Ерғазина Аида 78 82 90 76 95 84.2
Есімханова Дильназ 72 83 88 86 87 83.2
Қабиден Әліби 92 91 95 92 93 92.6
Қани Алмас 75 92 88 79 92 85.2
Қуат Айша 80 84 90 87 91 86.4
Максатхан Айжарық 83 82 91 84 87 85.4
Нурсалапов Ерасыл 76 73 89 79 90 81.4
Нұрберген Диас 71 74 60 71 82 71.6
Нұртай Жанерке 82 82 88 79 85 83.2
Оралұлы Өркениет 83 74 91 79 88 83.0
Сапарбаева Диана 71 82 87 90 88 83.6
Сапарова Назар 74 90 85 85 93 85.4
Уәли Нұрдәулет 84 73 88 70 94 81.8
Хабибулла Мұхаммед-Әмин 75 77 90 77 91 82.0
Шукуманова Мидина 72 71 90 72 82 77.4

c. Медиана және стандартты ауытқу / Median and Standard Deviation

subject_medians <- apply(data[,2:6], 2, median)
subject_sds <- apply(data[,2:6], 2, sd)
subject_medians
## Matematika   Algoritm    Russian    English        ICT 
##       75.5       82.0       88.0       79.0       88.0
subject_sds
## Matematika   Algoritm    Russian    English        ICT 
##   9.235730   7.565157   6.708043   8.170266   6.036684

3. Графиктер / Graphs

a. Гистограмма пәндер бойынша / Histograms by Subject

par(mfrow=c(2,3))
hist(data$Matematika, main="Mathematical Analysis", xlab="Score", col="skyblue")
hist(data$Algoritm, main="Algorithms and Programming", xlab="Score", col="orange")
hist(data$Russian, main="Russian Language", xlab="Score", col="green")
hist(data$English, main="Foreign Language", xlab="Score", col="purple")
hist(data$ICT, main="ICT", xlab="Score", col="pink")

b. Баған диаграммасы студенттердің орташа бағасы бойынша / Barplot of Students’ Average Scores

barplot(data$Average, names.arg=data$Name, las=2, col="steelblue",
        main="Average Scores per Student", ylab="Average Score", ylim=c(0,100), cex.names=0.6, yaxt = "n")
axis(2, at = seq(0, 100, 5))