82 lines
2.7 KiB
R
82 lines
2.7 KiB
R
|
###########################################################################
|
||
|
|
###########################################################################
|
||
|
|
### ###
|
||
|
|
### UPORABNE FUNKCIJE ###
|
||
|
|
### ###
|
||
|
|
###########################################################################
|
||
|
|
###########################################################################
|
||
|
|
|
||
|
|
# Funkcija za prilagojeno zaokrozevanje stevil
|
||
|
|
round_custom = function(x) {
|
||
|
|
x <- round(x, 1)
|
||
|
|
x <- case_when(
|
||
|
|
x >= 4.9 ~ 5,
|
||
|
|
x >= 4.1 & x <= 4.8 ~ 4,
|
||
|
|
x >= 3.1 & x <= 4.0 ~ 3,
|
||
|
|
x >= 2.1 & x <= 3.0 ~ 2,
|
||
|
|
x >= 1.3 & x <= 2.0 ~ 1,
|
||
|
|
TRUE ~ NA_real_
|
||
|
|
)
|
||
|
|
return(x)
|
||
|
|
}
|
||
|
|
|
||
|
|
# Priprava podatkov za graf
|
||
|
|
prep.dat <- function(df, variable) {
|
||
|
|
if(is.null(dim(df)))
|
||
|
|
df <- round_custom(mean(df[variable], na.rm = TRUE) / 4 * 5)
|
||
|
|
else
|
||
|
|
df <- round_custom(rowMeans(df[, variable], na.rm = TRUE) / 4 * 5)
|
||
|
|
df <- data.frame(prop.table(table(df)) * 100)
|
||
|
|
names(df)[1] <- "Ocena"
|
||
|
|
names(df)[2] <- "Percentage"
|
||
|
|
return(df)
|
||
|
|
}
|
||
|
|
|
||
|
|
# Menjava znakov za imena PDF datotek grafov
|
||
|
|
replace.characters <- function(vector.to.tidy){
|
||
|
|
vector.to.tidy <- gsub("-|\\.", "", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub(" ", "", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub("\"", "", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub("\u010C", "C", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub("\u0160", "S", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub("\u017D", "Z", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub("\u010D", "c", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub("\u0161", "s", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub("\u017E", "z", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub("\u017E", "z", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub("[(\\...\\,)]", "", vector.to.tidy)
|
||
|
|
return(vector.to.tidy)
|
||
|
|
}
|
||
|
|
|
||
|
|
tidy.c.space <- function(vector.to.tidy){
|
||
|
|
vector.to.tidy <- gsub("\u010C", "\u010C ", vector.to.tidy)
|
||
|
|
vector.to.tidy <- gsub("\u010D", "\u010D", vector.to.tidy)
|
||
|
|
return(vector.to.tidy)
|
||
|
|
}
|
||
|
|
|
||
|
|
# Dodajanje oznak, ki bodo prikazane v grafu
|
||
|
|
labScore <- function(df, labelord) {
|
||
|
|
df$label <- case_when(
|
||
|
|
df$Ocena == 1 ~ "Nesprejemljivo",
|
||
|
|
df$Ocena == 2 ~ "Nezadostno",
|
||
|
|
df$Ocena == 3 ~ "Povpre\u010Dno",
|
||
|
|
df$Ocena == 4 ~ "Dobro",
|
||
|
|
df$Ocena == 5 ~ "Odli\u010Dno",
|
||
|
|
TRUE ~ NA_character_
|
||
|
|
)
|
||
|
|
|
||
|
|
# Imena po katerih bomo razvrstili stolpce v grafih
|
||
|
|
df$name <- labelord
|
||
|
|
return(df)
|
||
|
|
}
|
||
|
|
|
||
|
|
# Factor spremenljivke v stringe ter dodajanje imen oddelkov
|
||
|
|
factor_to_string <- function(df, ime_dejavnika, ime_oddelka){
|
||
|
|
tmp <- df[df$name == ime_dejavnika, ]
|
||
|
|
i <- sapply(tmp, is.factor)
|
||
|
|
tmp[i] <- lapply(tmp[i], as.character)
|
||
|
|
tmp$name <- ime_oddelka
|
||
|
|
|
||
|
|
return(tmp)
|
||
|
|
}
|