diff options
Diffstat (limited to 'admin/survey/modules/mod_360_1KA')
16 files changed, 1425 insertions, 0 deletions
diff --git a/admin/survey/modules/mod_360_1KA/R/360_stopinj_1ka.R b/admin/survey/modules/mod_360_1KA/R/360_stopinj_1ka.R new file mode 100644 index 0000000..16b3416 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/R/360_stopinj_1ka.R @@ -0,0 +1,970 @@ +#Sys.setlocale(category = "LC_ALL", locale = "slovenian")
+#Sys.setlocale('LC_CTYPE', 'pl_PL.UTF-8')
+Sys.setlocale(category = "LC_CTYPE", locale = "Slovenian")
+# Potrebne knjižnjice
+libraries <- c('tools', 'psych', 'Hmisc', 'reports',
+ 'fmsb','car','Cairo','openxlsx','sqldf','data.table',
+ 'gridExtra','ggplot2','Rcpp','grid','scales')
+lapply(libraries, FUN = function(y) {
+ do.call('require', list(y))})
+
+library(scales)
+# //Potrebne knjižnjice// #
+
+# Ustvarimo mape, kamor bomo shranjevali poročilo in pdf grafov
+dir.create('modules/mod_360_1KA/results', showWarnings=FALSE)
+dir.create('modules/mod_360_1KA/results/slike', showWarnings=FALSE)
+
+
+
+# Uvoz podatkov
+podatki <- read.csv2("modules/mod_360_1KA/temp/test.csv",sep=";", header=T, fill=T, stringsAsFactors=FALSE,encoding='UTF-8')
+if (podatki[1,1]==("Ustreznost") | podatki[1,1]==("Relevance")) {podatki <- podatki[2:nrow(podatki),]}
+# Izberemo le veljavne enote (status=6)
+podatki <- subset(podatki, status==6)
+
+
+# Ker bomo računalni povprečja iz baze odstranimo tudi vse manjkajolče vrednosti
+junk <- c("-1","-2", "-3", "-4", "-5")
+# Izberemo vse stolpce, ki se začnejo na črko Q
+sel <- grepl("Q",names(podatki))
+podatki[sel] <- lapply(podatki[sel], function(x) replace(x,x %in% junk, NA))
+podatki <- subset(podatki, !(is.na(Q1)))
+
+
+# Povprečja ocen agregirana glede na razmerje (nadrejeni, podrejeni, samoocenjevalec, sodelavec)
+# Uporabimo v grafih posameznih kompetenc
+razmerjeMean_Q2 <- sqldf("
+ select
+ Q1
+ ,round(avg(Q2a),1) as Q2a
+ ,round(avg(Q2b),1) as Q2b
+ ,round(avg(Q2c),1) as Q2c
+ ,round(avg(Q2d),1) as Q2d
+ ,round(avg(Q2e),1) as Q2e
+ ,round(avg(Q2f),1) as Q2f
+ from podatki
+ group by
+ Q1
+ ")
+
+razmerjeMean_Q3 <- sqldf("
+ select
+ round(avg(Q3a),1) as Q3a
+ ,round(avg(Q3b),1) as Q3b
+ ,round(avg(Q3c),1) as Q3c
+ ,round(avg(Q3d),1) as Q3d
+ ,round(avg(Q3e),1) as Q3e
+ ,round(avg(Q3f),1) as Q3f
+ ,round(avg(Q3g),1) as Q3g
+ ,round(avg(Q3h),1) as Q3h
+ ,round(avg(Q3i),1) as Q3i
+ from podatki
+ group by
+ Q1
+ ")
+
+razmerjeMean_Q4 <- sqldf("
+ select
+ round(avg(Q4a),1) as Q4a
+ ,round(avg(Q4b),1) as Q4b
+ ,round(avg(Q4c),1) as Q4c
+ ,round(avg(Q4d),1) as Q4d
+ ,round(avg(Q4e),1) as Q4e
+ ,round(avg(Q4f),1) as Q4f
+ from podatki
+ group by
+ Q1
+ ")
+
+razmerjeMean_Q5 <- sqldf("
+ select
+ round(avg(Q5a),1) as Q5a
+ ,round(avg(Q5b),1) as Q5b
+ ,round(avg(Q5c),1) as Q5c
+ ,round(avg(Q5d),1) as Q5d
+ ,round(avg(Q5e),1) as Q5e
+ ,round(avg(Q5f),1) as Q5f
+ ,round(avg(Q5g),1) as Q5g
+ from podatki
+ group by
+ Q1
+ ")
+
+razmerjeMean_Q6 <- sqldf("
+ select
+ round(avg(Q6a),1) as Q6a
+ ,round(avg(Q6b),1) as Q6b
+ ,round(avg(Q6c),1) as Q6c
+ ,round(avg(Q6d),1) as Q6d
+ ,round(avg(Q6e),1) as Q6e
+ ,round(avg(Q6f),1) as Q6f
+ from podatki
+ group by
+ Q1
+ ")
+
+razmerjeMean <- cbind(razmerjeMean_Q2,razmerjeMean_Q3,razmerjeMean_Q4,razmerjeMean_Q5,razmerjeMean_Q6)
+razmerjeMean <- as.data.frame(lapply(razmerjeMean, as.numeric))
+
+povprecja.razmerij <- razmerjeMean
+#Izračun skupnih povprečij posameznih komponent
+povprecja.razmerij$Q2_komuniciranje <- round(rowMeans(razmerjeMean[grepl("Q2",names(razmerjeMean))],na.rm=T),1)
+povprecja.razmerij$Q3_odlocanje <- round(rowMeans(razmerjeMean[grepl("Q3",names(razmerjeMean))],na.rm=T),1)
+povprecja.razmerij$Q4_vodenje_ravnanje <-round(rowMeans(razmerjeMean[grepl("Q4",names(razmerjeMean))],na.rm=T),1)
+povprecja.razmerij$Q5_vodenje_projektov <- round(rowMeans(razmerjeMean[grepl("Q5",names(razmerjeMean))],na.rm=T),1)
+povprecja.razmerij$Q6_medosebne_vescine <- round(rowMeans(razmerjeMean[grepl("Q6",names(razmerjeMean))],na.rm=T),1)
+
+
+# Povprečja posameznih kompetence glede na razmerje do ocenjevane osebe
+# Skupna povprečja po stolpcih za GRAFE
+# Prikažemo posamezne barplote povprečne ocene glede na razmerje
+Q2_komuniciranje <- round(colMeans(razmerjeMean[grepl("Q2",names(razmerjeMean))],na.rm=T),1)
+Q3_odlocanje <- round(colMeans(razmerjeMean[grepl("Q3",names(razmerjeMean))],na.rm=T),1)
+Q4_vodenje_ravnanje <- round(colMeans(razmerjeMean[grepl("Q4",names(razmerjeMean))],na.rm=T),1)
+Q5_vodenje_projektov <- round(colMeans(razmerjeMean[grepl("Q5",names(razmerjeMean))],na.rm=T),1)
+Q6_medosebne_vescine <- round(colMeans(razmerjeMean[grepl("Q6",names(razmerjeMean))],na.rm=T),1)
+## Povprečja kompetenc glede na razmerje do ocenjevane osebe// ##
+
+
+#Skupna povprečja po stolpcih za posamezne TABELE # Skupne ocene
+osnovni.podatki <- podatki
+osnovni.podatki <- as.data.frame(suppressWarnings(lapply(osnovni.podatki, as.numeric)))
+Q2_komuniciranje.skupaj <- round(colMeans(osnovni.podatki[grepl("Q2",names(osnovni.podatki))],na.rm=T),1)
+Q3_odlocanje.skupaj <- round(colMeans(osnovni.podatki[grepl("Q3",names(osnovni.podatki))],na.rm=T),1)
+Q4_vodenje_ravnanje.skupaj <- round(colMeans(osnovni.podatki[grepl("Q4",names(osnovni.podatki))],na.rm=T),1)
+Q5_vodenje_projektov.skupaj <- round(colMeans(osnovni.podatki[grepl("Q5",names(osnovni.podatki))],na.rm=T),1)
+Q6_medosebne_vescine.skupaj <- round(colMeans(osnovni.podatki[grepl("Q6",names(osnovni.podatki))],na.rm=T),1)
+
+# //TABELE # Skupne ocene// #
+
+
+# pretvorba imen stolpcev in vrstic tabel za latex znake
+toLatex <- function(tabela) {
+ if (!is.null(colnames(tabela))) {
+ colnames(tabela) <- Hmisc::latexTranslate(colnames(tabela))
+ }
+ if (!is.null(rownames(tabela))) {
+ rownames(tabela) <- Hmisc::latexTranslate(rownames(tabela))
+ }
+ return(tabela)
+}
+##
+
+##############################
+## Opisne statistike za tabele
+##############################
+# N oz. število odgovorov
+predN <- apply(osnovni.podatki[c(grepl("Q",names(osnovni.podatki)))],2, FUN=function(x) sum(!is.na(x)))
+names(predN) <- paste0(names(predN),"_N")
+#SD
+predSd <- apply(osnovni.podatki[c(grepl("Q",names(osnovni.podatki)))], 2, FUN=sd, na.rm=TRUE)
+names(predSd) <- paste0(names(predSd),"_sd")
+predSd <- round(predSd,1)
+#MIN
+predMin <- apply(osnovni.podatki[c(grepl("Q",names(osnovni.podatki)))], 2, FUN=min, na.rm=TRUE)
+names(predMin) <- paste0(names(predMin),"_max")
+predMin[predMin==Inf] <- NA
+#MAX
+predMax <- apply(osnovni.podatki[c(grepl("Q",names(osnovni.podatki)))],2, FUN=max, na.rm=TRUE)
+names(predMax) <- paste0(names(predMax),"_max")
+predMax[predMax==Inf] <- NA
+## //Opisne statistike za tabele// ##
+
+
+###########################
+#### making latex file ####
+###########################
+## LATEX TABLE 1: Q2 KOMUNICIRANJE
+mean.Q2_komuniciranje.skupaj <- round(mean(Q2_komuniciranje.skupaj),1)
+
+tabela.Q2 <- cbind.data.frame(
+ N = as.numeric(predN[grepl("Q2",names(predN))]),
+ mean = Q2_komuniciranje.skupaj,
+ sd = as.numeric(predSd[grepl("Q2",names(predSd))]),
+ min = as.numeric(predMin[grepl("Q2",names(predMin))]),
+ max = as.numeric(predMax[grepl("Q2",names(predMax))]))
+# Če je NA naj se v tabeli prikaže "."
+tabela.Q2[is.na(tabela.Q2)] <- "."
+# Dodamo skupno povprečje komponent
+tabela.Q2 <- rbind(tabela.Q2, c('',mean.Q2_komuniciranje.skupaj,'','',''))
+
+# Dodamo imena vrstic, ki bodo imena anketnih vprašanj
+namesQ2_komuniciranje <- c("Sposobnost besednega izražanja pri predstavitvi ideje.",
+ "Sposobnost pravočasnega in točnega poročanja.",
+ "Sposobnost informiranja drugih.",
+ "Sposobnost spodbujanja in uporabe odkrite komunikacije.",
+ "Sposobnost podajanja točnih in usklajenih informacij ali navodil.",
+ "Sposobnost uporabe primernih komunikacijskih orodij.")
+
+rownames(tabela.Q2) <- c(Hmisc::latexTranslate(paste0("\\hline\n",namesQ2_komuniciranje)), "\\hline\n\\textbf{Skupaj}")
+# Imena stolpcev
+colnames(tabela.Q2) <- c("\\textbf{n}","\\textbf{povprečje}","\\textbf{std. odklon}","\\textbf{min}","\\textbf{max}")
+
+# Latex tabela
+tabelatex1 <- capture.output(Hmisc::latex(toLatex(tabela.Q2),
+ caption="Povprečje komponent ",
+ rowlabel='\\textbf{Kompetence komuniciranja}',
+ file='',
+ where='H',
+ col.just=rep_len('|c', ncol(tabela.Q2)),
+ rowlabel.just='m{8cm}'))
+
+## //LATEX TABLE 1: Q2 KOMUNICIRANJE// ##
+
+
+####################################################
+## LATEX TABLE 2: Q3 Sposobnost odločanja in presoje
+####################################################
+# Izračunamo skupno povprečje
+mean.Q3_odlocanje.skupaj <- round(mean(Q3_odlocanje.skupaj),1)
+
+tabela.Q3 <- cbind.data.frame(
+ N = as.numeric(predN[grepl("Q3",names(predN))]),
+ mean = Q3_odlocanje.skupaj,
+ sd = as.numeric(predSd[grepl("Q3",names(predSd))]),
+ min = as.numeric(predMin[grepl("Q3",names(predMin))]),
+ max = as.numeric(predMax[grepl("Q3",names(predMax))]))
+
+# Če je NA naj se v tabeli prikaže "."
+tabela.Q3[is.na(tabela.Q3)] <- "."
+# Dodamo skupno povprečje komponent
+tabela.Q3 <- rbind(tabela.Q3, c('',mean.Q3_odlocanje.skupaj,'','',''))
+
+# Dodamo imena vrstic, ki bodo imena anketnih vprašanj
+namesQ3_sposobnost <- c("Sposobnost dobrih in pravočasnih odločitev.",
+ "Sposobnost samozavestnega in suverenega odločanja.",
+ "Sposobnost uporabe sistematičnega in analitičnega pristopa.",
+ "Sposobnost sprejemanja dobrih odločitev tudi pod pritiskom.",
+ "Sposobnost mediacije in iskanja konsenza med vpletenimi v konfliktu. ",
+ "Sposobnost sprejemanja odločitev in ukrepov v težkih situacijah.",
+ "Sposobnost prevzemanja odgovornosti za svoje odločitve.",
+ "Sposobnost uporabe preteklih izkušenj.",
+ "Sposobnost širokega razmišljanja.")
+
+rownames(tabela.Q3) <- c(Hmisc::latexTranslate(paste0("\\hline\n",namesQ3_sposobnost)), "\\hline\n\\textbf{Skupaj}")
+# Imena stolpcev
+colnames(tabela.Q3) <- c("\\textbf{n}","\\textbf{povprečje}","\\textbf{std. odklon}","\\textbf{min}","\\textbf{max}")
+
+# Latex tabela
+tabelatex2 <- capture.output(Hmisc::latex(toLatex(tabela.Q3),
+ caption="Povprečje komponent ",
+ rowlabel='\\textbf{Kompetence sposobnosti odločanja in presoje}',
+ file='',
+ where='H',
+ col.just=rep_len('|c', ncol(tabela.Q3)),
+ rowlabel.just='m{8cm}'))
+
+## //LATEX TABLE 2: Q3 Sposobnost odločanja in presoje// ##
+
+
+
+
+#################################################
+## LATEX TABLE 3: Q4 Vodenje in ravnanje z ljudmi
+#################################################
+# Izračunamo še skupna povprečja
+mean.Q4_vodenje_ravnanje.skupaj <- round(mean(Q4_vodenje_ravnanje.skupaj),1)
+
+tabela.Q4 <- cbind.data.frame(
+ N = as.numeric(predN[grepl("Q4",names(predN))]),
+ mean = Q4_vodenje_ravnanje.skupaj,
+ sd = as.numeric(predSd[grepl("Q4",names(predSd))]),
+ min = as.numeric(predMin[grepl("Q4",names(predMin))]),
+ max = as.numeric(predMax[grepl("Q4",names(predMax))]))
+
+# Če je NA naj se v tabeli prikaže "."
+tabela.Q4[is.na(tabela.Q4)] <- "."
+# Dodamo skupno povprečje komponent
+tabela.Q4 <- rbind(tabela.Q4, c('',mean.Q4_vodenje_ravnanje.skupaj,'','',''))
+
+# Dodamo imena vrstic, ki bodo imena anketnih vprašanj
+namesQ4_vodenje <- c("Sposobnost spodbujanja in motiviranja zaposlenih.",
+ "Sposobnost definiranja nalog in odgovornost.",
+ "Sposobnost modrega in učinkovitega delegiranja.",
+ "Sposobnost vzdrževanja dobrega, zabavnega in stimulativnega delovnega okolja.",
+ "Sposobnost nagrajevanja posamičnih in skupinskih dosežkov in dela.",
+ "Sposobnost razvijanja sodelovanja na vseh ravneh.")
+
+rownames(tabela.Q4) <- c(Hmisc::latexTranslate(paste0("\\hline\n",namesQ4_vodenje)), "\\hline\n\\textbf{Skupaj}")
+# Imena stolpcev
+colnames(tabela.Q4) <- c("\\textbf{n}","\\textbf{povprečje}","\\textbf{std. odklon}","\\textbf{min}","\\textbf{max}")
+
+# Latex tabela
+tabelatex3 <- capture.output(Hmisc::latex(toLatex(tabela.Q4),
+ caption="Povprečje komponent ",
+ rowlabel='\\textbf{Kompetence vodenja in ravnanja z ljudmi}',
+ file='',
+ where='H',
+ col.just=rep_len('|c', ncol(tabela.Q4)),
+ rowlabel.just='m{8cm}'))
+
+## //LATEX TABLE 3: Q4 Vodenje in ravnanje z ljudmi// ##
+
+
+
+
+#################################################
+## LATEX TABLE 4: Q5 Vodenje projektov
+#################################################
+# Izračunamo še skupna povprečja
+mean.Q5_vodenje_projektov.skupaj <- round(mean(Q5_vodenje_projektov.skupaj),1)
+
+tabela.Q5 <- cbind.data.frame(
+ N = as.numeric(predN[grepl("Q5",names(predN))]),
+ mean = Q5_vodenje_projektov.skupaj,
+ sd = as.numeric(predSd[grepl("Q5",names(predSd))]),
+ min = as.numeric(predMin[grepl("Q5",names(predMin))]),
+ max = as.numeric(predMax[grepl("Q5",names(predMax))]))
+
+# Če je NA naj se v tabeli prikaže "."
+tabela.Q5[is.na(tabela.Q5)] <- "."
+# Dodamo skupno povprečje komponent
+tabela.Q5 <- rbind(tabela.Q5, c('',mean.Q5_vodenje_projektov.skupaj,'','',''))
+
+# Dodamo imena vrstic, ki bodo imena anketnih vprašanj
+namesQ5_vodenje_projektov <- c("Sposobnost postavljanja jasnih in merljivih ciljev in mejnikov.",
+ "Sposobnost sistematizacije dela in procesov.",
+ "Sposobnost opredeljevanja vloge in pristojnosti ter odgovornosti.",
+ "Sposobnost definiranja potrebnih virov.",
+ "Sposobnost koordinacije procesov v celotni organizaciji.",
+ "Sposobnost spremljanja projektov in določanja korektivnih akcij.",
+ "Sposobnost vodenja več projektov hkrati.")
+
+rownames(tabela.Q5) <- c(Hmisc::latexTranslate(paste0("\\hline\n",namesQ5_vodenje_projektov)), "\\hline\n\\textbf{Skupaj}")
+# Imena stolpcev
+colnames(tabela.Q5) <- c("\\textbf{n}","\\textbf{povprečje}","\\textbf{std. odklon}","\\textbf{min}","\\textbf{max}")
+
+# Latex tabela
+tabelatex4 <- capture.output(Hmisc::latex(toLatex(tabela.Q5),
+ caption="Povprečje komponent ",
+ rowlabel='\\textbf{Kompetence vodenja projektov}',
+ file='',
+ where='H',
+ col.just=rep_len('|c', ncol(tabela.Q5)),
+ rowlabel.just='m{8cm}'))
+
+## //LATEX TABLE 4: Q5 Vodenje projektov// ##
+
+
+
+
+#################################################
+## LATEX TABLE 5: Q6 Medosebne veščine
+#################################################
+# Izračunamo še skupna povprečja
+mean.Q6_medosebne_vescine.skupaj <- round(mean(Q6_medosebne_vescine.skupaj),1)
+
+tabela.Q6 <- cbind.data.frame(
+ N = as.numeric(predN[grepl("Q6",names(predN))]),
+ mean = Q6_medosebne_vescine.skupaj,
+ sd = as.numeric(predSd[grepl("Q6",names(predSd))]),
+ min = as.numeric(predMin[grepl("Q6",names(predMin))]),
+ max = as.numeric(predMax[grepl("Q6",names(predMax))]))
+
+# Če je NA naj se v tabeli prikaže "."
+tabela.Q6[is.na(tabela.Q6)] <- "."
+# Dodamo skupno povprečje komponent
+tabela.Q6 <- rbind(tabela.Q6, c('',mean.Q6_medosebne_vescine.skupaj,'','',''))
+
+# Dodamo imena vrstic, ki bodo imena anketnih vprašanj
+namesQ6_vescine <- c("Sposobnost reševanja konfliktov.",
+ "Sposobnost poslušanja.",
+ "Sposobnost podajanja povratnih informacij in konstruktivne kritike.",
+ "Sposobnost grajenja neformalnih odnosov za doseganje ciljev.",
+ "Sposobnost prilagodljivosti in odprte glave.",
+ "Sposobnost pogajanja.")
+
+rownames(tabela.Q6) <- c(Hmisc::latexTranslate(paste0("\\hline\n",namesQ6_vescine)),"\\hline\n\\textbf{Skupaj}")
+# Imena stolpcev
+colnames(tabela.Q6) <- c("\\textbf{n}","\\textbf{povprečje}","\\textbf{std. odklon}","\\textbf{min}","\\textbf{max}")
+
+# Latex tabela
+tabelatex5 <- capture.output(Hmisc::latex(toLatex(tabela.Q6),
+ caption="Povprečje komponent",
+ rowlabel='\\textbf{Medosebne veščine}',
+ file='',
+ where='H',
+ col.just=rep_len('|c', ncol(tabela.Q6)),
+ rowlabel.just='m{8cm}'))
+
+## //LATEX TABLE 5: Q6 Medosebne veščine// ##
+
+
+
+#########
+#BARPLOT
+#########
+# Rangiranje kompetenc
+
+tabela.cont <- cbind.data.frame(
+ a = povprecja.razmerij$Q2_komuniciranje,
+ b = povprecja.razmerij$Q3_odlocanje,
+ c = povprecja.razmerij$Q4_vodenje_ravnanje,
+ d = povprecja.razmerij$Q5_vodenje_projektov,
+ e = povprecja.razmerij$Q6_medosebne_vescine)
+
+
+tabela.cont1 <- t(tabela.cont)
+tabela.cont2 <- rowMeans(tabela.cont1)
+tabela.cont1.means <- colMeans(tabela.cont1)
+
+tabela.cont <- rbind(tabela.cont1, tabela.cont1.means)
+tabela.cont2 <- rowMeans(tabela.cont)
+tabela.cont <- cbind(tabela.cont,tabela.cont2)
+tabela.cont <- round(tabela.cont, 1)
+
+tabela.odstopanje.max <- apply(tabela.cont, 1, max)
+tabela.odstopanje.min <- apply(tabela.cont, 1, min)
+tabela.odstop.skupaj <- tabela.odstopanje.max - tabela.odstopanje.min
+tabela.cont <- cbind(tabela.cont, round(tabela.odstop.skupaj,1))
+rownames(tabela.cont) <- c("Komuniciranje","Sposobnost odločanja","Vodenje in ravnanje",
+ "Vodenje projektov","Medosebne veščine",'\\hline\n\\textbf{Povprečje}')
+colnames(tabela.cont) <- c('Nadrejeni', 'Podrejeni', 'Sodelavec', 'Samoocenjevalec',"\\textbf{Skupaj}","\\textbf{Odstopanje}")
+
+# Latex tabele
+tabela.contR.tex <- capture.output(Hmisc::latex(toLatex(tabela.cont),
+ caption="Rangirane kompetence glede na povprečje rezultatov",
+ rowlabel='Kompetenca',
+ file='',
+ where='H',
+ col.just=c("|c","|c","|c","|c|","|c","|c"),
+ rowlabel.just='m{5cm}'))
+
+
+## TABELA ZA <- Rangiranje kompetenc ##
+tabela.matrix <- cbind.data.frame(
+ a = povprecja.razmerij$Q2_komuniciranje,
+ b = povprecja.razmerij$Q3_odlocanje,
+ c = povprecja.razmerij$Q4_vodenje_ravnanje,
+ d = povprecja.razmerij$Q5_vodenje_projektov,
+ e = povprecja.razmerij$Q6_medosebne_vescine)
+
+tabela.matrix<-t(tabela.matrix)
+rownames(tabela.cont) <- c("Komuniciranje","Sposobnost odločanja","Vodenje in ravnanje",
+ "Vodenje projektov","Medosebne veščine",'\\hline\n\\textbf{Povprečje}')
+colnames(tabela.matrix) <- c('Nadrejeni', 'Podrejeni', 'Enak nivo', 'Samoocenjevalec')
+tabela.matrix <- round(tabela.matrix, 1)
+
+## GRAF ##
+# BARPLOT RANGIRANIH KOMPETENC
+df <- as.data.frame(tabela.matrix)
+rownames(df) <- c("Komuniciranje", "Sposobnost odlocanja", "Vodenje in ravnanje", "Vodenje projektov", "Medosebne vescine")
+df$name <- rownames(df)
+
+# Data.table
+df2 <- melt(setDT(df), id="name")
+df2[, difference := max(value) - min(value), by = name]
+
+
+
+pdf(paste('modules/mod_360_1KA/results/slike/rangiranje_kompetenc.pdf', sep=''), family='sans', pointsize=11, width=8, height=7,encoding = 'CP1250')
+
+
+
+# GGplot
+p <- ggplot(df2, aes(x=name, y=value, fill=variable)) +
+ theme_bw()+
+ geom_bar(stat="identity",width=0.8, position="dodge") +
+ geom_line(aes(x=name, y=difference, group=1), size=1.5, color="red") +
+ scale_x_discrete(expand = c(0,0)) +
+ scale_y_continuous(expand = c(0,0), limits = c(0,5)) +
+ theme(legend.position = "bottom", axis.text.x = element_text(angle = 20,vjust = 0.3)) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) +
+ geom_text(aes(x = name, y = 0.15, label = round(value, 2), fill = variable),
+ angle = 90, position = position_dodge(width = 0.7), size = 5)
+
+# Odstranimo še imena x in y osi ter naslov legende
+p + labs(x="",y="")+ guides(fill=guide_legend(title=NULL))
+
+dev.off()
+
+tex.graf <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Razlike med ocenjevalci za povprečno oceno na \\textbf{vseh kompetencah}}",
+ paste0("\\centerline{\\includegraphics[width=0.80\\textwidth]{slike/rangiranje_kompetenc.pdf}}"),
+ "\\end{figure}")
+
+)
+## //RANGIRANJE KOMPETENC// ##
+
+
+
+#####################################
+# PRIPRAVA PDOATKOV ZA GRAFE: GGPLOT
+####################################
+# Najprej ustvarimo spremenljivke v katere zapišemo tekst vprašanj, ki se bo prikazal na grafih, na y osi
+# IMENA KOMPETENC ZA GGPLOT pod tabelami za posamenzo kompetenco. Prikaz CELOTNEGA TEKSTA ##
+######
+## TEKST Q2 KOMUNICIRANJE ##
+#####
+names(Q2_komuniciranje.skupaj) <- (namesQ2_komuniciranje)
+# Za prikaz CELOTNEGA teksta v ggplotu
+# Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.
+names.komuniciranje <- gsub('(.{1,43})(\\s|$)', '\\1\n',names(Q2_komuniciranje.skupaj))
+
+######
+## TEKST Q3 SPOSOBNOST ODLOČANJA ##
+#####
+names(Q3_odlocanje.skupaj) <- (namesQ3_sposobnost)
+# Za prikaz CELOTNEGA teksta v ggplotu
+# Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.
+names.sposobnost <- gsub('(.{1,43})(\\s|$)', '\\1\n',names(Q3_odlocanje.skupaj))
+
+######
+## TEKST Q4 Vodenje in ravnanje z ljudmi ##
+#####
+names(Q4_vodenje_ravnanje.skupaj) <- (namesQ4_vodenje)
+# Za prikaz CELOTNEGA teksta v ggplotu
+# Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.
+names.vodenje.ravnanje <- gsub('(.{1,43})(\\s|$)', '\\1\n',names(Q4_vodenje_ravnanje.skupaj))
+
+######
+## TEKST Q5 Vodenje projektov ##
+#####
+names(Q5_vodenje_projektov.skupaj) <- (namesQ5_vodenje_projektov)
+# Za prikaz CELOTNEGA teksta v ggplotu
+# Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.
+names.vodenje.projektov <- gsub('(.{1,43})(\\s|$)', '\\1\n',names(Q5_vodenje_projektov.skupaj))
+
+######
+## TEKST Q6 Medosebne veščine ##
+#####
+names(Q6_medosebne_vescine.skupaj) <- (namesQ6_vescine)
+# Za prikaz CELOTNEGA teksta v ggplotu
+# Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.
+names.vescine <- gsub('(.{1,43})(\\s|$)', '\\1\n',names(namesQ6_vescine))
+
+## //IMENA KOMPETENC// ##
+
+
+##############################################################
+## IZRAČUN POVPREČIJ POSAMEZNE SKUPINE ZA POSAMEZNO KOMPETENCO
+##############################################################
+###########
+# NADREJENI
+###########
+nadrejeni <- subset(razmerjeMean, Q1==1)
+#1 Q2 Komuniciranje
+nadrejeni.komuniciranje <- colMeans(nadrejeni[grepl("Q2",names(nadrejeni))],na.rm=T)
+#2 Q3 Sposobnost odločanja in presoje
+nadrejeni.odlocanje <- colMeans(nadrejeni[grepl("Q3",names(nadrejeni))],na.rm=T)
+#3 Q4 Vodenje in ravnanje z ljudmi
+nadrejeni.vodenje.ravananje <- colMeans(nadrejeni[grepl("Q4",names(nadrejeni))],na.rm=T)
+#5 Q5 Vodenje projektov
+nadrejeni.vodenje.projektov <- colMeans(nadrejeni[grepl("Q5",names(nadrejeni))],na.rm=T)
+#6 Q6 Medosebne veščine
+nadrejeni.vescine <- colMeans(nadrejeni[grepl("Q6",names(nadrejeni))],na.rm=T)
+## //nadrejeni// ##
+
+
+###########
+# Podrejeni
+###########
+podrejeni <- subset(razmerjeMean, Q1==2)
+#1 Q2 Komuniciranje
+podrejeni.komuniciranje <- colMeans(podrejeni[grepl("Q2",names(podrejeni))],na.rm=T)
+#2 Q3 Sposobnost odločanja in presoje
+podrejeni.odlocanje <- colMeans(podrejeni[grepl("Q3",names(podrejeni))],na.rm=T)
+#3 Q4 Vodenje in ravnanje z ljudmi
+podrejeni.vodenje.ravananje <- colMeans(podrejeni[grepl("Q4",names(podrejeni))],na.rm=T)
+#5 Q5 Vodenje projektov
+podrejeni.vodenje.projektov <- colMeans(podrejeni[grepl("Q5",names(podrejeni))],na.rm=T)
+#6 Q6 Medosebne veščine
+podrejeni.vescine <- colMeans(podrejeni[grepl("Q6",names(podrejeni))],na.rm=T)
+
+
+###########
+# Sodelavec
+###########
+sodelavec <- subset(razmerjeMean, Q1==3)
+#1 Q2 Komuniciranje
+sodelavec.komuniciranje <- colMeans(sodelavec[grepl("Q2",names(sodelavec))],na.rm=T)
+#2 Q3 Sposobnost odločanja in presoje
+sodelavec.odlocanje <- colMeans(sodelavec[grepl("Q3",names(sodelavec))],na.rm=T)
+#3 Q4 Vodenje in ravnanje z ljudmi
+sodelavec.vodenje.ravananje <- colMeans(sodelavec[grepl("Q4",names(sodelavec))],na.rm=T)
+#5 Q5 Vodenje projektov
+sodelavec.vodenje.projektov <- colMeans(sodelavec[grepl("Q5",names(sodelavec))],na.rm=T)
+#6 Q6 Medosebne veščine
+sodelavec.vescine <- colMeans(sodelavec[grepl("Q6",names(sodelavec))],na.rm=T)
+
+#################
+# Samoocenjevalec
+#################
+samoocenjevalec <- subset(razmerjeMean, Q1==4)
+#1 Q2 Komuniciranje
+samoocenjevalec.komuniciranje <- colMeans(samoocenjevalec[grepl("Q2",names(samoocenjevalec))],na.rm=T)
+#2 Q3 Sposobnost odločanja in presoje
+samoocenjevalec.odlocanje <- colMeans(samoocenjevalec[grepl("Q3",names(samoocenjevalec))],na.rm=T)
+#3 Q4 Vodenje in ravnanje z ljudmi
+samoocenjevalec.vodenje.ravananje <- colMeans(samoocenjevalec[grepl("Q4",names(samoocenjevalec))],na.rm=T)
+#5 Q5 Vodenje projektov
+samoocenjevalec.vodenje.projektov <- colMeans(samoocenjevalec[grepl("Q5",names(samoocenjevalec))],na.rm=T)
+#6 Q6 Medosebne veščine
+samoocenjevalec.vescine <- colMeans(samoocenjevalec[grepl("Q6",names(samoocenjevalec))],na.rm=T)
+## //IZRAČUN POVPREČIJ POSAMEZNE SKUPINE ZA POSAMEZNO KOMPETENCO// ##
+
+
+
+#################GGPLOT#############################
+##GGPLOT GRAF ZA POSAMEZNO SKUPINO POD TABELAMI#####
+####################################################
+
+####### GGPLOT Q2 KOMUNICIRANJE ########
+library(reshape2)
+kompetenc.Q2.KOMUNICIRANJE <- rbind(nadrejeni.komuniciranje,podrejeni.komuniciranje,sodelavec.komuniciranje,samoocenjevalec.komuniciranje)
+kompetenc.Q2.KOMUNICIRANJE <- t(as.matrix(kompetenc.Q2.KOMUNICIRANJE))
+colnames(kompetenc.Q2.KOMUNICIRANJE) <- c("Nadrejeni", "Podrejeni", "Enak nivo", "Samooc.")
+test<- c("Sposobnost besednega izrazanja pri predstavitvi ideje.",
+ "Sposobnost pravocasnega in tocnega porocanja.",
+ "Sposobnost informiranja drugih.",
+ "Sposobnost spodbujanja in uporabe odkrite komunikacije.",
+ "Sposobnost podajanja tocnih in usklajenih informacij ali navodil.",
+ "Sposobnost uporabe primernih komunikacijskih orodij.")
+rownames(kompetenc.Q2.KOMUNICIRANJE) <- test
+
+
+
+ggplot.Q2 <- melt(kompetenc.Q2.KOMUNICIRANJE)
+
+
+pdf(paste('modules/mod_360_1KA/results/slike/ggplot_komuniciranje.pdf', sep=''), pointsize=10, width=7.5, height=6.5,encoding = 'CP1250')
+
+
+
+p<-ggplot(ggplot.Q2, aes(y = value,x = Var1, fill = Var2)) + coord_flip()+
+ theme_bw() +
+ scale_y_continuous(expand=c(0,0), limits=c(0,5.4),oob = rescale_none) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) + xlim(rev(levels(ggplot.Q2$Var1)))+
+ theme(axis.title=element_blank(),axis.ticks.y=element_blank(),legend.position = "bottom",
+ axis.text.x = element_text(angle = 0,vjust = 0.4)) +
+ geom_bar(stat = "identity", width = 0.7, position = position_dodge(width=0.7)) +
+ geom_text(aes(x = Var1, y=5.2, label = round(value, 2), fill = Var2),
+ angle = 0, position = position_dodge(width = 0.7), size = 4.2)
+p <- p + labs(fill="")
+#Nastavitve sirine in višine legende
+#p + guides(fill=guide_legend(
+# keywidth=1,
+# keyheight=1,
+# default.unit="inch")
+#)
+p2 <- p +
+ stat_summary(fun.y = mean, color = "red", geom = "line", aes(group = 1)) +
+ stat_summary(fun.y = mean, color = "black", geom ="point", aes(group = 1), size = 3,
+ show.legend = FALSE)
+
+# This is the data for your dots in the graph
+foo <- as.data.frame(ggplot_build(p2)$data[[4]])
+foo$y <- round(foo$y, 1)
+
+p2 + annotate("text", x = foo$x, y = foo$y + 0.5, color = "black", label = foo$y)
+
+dev.off()
+
+# SLIKA GRAFA: Latex in PDF
+tex.ggplot.Q2 <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Povprečje komponent po skupinah \\textbf{kompetence komuniciranja}}",
+ paste0("\\centerline{\\includegraphics[width=0.85\\textwidth]{slike/ggplot_komuniciranje.pdf}}"),
+ "\\end{figure}"))
+## //GGPLOT Q2 KOMUNICIRANJE// ##
+
+#########################
+
+####### GGPLOT Q3 SPOSOBNOST ODLOČANJA IN PRESOJE ########
+
+
+pdf(paste('modules/mod_360_1KA/results/slike/ggplot_odlocanje.pdf', sep=''), family = 'sans', pointsize=10, width=7.5, height=7,encoding = 'CP1250')
+
+kompetenc.Q3.SPOSOBNOST.OD <- rbind(nadrejeni.odlocanje,podrejeni.odlocanje,sodelavec.odlocanje,samoocenjevalec.odlocanje)
+kompetenc.Q3.SPOSOBNOST.OD <- t(as.matrix(kompetenc.Q3.SPOSOBNOST.OD))
+colnames(kompetenc.Q3.SPOSOBNOST.OD) <- c("Nadrejeni", "Podrejeni", "Enak nivo", "Samooc.")
+
+
+
+#test22 <- c("Sposobnost dobrih in pravočasnih odločitev.",
+ # "odlo\u010Danja.",
+ # "Sposobnost uporabe sistemati\u010Dnega in analiti\u010Dnega pristopa.",
+ # "Sposobnost sprejemanja dobrih odločitev tudi pod pritiskom.",
+ # "Sposobnost mediacije in iskanja konsenza med vpletenimi v konfliktu. ",
+ # "Sposobnost sprejemanja odločitev in ukrepov v težkih situacijah.",
+ # "Sposobnost prevzemanja odgovornosti za svoje odločitve.",
+ # "Sposobnost uporabe preteklih izkušenj.",
+ # "Sposobnost širokega razmišljanja.")
+#rownames(kompetenc.Q3.SPOSOBNOST.OD) <- test22
+rownames(kompetenc.Q3.SPOSOBNOST.OD) <- names.sposobnost
+ggplot.Q3 <- melt(kompetenc.Q3.SPOSOBNOST.OD)
+# Če so manjkajoči podatki (NA ali NaN) v vrsticah jih odstranimo
+ggplot.Q3 <- ggplot.Q3[complete.cases(ggplot.Q3),]
+
+
+
+p<-ggplot(ggplot.Q3, aes(x = Var1, y = value, fill = Var2)) + coord_flip()+
+ theme_bw() +
+ scale_y_continuous(expand=c(0,0), limits=c(0,5.4),oob = rescale_none) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) + xlim(rev(levels(ggplot.Q3$Var1)))+
+ theme(axis.title=element_blank(),axis.ticks.y=element_blank(),legend.position = "bottom",
+ axis.text.x = element_text(angle = 0,vjust = 0.4)) +
+ geom_bar(stat = "identity", width = 0.7, position = position_dodge(width=0.7)) +
+ geom_text(aes(x = Var1, y =5.2, label = round(value, 2), fill = Var2),
+ angle = 0, position = position_dodge(width = 0.8), size = 4.2)
+p <- p + labs(fill="")
+
+p2 <- p +
+ stat_summary(fun.y = mean, color = "red", geom = "line", aes(group = 1)) +
+ stat_summary(fun.y = mean, color = "black", geom ="point", aes(group = 1), size = 3,
+ show.legend = FALSE)
+
+# This is the data for your dots in the graph
+foo <- as.data.frame(ggplot_build(p2)$data[[4]])
+foo$y <- round(foo$y, 1)
+
+p2 + annotate("text", x = foo$x, y = foo$y + 0.5, color = "black", label = foo$y)
+
+dev.off()
+
+# SLIKA GRAFA: Latex in PDF
+tex.ggplot.Q3 <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Povprečje komponent po skupinah \\textbf{kompetence sposobnosti odločanja in presoje}}",
+ paste0("\\centerline{\\includegraphics[width=0.75\\textwidth]{slike/ggplot_odlocanje.pdf}}"),
+ "\\end{figure}"))
+## //GGPLOT Q3 SPOSOBNOST ODLOČANJA IN PRESOJE// ##
+
+#########################
+
+####### GGPLOT Q4 VODENJE IN RAVNANJE Z LJUDMI ########
+kompetenc.Q4.VODENJE.LJUDI <- rbind(nadrejeni.vodenje.ravananje,podrejeni.vodenje.ravananje,
+ sodelavec.vodenje.ravananje,samoocenjevalec.vodenje.ravananje)
+kompetenc.Q4.VODENJE.LJUDI <- t(as.matrix(kompetenc.Q4.VODENJE.LJUDI))
+colnames(kompetenc.Q4.VODENJE.LJUDI) <- c("Nadrejeni", "Podrejeni", "Enak nivo", "Samooc.")
+rownames(kompetenc.Q4.VODENJE.LJUDI) <- names.vodenje.ravnanje
+
+
+ggplot.Q4 <- melt(kompetenc.Q4.VODENJE.LJUDI)
+# Če so manjkajoči podatki (NA ali NaN) v vrsticah jih odstranimo
+ggplot.Q4 <- ggplot.Q4[complete.cases(ggplot.Q4),]
+
+
+pdf(paste('modules/mod_360_1KA/results/slike/ggplot_vodenje_ravnanje.pdf', sep=''), family = 'sans', pointsize=10, width=7.5, height=7,encoding = 'CP1250')
+
+p<-ggplot(ggplot.Q4, aes(x = Var1, y = value, fill = Var2)) + coord_flip()+
+ theme_bw() +
+ scale_y_continuous(expand=c(0,0), limits=c(0,5.4),oob = rescale_none) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) + xlim(rev(levels(ggplot.Q4$Var1)))+
+ theme(axis.title=element_blank(),axis.ticks.y=element_blank(),legend.position = "bottom",
+ axis.text.x = element_text(angle = 0,vjust = 0.4)) +
+ geom_bar(stat = "identity", width = 0.7, position = position_dodge(width=0.7)) +
+ geom_text(aes(x = Var1, y =5.2, label = round(value, 2), fill = Var2),
+ angle = 0, position = position_dodge(width = 0.8), size = 4.2)
+p <- p + labs(fill="")
+
+p2 <- p +
+ stat_summary(fun.y = mean, color = "red", geom = "line", aes(group = 1)) +
+ stat_summary(fun.y = mean, color = "black", geom ="point", aes(group = 1), size = 3,
+ show.legend = FALSE)
+
+# This is the data for your dots in the graph
+foo <- as.data.frame(ggplot_build(p2)$data[[4]])
+foo$y <- round(foo$y, 1)
+
+p2 + annotate("text", x = foo$x, y = foo$y + 0.5, color = "black", label = foo$y)
+
+dev.off()
+
+# SLIKA GRAFA: Latex in PDF
+tex.ggplot.Q4 <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Povprečje komponent po skupinah \\textbf{kompetence vodenja in ravnanja z ljudmi}}",
+ paste0("\\centerline{\\includegraphics[width=0.85\\textwidth]{slike/ggplot_vodenje_ravnanje.pdf}}"),
+ "\\end{figure}"))
+## //GGPLOT Q4 VODENJE IN RAVNANJE Z LJUDMI// ##
+
+#########################
+
+####### GGPLOT Q5 VODENJE PROJEKTOV ########
+kompetenc.Q5.VODENJE.PROJEKTOV <- rbind(nadrejeni.vodenje.projektov,podrejeni.vodenje.projektov,
+ sodelavec.vodenje.projektov,samoocenjevalec.vodenje.projektov)
+kompetenc.Q5.VODENJE.PROJEKTOV <- t(as.matrix(kompetenc.Q5.VODENJE.PROJEKTOV))
+colnames(kompetenc.Q5.VODENJE.PROJEKTOV) <- c("Nadrejeni", "Podrejeni", "Enak nivo", "Samooc.")
+rownames(kompetenc.Q5.VODENJE.PROJEKTOV) <- names.vodenje.projektov
+
+
+ggplot.Q5 <- melt(kompetenc.Q5.VODENJE.PROJEKTOV)
+# Če so manjkajoči podatki (NA ali NaN) v vrsticah jih odstranimo
+ggplot.Q5 <- ggplot.Q5[complete.cases(ggplot.Q5),]
+#
+#
+#
+#
+
+pdf(paste('modules/mod_360_1KA/results/slike/ggplot_vodenje_projektov.pdf', sep=''), family = 'sans', pointsize=10, width=7.5, height=7)
+
+p<-ggplot(ggplot.Q5, aes(x = Var1, y = value, fill = Var2)) + coord_flip()+
+ theme_bw() +
+ scale_y_continuous(expand=c(0,0), limits=c(0,5.4),oob = rescale_none) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) + xlim(rev(levels(ggplot.Q5$Var1)))+
+ theme(axis.title=element_blank(),axis.ticks.y=element_blank(),legend.position = "bottom",
+ axis.text.x = element_text(angle = 0,vjust = 0.4)) +
+ geom_bar(stat = "identity", width = 0.7, position = position_dodge(width=0.7)) +
+ geom_text(aes(x = Var1, y =5.2, label = round(value, 2), fill = Var2),
+ angle = 0, position = position_dodge(width = 0.8), size = 4.2)
+p <- p + labs(fill="")
+
+p2 <- p +
+ stat_summary(fun.y = mean, color = "red", geom = "line", aes(group = 1)) +
+ stat_summary(fun.y = mean, color = "black", geom ="point", aes(group = 1), size = 3,
+ show.legend = FALSE)
+
+# This is the data for your dots in the graph
+foo <- as.data.frame(ggplot_build(p2)$data[[4]])
+foo$y <- round(foo$y, 1)
+
+p2 + annotate("text", x = foo$x, y = foo$y + 0.5, color = "black", label = foo$y)
+
+dev.off()
+
+# SLIKA GRAFA: Latex in PDF
+tex.ggplot.Q5 <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Povprečje komponent po skupinah \\textbf{kompetence vodenja projektov}}",
+ paste0("\\centerline{\\includegraphics[width=0.85\\textwidth]{slike/ggplot_vodenje_projektov.pdf}}"),
+ "\\end{figure}"))
+## //GGPLOT Q5 VODENJE PROJEKTOV// ##
+
+###################
+
+####### GGPLOT Q6 MEDOSEBNE VEŠČINE ########
+kompetenc.Q6.MEDOSEBNE.VESCINE <- rbind(nadrejeni.vescine,podrejeni.vescine,
+ sodelavec.vescine,samoocenjevalec.vescine)
+kompetenc.Q6.MEDOSEBNE.VESCINE <- t(as.matrix(kompetenc.Q6.MEDOSEBNE.VESCINE))
+colnames(kompetenc.Q6.MEDOSEBNE.VESCINE) <- c("Nadrejeni", "Podrejeni", "Enak nivo", "Samooc.")
+rownames(kompetenc.Q6.MEDOSEBNE.VESCINE) <- names.vescine
+
+
+ggplot.Q6 <- melt(kompetenc.Q6.MEDOSEBNE.VESCINE)
+# Če so manjkajoči podatki (NA ali NaN) v vrsticah jih odstranimo
+ggplot.Q6 <- ggplot.Q6[complete.cases(ggplot.Q6),]
+#
+#
+#
+#
+
+pdf(paste('modules/mod_360_1KA/results/slike/ggplot_medosebne_vescine.pdf', sep=''), family = 'sans', pointsize=10, width=7.5, height=7)
+
+p<-ggplot(ggplot.Q6, aes(x = Var1, y = value, fill = Var2)) + coord_flip()+
+ theme_bw() +
+ scale_y_continuous(expand=c(0,0), limits=c(0,5.4),oob = rescale_none) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) + xlim(rev(levels(ggplot.Q2$Var1)))+
+ theme(axis.title=element_blank(),axis.ticks.y=element_blank(),legend.position = "bottom",
+ axis.text.x = element_text(angle = 0,vjust = 0.4)) +
+ geom_bar(stat = "identity", width = 0.7, position = position_dodge(width=0.7)) +
+ geom_text(aes(x = Var1, y =5.2, label = round(value, 2), fill = Var2),
+ angle = 0, position = position_dodge(width = 0.8), size = 4.2)
+p <- p + labs(fill="")
+
+p2 <- p +
+ stat_summary(fun.y = mean, color = "red", geom = "line", aes(group = 1)) +
+ stat_summary(fun.y = mean, color = "black", geom ="point", aes(group = 1), size = 3,
+ show.legend = FALSE)
+
+# This is the data for your dots in the graph
+foo <- as.data.frame(ggplot_build(p2)$data[[4]])
+foo$y <- round(foo$y, 1)
+
+p2 + annotate("text", x = foo$x, y = foo$y + 0.5, color = "black", label = foo$y)
+
+dev.off()
+
+# SLIKA GRAFA: Latex in PDF
+tex.ggplot.Q6 <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Povprečje komponent po skupinah \\textbf{kompetence medosebnih veščin}}",
+ paste0("\\centerline{\\includegraphics[width=0.85\\textwidth]{slike/ggplot_medosebne_vescine.pdf}}"),
+ "\\end{figure}"))
+## //GGPLOT Q6 MEDOSEBNE VEŠČINE// ##
+
+
+
+#######################
+#RADAR AKA. SPIDER GRAF
+#######################
+## RADAR GRAF
+
+pdf(paste('modules/mod_360_1KA/results/slike/radar.pdf', sep=''), family='sans', pointsize=11, width=8, height=7)
+
+radar.data <- t(tabela.matrix)
+# provide the data you want to plot, and the desired range
+
+myrange <- c(1, 5)
+
+# create a data frame with the max and min as the first two rows
+mydf <- data.frame(rbind(max=myrange[2], min=myrange[1], radar.data))
+
+# create a radar chart
+colnames(mydf) <- c("Komuniciranje","Sposobnost odlocanja\nin presoje","Vodenje in ravnanje z ljudmi","Vodenje projektov", "Medosebne vescine")
+
+
+radarchart(mydf, pcol=c("#d99694", "#c00000", "#632523","#7F7F7F"), cglcol='gray75',
+ plwd=2, plty=1, cglwd=1, cglty=1, seg=4, axistype=1, caxislabels=c(1:5),
+ axislabcol='gray25', centerzero=TRUE)
+
+legend('topright', legend=c("Nadrejeni","Podrejeni","Enak nivo","Samooc."),
+ col=c("#d99694", "#c00000", "#632523","#7F7F7F"), lty=1, lwd=2, bty='n')
+
+dev.off()
+
+#tekst nad radar grafom
+radar.poj <- c("Kvantitativno pridobljene informacije kompetenc so zelo uporabne pri oblikovanju
+ radar diagrama. Znotraj diagrama so ustrezno prikazane bolj/manj poudarjene lastnosti posameznega zaposlenega.\\
+ Radar diagram prikazuje, kako se je ocenjevana oseba pri posameznih kompetencah ocenila, glede na to, kako so to osebo
+ ocenili drugi. Slednje pa je zelo uporabno in hitro lahko opazimo ali med ocenjevano osebo
+ in drugimi obstajajo razlike pri percepciji posameznih kompetenc.")
+
+tex.radar <- c(radar.poj,"\\begin{figure}[H]", "\\caption{Radar diagram povprečij kompetenc po skupinah}",
+ paste0('\\centerline{\\includegraphics[width=0.95\\textwidth]{slike/radar.pdf}}'),
+ "\\end{figure}")
+
+##// RADAR GRAF//##
+
+Sys.setlocale("LC_ALL", "Czech")
+
+
+
+# Dodatno pojasnilo glede VAROVANJA OSEBNIH PODATKOV
+varovanje.podatkov <- scan("modules/mod_360_1KA/latexkosi/varstvo_osebnih_podatkov.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8')
+varovanje.podatkov <- gsub('©', 'Š', varovanje.podatkov, fixed=T)
+varovanje.podatkov <- gsub('ą', 'š', varovanje.podatkov,fixed=T)
+varovanje.podatkov <- gsub('®', 'Ž', varovanje.podatkov,fixed=T)
+varovanje.podatkov <- gsub('\u017E', 'ž', varovanje.podatkov,fixed=T)
+varovanje.podatkov <- gsub('\u2013', '-', varovanje.podatkov,fixed=T)
+################################################
+## Sestavljanje latex datotek in Generiranje PDF
+################################################
+tex.glava <- scan("modules/mod_360_1KA/latexkosi/a-glava-1ka.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8')
+tex.pojasnilo <- scan("modules/mod_360_1KA/latexkosi/pojasnilo.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8') # Uvod
+tex.pojasnilo <- gsub('©', 'Š', tex.pojasnilo, fixed=T)
+tex.pojasnilo <- gsub('ą', 'š', tex.pojasnilo,fixed=T)
+tex.pojasnilo <- gsub('®', 'Ž', tex.pojasnilo,fixed=T)
+tex.pojasnilo <- gsub('\u017E', 'ž', tex.pojasnilo,fixed=T)
+tex.pojasnilo <- gsub('\u2013', '-', tex.pojasnilo,fixed=T)
+tex.noga <- scan("modules/mod_360_1KA/latexkosi/z-noga.tex", character(0), sep="\n", quiet=TRUE)
+Rdirektorij <- getwd()
+
+
+tex.izbor <- c(tex.glava,tex.pojasnilo, "\\newpage",
+ "\\chapter{Kompetence komuniciranja}",tabelatex1,"\\newpage",tex.ggplot.Q2,
+ "\\chapter{Kompetence sposobnosti odločanja in presoje}", tabelatex2,"\\newpage",tex.ggplot.Q3,
+ "\\chapter{Kompetence vodenja in ravnanja z ljudmi}",tabelatex3,"\\newpage", tex.ggplot.Q4,
+ "\\chapter{Kompetence vodenja projektov}",tabelatex4,"\\newpage",tex.ggplot.Q5,
+ "\\chapter{Medosebne veščine}",tabelatex5,"\\newpage",tex.ggplot.Q6,
+ "\\chapter{Rangiranje kompetenc}",tabela.contR.tex,"\\newpage",tex.graf,
+ "\\chapter{Radar diagram}",tex.radar,varovanje.podatkov,tex.noga)
+
+
+setwd(paste(Rdirektorij, "modules/mod_360_1KA/results", sep="/"))
+cat(tex.izbor, file=paste0("mod_360_CDI.tex"), sep="\n")
+tools::texi2pdf(file=paste0("mod_360_CDI.tex"), quiet=TRUE, clean=TRUE)
+setwd(Rdirektorij)
+
diff --git a/admin/survey/modules/mod_360_1KA/class.Survey3601ka.php b/admin/survey/modules/mod_360_1KA/class.Survey3601ka.php new file mode 100644 index 0000000..aa4a6c0 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/class.Survey3601ka.php @@ -0,0 +1,258 @@ +<?php
+
+define("TEMP_FOLDER", "admin/survey/modules/mod_360_1KA/temp");
+define("SCRIPT_FOLDER", "admin/survey/modules/mod_360_1KA/R");
+define("RESULTS_FOLDER", "admin/survey/modules/mod_360_1KA/results");
+
+class Survey3601ka{
+
+ var $anketa; # id ankete
+ var $db_table = '';
+
+
+ function __construct($anketa){
+ global $site_url;
+
+ // Ce imamo anketo, smo v status->ul evealvacija
+ if ((int)$anketa > 0){
+ $this->anketa = $anketa;
+
+ # polovimo vrsto tabel (aktivne / neaktivne)
+ SurveyInfo :: getInstance()->SurveyInit($this->anketa);
+ if (SurveyInfo::getInstance()->getSurveyColumn('db_table') == 1) {
+ $this->db_table = '_active';
+ }
+ }
+ }
+
+
+ // Prikazemo vsa porocila
+ public function displayReports(){
+ global $lang;
+
+ echo '<fieldset><legend>'.$lang['srv_360_reports'].'</legend>';
+ echo '<ul>';
+
+ // Poiščemo vprašanja z odnosom in identifikacijo ocenjevanca
+ $sql = sisplet_query("SELECT s.id AS spr_id, s.variable AS variable, s.tip AS tip FROM srv_spremenljivka s, srv_grupa g
+ WHERE g.ank_id='$this->anketa' AND s.gru_id=g.id AND (s.variable='odnos' OR s.variable='ime' OR s.variable='drugo')");
+ while($row = mysqli_fetch_array($sql)){
+
+ if($row['variable'] == 'odnos'){
+
+ }
+ elseif($row['variable'] == 'drugo'){
+
+ // Loop po vseh odgovorih drugo (ocenjevanec) in jih zgrupiramo
+ $sqlU = sisplet_query("SELECT * FROM srv_data_text".$this->db_table." WHERE spr_id='".$row['id']."'");
+ while($rowU = mysqli_fetch_array($sqlU)){
+
+ }
+ }
+ }
+
+
+ echo '<li>';
+ echo '<a href="index.php?anketa=' . $this->anketa . '&a=' . A_ANALYSIS . '&m=' . M_ANALYSIS_360_1KA . '&export=1">Izvozi poroÄŤilo</a>';
+ echo '</li>';
+
+ echo '</ul>';
+ echo '</fieldset>';
+
+ // IzvaĹľamo
+ if(isset($_GET['export']) && $_GET['export'] == '1'){
+ $this->executeExport();
+ }
+ }
+
+ // Prikazemo nastavitve pri vklopu naprednega modula
+ public function displaySettings(){
+ global $lang;
+
+ echo 'Dodatne nastavitve...';
+ }
+
+
+ // Zgeneriramo pdf analizo
+ public function executeExport(){
+ global $site_path;
+ global $lang;
+ global $admin_type;
+
+ // Zgeneriramo zacasne csv datoteke
+ $this->prepareCSV();
+
+ // Poklicemo R skripto in zgeneriramo pdf
+ $script = $site_path . SCRIPT_FOLDER . '/360_stopinj_1ka.R';
+ $out = exec('Rscript '.$script.' 2>&1', $output, $return_var);
+
+ // Testiranje - izpis errorjev
+ if($admin_type == 0){
+ echo '<div>';
+ echo 'Rscript '.$script;
+ //echo '<br />'.$out.'<br />';
+ var_dump($output);
+ echo '</div>';
+ }
+
+ // Pripravimo file za download
+ if(file_exists($site_path . RESULTS_FOLDER . '/mod_360_CDI.pdf')){
+
+ $file = $site_path . RESULTS_FOLDER . '/mod_360_CDI.pdf';
+
+ header('Content-Description: File Transfer');
+ header('Content-Type: application/octet-stream');
+ header('Content-Disposition: attachment; filename='.basename('mod_360_CDI.pdf'));
+ header('Content-Transfer-Encoding: binary');
+ header('Expires: 0');
+ header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
+ header('Pragma: public');
+ header('Content-Length: ' . filesize($file));
+
+ ob_clean();
+ flush();
+
+ readfile($file);
+ }
+
+ // Na koncu pobrisemo zacasne datoteke
+ $this->deleteTemp();
+
+ // Ugasnemo skripto:)
+ die();
+ }
+
+ // Pripravimo zacasne datoteke
+ private function prepareCSV(){
+ global $site_path;
+
+ $temp_folder = $site_path . TEMP_FOLDER.'/';
+
+ $SDF = SurveyDataFile::get_instance();
+ $SDF->init($this->anketa);
+ $_headFileName = $SDF->getHeaderFileName();
+ $_dataFileName = $SDF->getDataFileName();
+ $_fileStatus = $SDF->getStatus();
+
+ if ($_headFileName != null && $_headFileName != '') {
+ $_HEADERS = unserialize(file_get_contents($_headFileName));
+ }
+ else {
+ echo 'Error! Empty file name!';
+ }
+
+ // Zaenkrat dopuscamo samo status 6 in brez lurkerjev
+ //$status_filter = '('.STATUS_FIELD.' ~ /6|5/)&&('.LURKER_FIELD.'==0)';
+ $status_filter = '('.STATUS_FIELD.'==6)&&('.LURKER_FIELD.'==0)';
+
+ //$start_sequence = $_HEADERS['_settings']['dataSequence'];
+ $start_sequence = 2;
+ $end_sequence = $_HEADERS['_settings']['metaSequence']-1;
+
+ $field_delimit = ';';
+
+ // Filtriramo podatke po statusu in jih zapisemo v temp folder
+ if (IS_WINDOWS) {
+ //$command = 'awk -F"|" "BEGIN {{OFS=\",\"} {ORS=\"\n\"}} '.$status_filter.' { print $0}" '.$_dataFileName.' >> '.$temp_folder.'/temp_data_'.$this->anketa.'.dat';
+ $out = shell_exec('awk -F"|" "BEGIN {{OFS=\",\"} {ORS=\"\n\"}} '.$status_filter.'" '.$_dataFileName.' | cut -d "|" -f '.$start_sequence.'-'.$end_sequence.' >> '.$temp_folder.'/temp_data_'.$this->anketa.'.dat');
+
+ # zamenjamo | z ;
+ //exec('sed "s/|/\x22'.$field_delimit.'=\x22/g" '.$temp_folder.'/temp_data_'.$this->anketa.'.dat >> '.$temp_folder.'/temp_data_'.$this->anketa.'.csv');
+ }
+ else {
+ //$command = 'awk -F"|" \'BEGIN {{OFS=","} {ORS="\n"}} '.$status_filter.' { print $0; }\' '.$_dataFileName.' >> '.$temp_folder.'/temp_data_'.$this->anketa.'.dat';
+ $out = shell_exec('awk -F"|" \'BEGIN {{OFS=","} {ORS="\n"}} '.$status_filter.'\' '.$_dataFileName.' | cut -d \'|\' -f '.$start_sequence.'-'.$end_sequence.' >> '.$temp_folder.'/temp_data_'.$this->anketa.'.dat');
+
+ # zamenjamo | z ;
+ //exec('sed \'s/|/\x22'.$field_delimit.'=\x22/g\' '.$temp_folder.'/temp_data_'.$this->anketa.'.dat >> '.$temp_folder.'/temp_data_'.$this->anketa.'.csv');
+ }
+
+
+ // Ustvarimo koncni CSV
+ if ($fd = fopen($temp_folder.'/temp_data_'.$this->anketa.'.dat', "r")) {
+
+ //$fd2 = fopen($temp_folder.'/data_'.$this->anketa.'.csv', "w");
+ $fd2 = fopen($temp_folder.'/test.csv', "w");
+
+ //header('Content-Encoding: windows-1250');
+ //header('Content-Type: application/csv charset=windows-1250');
+
+ # naredimo header row
+ foreach ($_HEADERS AS $spid => $spremenljivka) {
+ if (count($spremenljivka['grids']) > 0) {
+ foreach ($spremenljivka['grids'] AS $gid => $grid) {
+ foreach ($grid['variables'] AS $vid => $variable ){
+ if ($spremenljivka['tip'] !== 'sm' && !($variable['variable'] == 'uid' && $variable['naslov'] == 'User ID')){
+ $output1 .= strip_tags($variable['variable']).$field_delimit;
+ $output2 .= '"'.strip_tags($variable['naslov']).'"'.$field_delimit;
+ }
+ }
+ }
+ }
+ }
+
+ // Spremenimo encoding v windows-1250
+ //$output1 = iconv("UTF-8","Windows-1250//TRANSLIT", $output1);
+ //$output2 = iconv("UTF-8","Windows-1250//TRANSLIT", $output2);
+
+ fwrite($fd2, $output1."\r\n");
+ fwrite($fd2, $output2."\r\n");
+
+
+ while ($line = fgets($fd)) {
+
+ //fwrite($fd2, '="');
+ //$line = str_replace(array("\r","\n","|"), array("","",'";="'), $line);
+ $line = '"' . str_replace(array("\r","\n","\"","|"), array("","","",'";"'), $line) . '"';
+
+ // Spremenimo encoding v windows-1250
+ $line = iconv("UTF-8","Windows-1250//TRANSLIT", $line);
+ //$line = str_replace(array("č","š","ž","Č","Š","Ž"), array("\v{c}","\v{s}","\v{z}","\v{C}","\v{S}","\v{Z}"), $line);
+
+ fwrite($fd2, $line);
+ //fwrite($fd2, '"');
+ fwrite($fd2, "\r\n");
+ }
+
+ fclose($fd2);
+ }
+ fclose($fd);
+
+
+ // Na koncu pobrisemo temp datoteke
+ if (file_exists($temp_folder.'/temp_data_'.$this->anketa.'.dat')) {
+ unlink($temp_folder.'/temp_data_'.$this->anketa.'.dat');
+ }
+ }
+
+ // Pobrisemo zacasne datoteke
+ private function deleteTemp(){
+ global $site_path;
+
+ $temp_folder = $site_path . TEMP_FOLDER.'/';
+
+ if (file_exists($temp_folder.'/data_'.$this->anketa.'.csv')) {
+ unlink($temp_folder.'/data_'.$this->anketa.'.csv');
+ }
+
+ // Pobrisemo zacasno CSV datoteko s podatki
+ if (file_exists($temp_folder.'/test.csv')) {
+ unlink($temp_folder.'/test.csv');
+ }
+
+ // Pobrisemo pdf grafe ki so bili vstavljeni v porocilo
+ $files = glob($site_path . RESULTS_FOLDER . '/part-predmet-slike/*');
+ foreach($files as $file){
+ if(is_file($file))
+ unlink($file);
+ }
+
+ // Pobrisemo še vse ostalo v rezultatih
+ $files = glob($site_path . RESULTS_FOLDER . '/*');
+ foreach($files as $file){
+ if(is_file($file))
+ unlink($file);
+ }
+ }
+
+}
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/a-glava-1ka.tex b/admin/survey/modules/mod_360_1KA/latexkosi/a-glava-1ka.tex new file mode 100644 index 0000000..9292e1f --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/a-glava-1ka.tex @@ -0,0 +1,105 @@ +\documentclass[11pt,a4paper]{report}
+\usepackage[cm]{fullpage}
+\setlength{\headheight}{12pt}
+\usepackage{arev}
+\usepackage[T1]{fontenc}
+\usepackage{times}
+%\usepackage[nofligs]{verdana}
+\usepackage[fontsize=11pt]{scrextend}
+\usepackage{amsmath}
+\usepackage[cp1250]{inputenc}
+\usepackage[utf8]{inputenc}
+
+\usepackage{subcaption}
+\usepackage{graphicx}
+\usepackage{xcolor}
+\definecolor{firebrick3}{HTML}{cd2626}
+\definecolor{dodgerblue3}{HTML}{1874cd}
+\definecolor{BrickRed}{HTML}{B6321C}
+\definecolor{OrangeRed}{HTML}{F58137}
+\definecolor{PineGreen}{HTML}{008B72}
+\definecolor{Orange}{HTML}{F58137}
+\definecolor{Green}{HTML}{00A64F}
+\definecolor{Atlantis}{HTML}{8CBA2E}
+\definecolor{Blue Stone}{HTML}{006666}
+\definecolor{Black}{HTML}{000000}
+\definecolor{Red}{HTML}{FF0006}
+\definecolor{Gray}{HTML}{AAAAAA}
+\usepackage{times}
+\usepackage{float}
+\usepackage{multirow}
+\usepackage{wrapfig}
+
+
+
+\usepackage{setspace}
+
+\renewcommand\thesection{\Alph{section}}
+\renewcommand\thesubsection{\thechapter.\arabic{subsection}}
+\usepackage{chngcntr}
+\counterwithout*{subsection}{section}
+\counterwithin*{subsection}{chapter}
+\usepackage{titlesec}
+\titleformat{\chapter}[hang]{\LARGE\bfseries}{\thechapter{. }}{12pt}{\LARGE\bfseries}
+\titlespacing*{\chapter}{0pt}{-13pt}{10pt}
+\usepackage{longtable}
+\usepackage{setspace}
+\usepackage{array,calc}
+\newcolumntype{A}[1]{>{\begin{minipage}{#1}\vspace{\tabcolsep}}l<{\vspace{\tabcolsep}\end{minipage}}}
+\newenvironment{Complement}[1][0.75cm]{\hspace{#1}\begin{minipage}{\linewidth-#1}\hspace{-#1}\ignorespaces}{\end{minipage}}
+
+
+
+\usepackage{fancyhdr}
+\pagestyle{fancyplain}
+\renewcommand{\chaptermark}[1]{\markboth{#1}{}}
+\fancyhf{}
+\renewcommand{\headrulewidth}{0.4pt}
+\renewcommand{\footrulewidth}{0.4pt}
+\fancyhead[L]{ \includegraphics[width=2cm]{../latexkosi/logo/CDI_glava.png} }
+\fancyfoot[L]{}
+\fancyfoot[R]{\small{Stran \thepage}}
+\headsep 25pt
+\fancypagestyle{plain}{
+ \renewcommand{\headrulewidth}{0.4pt}
+ \renewcommand{\footrulewidth}{0.4pt}
+}
+
+
+\usepackage{hyperref}
+\hypersetup{
+ colorlinks=true,
+ linkcolor=black,
+ urlcolor=blue,
+ pdfstartview={XYZ null null 1},
+ pdftitle={naslov!}
+}
+\urlstyle{same}
+
+\setlength{\parindent}{0cm}
+\LTcapwidth=\textwidth %to keep longtable captions in one row
+
+%zaÄŤetek za dodatek po letih
+\makeatletter
+\@addtoreset{chapter}{part}
+\makeatother
+\usepackage{alphalph}
+\makeatletter
+\newalphalph{\alphmult}[mult]{\@Alph}{26}
+\makeatother
+\renewcommand{\thesection}{\alphmult{\value{section}}}
+%konec za dodatek po letih
+
+
+\begin{document}
+ \begin{titlepage}
+ \begin{center}
+ \vspace*{-8.5\baselineskip} % Da bo slika na vrhu
+ \includegraphics[width=18cm]{../latexkosi/logo/CDI1.png}~\\[4cm]
+ \includegraphics[width=17.5cm]{../latexkosi/logo/CDI_naslovnica.png}~\\[4cm]
+ %\textsc{ \LARGE \textbf{ \color{Red} Center za druĹľboslovno informatiko \\[2cm] analiza 360 stopinj}}\\[6.5cm]
+ %\includegraphics[width=14.5cm]{../latexkosi/logo/slika.jpg}~\\[6cm]
+ {\large Ljubljana, \today}
+ \end{center}
+ \end{titlepage}
+\tableofcontents
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI.png Binary files differnew file mode 100644 index 0000000..bcdaa99 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI1.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI1.png Binary files differnew file mode 100644 index 0000000..757bd7d --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI1.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_glava.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_glava.png Binary files differnew file mode 100644 index 0000000..2bdaa9e --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_glava.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica - Copy.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica - Copy.png Binary files differnew file mode 100644 index 0000000..fd80776 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica - Copy.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica.png Binary files differnew file mode 100644 index 0000000..6f9b9c0 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/circle.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/circle.png Binary files differnew file mode 100644 index 0000000..428c976 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/circle.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/pojasnilo.tex b/admin/survey/modules/mod_360_1KA/latexkosi/pojasnilo.tex new file mode 100644 index 0000000..58352a9 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/pojasnilo.tex @@ -0,0 +1,21 @@ +\chapter{Metodologija}
+\subsection{Vprašalnik kompetenc po metodi 360°}
+Kompetence so skupek povezav med znanjem, veščinami in vedenji, ki vplivajo na delo posameznika in korelirajo z uspešnostjo na delovnem mestu. So skupek povezav, ki so merljive z dobro sprejetimi standardi in ki jih lahko izboljšujemo z izobraževanjem in razvojem zaposlenih. Z vprašalnikom kompetenc merimo sledeče dimenzije:
+
+
+\begin{itemize}
+\item Komuniciranje
+\item Sposobnosti odloÄŤanja in presoje
+\item Vodenje in ravnanje z ljudmi
+\item Vodenje projektov
+\item Medosebne veščine
+\end{itemize}
+\bigskip
+ \textbf{Metoda 360 stopinj} je orodje, s katerim merimo prisotnost oziroma izraženost kompetenc pri posamezniku. Pomaga nam identificirati posameznikove prednosti in njegove šibke točke ter odkriti potenciale za razvoj ter možnosti za izboljšave. Ta metoda je kompleksna in zanesljiva, saj pri njej ocenjujemo kompetence posameznika z več vidikov, z vidika:
+\begin{enumerate}
+ \item nadrejenih,
+ \item sodelavcev na enakem nivoju,
+ \item podrejenih,
+ \item ter z vidika ocenjevanca (samoocena).
+\end{enumerate}
+Na ta način dobimo celostno sliko, ki je lahko v pomoč pri določanju nadaljnjih razvojnih ciljev za posameznika na področjih, kjer se je pokazalo, da je še prostor za izboljšave.
diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/sloven2e.sty b/admin/survey/modules/mod_360_1KA/latexkosi/sloven2e.sty new file mode 100644 index 0000000..d3c0728 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/sloven2e.sty @@ -0,0 +1,42 @@ +%
+% slovene.sty - prilagoditev zvrsti ARTICLE, BOOK in REPORT slovenscini
+%
+\@ifundefined{slovensko}{\def\slovensko{}}{\endinput}
+\typeout{Document Style Option 'Sloven2e' ver 0.1. / 11-Nov-95 / V.B.}
+
+% naslovi
+
+\def\abstractname{Povzetek}
+\def\appendixname{Dodatek}
+\def\bibname{Literatura}
+\def\ccname{cc}
+\def\chaptername{Poglavje}
+\def\contentsname{Kazalo}
+\def\enclname{Priloge}
+\def\figurename{Slika\ }
+\def\headpagename{Stran}
+\def\headtoname{Komu}
+\def\indexname{Stvarno kazalo}
+\def\listfigurename{Slike}
+\def\listtablename{Tabele}
+\def\partname{Del}
+\def\prefacename{Predgovor}
+\def\seename{glej}
+\def\alsoseename{glej tudi}
+\def\refname{Viri}
+\def\tablename{Tabela\ }
+
+% tekoci datum
+
+\def\today{\number\day. \ifcase\month\or
+ januar\or februar\or marec\or april\or maj\or junij\or
+ julij\or avgust\or september\or oktober\or november\or december\fi
+ \space\number\year}
+
+
+% slovenski narekovaji
+
+\def\lqlq{\leavevmode\hbox{,\kern-.1em,}}
+\def\rqrq{\leavevmode\hbox{`\kern-.1em`}}
+
+\endinput
diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/tabela.tex b/admin/survey/modules/mod_360_1KA/latexkosi/tabela.tex new file mode 100644 index 0000000..2823ed7 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/tabela.tex @@ -0,0 +1,11 @@ +\documentclass[landscape]{report}
+\usepackage[cp1250]{inputenc}
+\usepackage{csz}
+\usepackage{sloven2e}
+\usepackage{longtable}
+\usepackage{geometry}
+\newgeometry{left=0cm,bottom=0cm}
+\begin{document}
+\footnotesize
+\renewcommand*{\arraystretch}{1.25}
+\renewcommand{\tabcolsep}{1mm}
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/uvod.tex b/admin/survey/modules/mod_360_1KA/latexkosi/uvod.tex new file mode 100644 index 0000000..7bdcdec --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/uvod.tex @@ -0,0 +1,7 @@ +\textbf{ANALIZA 360° STOPINJ:}
+\begin{itemize}
+\item je mera povratnih informacij vedenj in kompetenc,
+\item zagotavlja povratne informacije odnosu podjetja (nadrejenih, podrejenih, sodelavcev) do zaposlenega,
+\item obravnava spretnosti kot so: komuniciranje, vodenje, odloÄŤanje, ravnanje itd.,
+\item se osredotoÄŤa na subjektivna podroÄŤja, kot so znaÄŤaj zaposlenega in njegova uÄŤinkovitost.
+\end{itemize}
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/varstvo_osebnih_podatkov.tex b/admin/survey/modules/mod_360_1KA/latexkosi/varstvo_osebnih_podatkov.tex new file mode 100644 index 0000000..cb31f1e --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/varstvo_osebnih_podatkov.tex @@ -0,0 +1,8 @@ +
+\chapter{Dodatek}
+Vse ocene, izsledki in poročila (bodisi individualna poročila bodisi skupna poročila) vsebujejo osebne in občutljive osebne podatke kandidatov in so zato strogo zaupne narave. Njihova uporaba, posredovanje, dostopnost in arhiviranje mora biti dosledno izvedeno v skladu z Zakonom o varstvu osebnih podatkov (ZVOP-1, Ur.l. RS, št. 86/2004, Ur.l. RS, št. 113/2005-ZInfP, 51/2007-ZUstS-A, 67/2007, 94/2007-UPB1). S predajo teh podatkov Pogodbeniku, se le-ta obvezuje, da bo s temi podatki ravnal v skladu z zgoraj omenjenim zakonom in da prevzame popolno odgovornost za nepravilno uporabo, nepooblaščen dostop ali neupravičeno posredovanje tretjim osebam.
+
+
+
+\chapter{Varstvo osebnih podatkov}
+Vsi podatki o kandidatih (bodisi individualna poročila bodisi skupna poročila), ki vsebujejo psihološke podatke kandidatov ter ocene, izsledke in poročila ocenjevalnega centra so občutljivi podatki in so strogo zaupne narave. Njihova uporaba, posredovanje, dostopnost in arhiviranje mora biti dosledno izvedeno v skladu z Zakonom o varstvu osebnih podatkov (ZVOP-1, Ur.l. RS, št. 86/2004, Ur.l. RS, št. 113/2005-ZInfP, 51/2007-ZUstS-A, 67/2007, 94/2007-UPB1). S predajo teh podatkov Pogodbeniku, se le-ta obvezuje, da bo s temi podatki ravnal v skladu z zgoraj omenjenim zakonom in da prevzame popolno odgovornost za nepravilno uporabo, nepooblaščen dostop ali neupravičeno posredovanje tretjim osebam.
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/z-noga.tex b/admin/survey/modules/mod_360_1KA/latexkosi/z-noga.tex new file mode 100644 index 0000000..815ab68 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/z-noga.tex @@ -0,0 +1 @@ +\end{document}
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/results/.gitignore b/admin/survey/modules/mod_360_1KA/results/.gitignore new file mode 100644 index 0000000..a3a0c8b --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/results/.gitignore @@ -0,0 +1,2 @@ +*
+!.gitignore
\ No newline at end of file |
