MMZI – kolokvij 1

Analiza bodova i utrošenog vremena

Učitavanje paketa

library(tidyverse)

Učitavanje podataka

podaci <- read.csv("kol1.csv")
podaci2 <- podaci %>% transmute(student = paste(Prezime, Ime), 
           Vrijeme = as.numeric(difftime(as.POSIXct(Završeno, format="%d. %B %Y. %H:%M"),
                                         as.POSIXct(Započeto, format="%d. %B %Y. %H:%M"),
                                         units='mins')), Bodovi = round(Bodovi)) %>% 
           filter(student != "Ukupni prosjek ")

Studenti s brojem bodova između 16 i 20

bodovi16 <- podaci2 %>% filter(Bodovi >= 16)
length(bodovi16$student)

## [1] 19

ggplot(bodovi16) + geom_point(aes(x=Vrijeme, y=student),size=6, color="#2266ee") +
  geom_segment(aes(x=Vrijeme, y=student, xend = Bodovi, yend = student), size = 2, color="#2266ee") +
  geom_point(aes(x=Bodovi, y=student),size=6, color="#ff5589") +
  geom_segment(aes(x=Bodovi, y=student, xend = 0, yend = student), size = 2, color="#ff5589") +
  geom_text(aes(x=Vrijeme, y=student, label = Vrijeme), color = "white", size = 3) +
  geom_text(aes(x=Bodovi, y=student, label = Bodovi), color = "white", size = 3) +
  labs(x="Bodovi / Vrijeme (min)")

Studenti s brojem bodova 14 ili 15

bodovi14do15 <- podaci2 %>% filter(Bodovi %in% 14:15)
length(bodovi14do15$student)

## [1] 31

ggplot(bodovi14do15) + geom_point(aes(x=Vrijeme, y=student),size=6, color="#2266ee") +
  geom_segment(aes(x=Vrijeme, y=student, xend = Bodovi, yend = student), size = 2, color="#2266ee") +
  geom_point(aes(x=Bodovi, y=student),size=6, color="#ff5589") +
  geom_segment(aes(x=Bodovi, y=student, xend = 0, yend = student), size = 2, color="#ff5589") +
  geom_text(aes(x=Vrijeme, y=student, label = Vrijeme), color = "white", size = 3) +
  geom_text(aes(x=Bodovi, y=student, label = Bodovi), color = "white", size = 3) +
  labs(x="Bodovi / Vrijeme (min)")

Studenti s brojem bodova 12 ili 13

bodovi12do13 <- podaci2 %>% filter(Bodovi %in% 12:13)
length(bodovi12do13$student)

## [1] 32

ggplot(bodovi12do13) + geom_point(aes(x=Vrijeme, y=student),size=6, color="#2266ee") +
  geom_segment(aes(x=Vrijeme, y=student, xend = Bodovi, yend = student), size = 2, color="#2266ee") +
  geom_point(aes(x=Bodovi, y=student),size=6, color="#ff5589") +
  geom_segment(aes(x=Bodovi, y=student, xend = 0, yend = student), size = 2, color="#ff5589") +
  geom_text(aes(x=Vrijeme, y=student, label = Vrijeme), color = "white", size = 3) +
  geom_text(aes(x=Bodovi, y=student, label = Bodovi), color = "white", size = 3) +
  labs(x="Bodovi / Vrijeme (min)")

Studenti s brojem bodova 10 ili 11

bodovi10do11 <- podaci2 %>% filter(Bodovi %in% 10:11)
length(bodovi10do11$student)

## [1] 37

ggplot(bodovi10do11) + geom_point(aes(x=Vrijeme, y=student),size=6, color="#2266ee") +
  geom_segment(aes(x=Vrijeme, y=student, xend = Bodovi, yend = student), size = 2, color="#2266ee") +
  geom_point(aes(x=Bodovi, y=student),size=6, color="#ff5589") +
  geom_segment(aes(x=Bodovi, y=student, xend = 0, yend = student), size = 2, color="#ff5589") +
  geom_text(aes(x=Vrijeme, y=student, label = Vrijeme), color = "white", size = 3) +
  geom_text(aes(x=Bodovi, y=student, label = Bodovi), color = "white", size = 3) +
  labs(x="Bodovi / Vrijeme (min)")

Studenti s brojem bodova između 7 i 9

bodovi7do9 <- podaci2 %>% filter(Bodovi %in% 7:9)
length(bodovi7do9$student)

## [1] 64

ggplot(bodovi7do9) + geom_point(aes(x=Vrijeme, y=student),size=6, color="#2266ee") +
  geom_segment(aes(x=Vrijeme, y=student, xend = Bodovi, yend = student), size = 2, color="#2266ee") +
  geom_point(aes(x=Bodovi, y=student),size=6, color="#ff5589") +
  geom_segment(aes(x=Bodovi, y=student, xend = 0, yend = student), size = 2, color="#ff5589") +
  geom_text(aes(x=Vrijeme, y=student, label = Vrijeme), color = "white", size = 3) +
  geom_text(aes(x=Bodovi, y=student, label = Bodovi), color = "white", size = 3) +
  labs(x="Bodovi / Vrijeme (min)")

Studenti s brojem bodova između 0 i 6

bodovi6 <- podaci2 %>% filter(Bodovi %in% 0:6)
length(bodovi6$student)

## [1] 54

ggplot(bodovi6) + geom_point(aes(x=Vrijeme, y=student),size=6, color="#2266ee") +
  geom_segment(aes(x=Vrijeme, y=student, xend = Bodovi, yend = student), size = 2, color="#2266ee") +
  geom_point(aes(x=Bodovi, y=student),size=6, color="#ff5589") +
  geom_segment(aes(x=Bodovi, y=student, xend = 0, yend = student), size = 2, color="#ff5589") +
  geom_text(aes(x=Vrijeme, y=student, label = Vrijeme), color = "white", size = 3) +
  geom_text(aes(x=Bodovi, y=student, label = Bodovi), color = "white", size = 3) +
  labs(x="Bodovi / Vrijeme (min)")