-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmidterm-grades.qmd
138 lines (102 loc) · 3.31 KB
/
midterm-grades.qmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
---
title: "Midterm-Final Results / Vize ve Final Sonuçları"
date: "20240807"
format: html
typora-copy-images-to: images
---
## Final Sınavı Sonuçları
```{r}
#| echo: false
#| warning: false
#| messages: false
library(tidyverse)
library(DT)
tr_final_data <- read_csv("tr-final-scores.csv",col_types = "ci")
en_final_data <- read_csv("en-final-scores.csv",col_types = "ci")
```
### Grup 1 (Türkçe) Final sınavı sonuçları
Final sınavına katılan öğrenci sayısı: **`r nrow(tr_final_data)`** ve final notlarının ortalaması: **`r round(mean(tr_final_data$final),1)`**. Aşağıda, final notlarının dağılımı verilmiştir.
```{r}
#| echo: false
#| fig-height: 4
tr_final_data |>
select(id, final) |>
count(final) |>
ggplot(aes(x=final, y=n)) +
geom_col() +
scale_x_continuous(breaks = seq(5, 100, by = 5)) +
labs(x = "Final Notu", y = "Öğrenci Sayısı") +
theme_linedraw()
```
Aşağıdaki tabloda, sayfaları gezinerek veya arama kutusunda öğrenci numaranızı arayarak notlarınızı öğrenebilirsiniz.
```{r}
#| echo: false
tr_final_data |> arrange(id) |> datatable(rownames = FALSE)
```
### Group 2 (EN) results
Total number of students took the exam: **`r nrow(en_final_data)`** and average score is: **`r mean(en_final_data$final)`**. Below is the distribution of final exam scores:
```{r}
#| echo: false
#| fig-height: 4
en_final_data |>
select(id, final) |>
count(final) |>
ggplot(aes(x=final, y=n)) +
geom_col() +
scale_x_continuous(breaks = seq(5, 100, by = 5)) +
labs(x = "Final Score", y = "Number of Students") +
theme_linedraw()
```
And here's the scores. You can scroll pages or search for your student number in search box.
```{r}
#| echo: false
en_final_data |> arrange(id) |> datatable(rownames = FALSE)
```
## Vize sonuçları
### Grup 1 (Türkçe) sonuçları
```{r}
#| echo: false
#| warning: false
#| messages: false
library(tidyverse)
library(DT)
tr_data <- read_csv("tr-midterm-scores.csv",col_types = "ci")
en_data <- read_csv("en-midterm-scores.csv",col_types = "ci")
```
Sınava katılan öğrenci sayısı: **`r nrow(tr_data)`** ve vize notlarının ortalaması: **`r round(mean(tr_data$midterm),1)`**. Aşağıda, vize notlarının dağılımı verilmiştir.
```{r}
#| echo: false
#| fig-height: 4
tr_data |>
select(id, midterm) |>
count(midterm) |>
ggplot(aes(x=midterm, y=n)) +
geom_col() +
scale_x_continuous(breaks = seq(5, 100, by = 5)) +
labs(x = "Vize Notu", y = "Öğrenci Sayısı") +
theme_linedraw()
```
Aşağıdaki tabloda, sayfaları gezinerek veya arama kutusunda öğrenci numaranızı arayarak notlarınızı öğrenebilirsiniz.
```{r}
#| echo: false
tr_data |> arrange(id) |> datatable(rownames = FALSE)
```
### Group 2 (EN) results
Total number of students took the exam: **`r nrow(en_data)`** and average score is: **`r mean(en_data$midterm)`**. Below is the distribution of scores:
```{r}
#| echo: false
#| fig-height: 4
en_data |>
select(id, midterm) |>
count(midterm) |>
ggplot(aes(x=midterm, y=n)) +
geom_col() +
scale_x_continuous(breaks = seq(5, 100, by = 5)) +
labs(x = "Midterm Score", y = "Number of Students") +
theme_linedraw()
```
And here's the scores. You can scroll pages or search for your student number in search box.
```{r}
#| echo: false
en_data |> arrange(id) |> datatable(rownames = FALSE)
```