#Sys.setlocale(category = "LC_ALL", locale = "sl_SI.iso88592") Sys.setlocale(category = "LC_ALL", locale = "slovenian") #Sys.setlocale(category = "LC_CTYPE", locale = "Slovenian") libraries <- c('tools', 'psych', 'Hmisc', 'reports', 'fmsb','car','Cairo','openxlsx','gridExtra','ggplot2','Rcpp','grid','scales','plotrix','TeachingDemos') lapply(libraries, FUN = function(y) { do.call('require', list(y))}) library(scales) #install.packages("Rcpp") #install.packages("ggplot") #install.packages("grid") #install.packages("plotrix") #install.packages("TeachingDemos") #Sys.setlocale(category = "LC_ALL", locale = "Slovenian") dir.create('modules/mod_EVOLI/results', showWarnings=FALSE) dir.create('modules/mod_EVOLI/results/slike', showWarnings=FALSE) podatki <- read.csv2("modules/mod_EVOLI/temp/evoli.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),]} source('modules/mod_EVOLI/R/SPSS_rekodiranje.R') ### SAMO ZA TERTIRANJE ### # Uporabimo za testiranje, ker delamo za posameznika v datoteki pa imamo dva, najprej izberemo prvo vrstico. podatki <- podatki[1,] #### # 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) } ## ####################### #My Overall EQ Profile ###################### # Skupni dosežek Overall_EQ_pojasnilo <- paste0("\\textbf{What does your score indicate?} \\newline The total EQ score indicates the combined score over the 5 main areas and 15 components of Emotional Intelligence. The scores are plotted on a bell curve and the normal range of scores is between 80 and 120.") # Trenutno ne uporabljamo interpretacij Overall_EQ_pojasnilo <- NULL pdf(paste('modules/mod_EVOLI/results/slike/EQ.pdf', sep=''), family='sans', pointsize=12, width=9, height=7,encoding = 'ISOLatin2') par(mar = c(12, 2, 12, 2)) #par(bg = "gray") # background color of picture plot(0, type="n", ylim=c(-1, 1), xlim=c(0, 200), axes = F, bty = "n",ylab="", xlab="") #text(cex=1, x=-0.4, y=0, "Total\nEQ\nSCORE", xpd=NA, pos=2) #mtext(podatki$totaleq, side = 1, line = 0, at = 15,cex = 2.4) mtext(expression(paste(bold("Moja skupna ocena EQ "))), side = 3, line = 3, at = 100,cex = 2) mtext(expression(paste("Moj kvocient č ustvene inteligentnosti")), side = 3, line = 1.4, at = 100,cex = 1.5) axis(1, at=seq(0, 40, by=40),cex.axis=1.6,col.axis="black") axis(1, at=seq(40, 60, by=20),lwd=1,cex.axis=1.6,labels=FALSE,col.axis="black") axis(1, at=seq(60, 80, by=20),lwd=1,cex.axis=1.6,col.axis="black") axis(1, at=seq(60, 80, by=20),lwd=1,cex.axis=1.6,labels=FALSE,col.axis="black") axis(1, at=seq(80, 120, by = 40),lwd=1,cex.axis=1.6,col.axis="black") axis(1, at=seq(120, 140, by = 20),lwd=1,cex.axis=1.6,labels=FALSE,col.axis="black") axis(1, at=seq(140, 160, by = 20),lwd=1,cex.axis=1.6,col.axis="black") axis(1, at=seq(160, 200, by = 40),lwd=1,cex.axis=1.6,col.axis="black") axis(1, at=100,lwd=1,cex.axis=1.6,col.axis="black") #axis(1, at=c(40, 60,80,120,140,160),lwd=2) axis(3, at = NULL,labels = FALSE,tick = T, outer = F,lwd.ticks=0,lwd=2) abline(v=c(20,40,60,80,120,140,160,180), col=c("gray"), lty=c(1), lwd=c(0.1)) abline(v=c(0,200), col=c("black"), lty=c(1), lwd=c(1)) abline(v=c(100), col=c("black"), lty=c(1), lwd=c(3)) # Sivo ozadje grafa #rect(par("usr")[1],par("usr")[3],par("usr")[2],par("usr")[4],col = "gray") #rect(0, -.1, podatki$totaleq, .1, col=colfunc, border=1,lwd=1) # Da dobimo barvno paleto uporabimo funkcijo gradient.rect gradient.rect(0,-.5,podatki$totaleq,.5,col=smoothColors("Steel Blue 1",100.0,"Blue"),border=0,gradient="x") #text(podatki$totaleq, 0, pos=2, label=podatki$totaleq,cex=2.4, col="white") #install.packages("TeachingDemos") #senčen tekst #library(TeachingDemos) # Senčenje tekstapodatkovni.okvir_action_plann shadowtext(podatki$totaleq, y =0, pos=2,label=podatki$totaleq, col="yellow", bg = "yellow",cex=2.4,r=0.1) #box() #box("figure", lwd = 10) dev.off() tex.EQ <- c(paste0("\\begin{figure}[H]", paste0("\\centerline{\\includegraphics[width=0.75\\textwidth]{slike/EQ.pdf}}"), "\\end{figure}",Overall_EQ_pojasnilo)) ## //My Overall EQ Profile// ## ######################################### #Five Areas of Emotional Intelligence ######################################### vaja <- c(podatki$saw,podatki$sma,podatki$smo,podatki$soa,podatki$ssk) text.decimalno.mesto <- sprintf("%.1f", vaja) #vaja <- as.factor(vaja) if (any(!is.na(vaja))) { pdf(paste('modules/mod_EVOLI/results/slike/EQ_barplot.pdf', sep=''),family='sans', pointsize=11, width=11, height=8,encoding = 'CP1250') Names <- c("Samozavedanje","Samoobvladovanje", "Samomotivacija", "Socialno zavedanje","Socialne spretnosti") # add \n Names[seq(2, length(Names), 2)] <- paste0("\n" ,Names[seq(2, length(Names), 2)]) # data.frame, including a grouping vector d <- data.frame(Names, vaja, group=c(rep("Osebna zmo\u017Enost", 3), rep("Medosebna zmo\u017Enost", 2))) # correct order #d$Names <- factor(d$Names, levels= c("Self Awarenes","Self Management", # "Self Motivation", "Social Awareness","Social Skills")) d$group_f = factor(d$group, levels=c('Osebna zmo\u017Enost','Medosebna zmo\u017Enost')) d$Names <- factor(d$Names, levels= unique(d$Names)) # plot the bars p1 <- ggplot(d, aes(x= Names, y= vaja, group= group, fill=vaja,order=vaja)) + geom_bar(stat= "identity", fill="blue") + theme_bw() # use facet_grid for the groups #p + facet_grid(.~group_f, scales= "free_x", space= "free_x") p2 <- p1+ theme(text = element_text(size=23),plot.background = element_rect(fill = "white"), strip.background = element_rect(fill="Blue")) + scale_y_continuous(expand = c(0, 0), limits = c(0,10.3)) + xlab("") +ylab("")+theme(legend.position="none")+ facet_grid(.~group_f, scales= "free_x", space= "free_x") + theme(strip.text.x = element_text(size = 25, colour = "white"),panel.grid.major.x = element_blank()) + scale_fill_gradient(low="Steel Blue 1",high="blue")+ annotation_custom( grid::rasterGrob(paste0("#CAE1FF", as.hexmode(1:120)), width=unit(1,"npc"), height = unit(1,"npc"), interpolate = TRUE), xmin=0.55, xmax=1.45, ymin=0, ymax=4 ) + annotation_custom( grid::rasterGrob(paste0("#CAE1FF", as.hexmode(1:120)), width=unit(1,"npc"), height = unit(1,"npc"), interpolate = TRUE), xmin=1.54, xmax=2.45, ymin=0, ymax=4 ) + annotation_custom( grid::rasterGrob(paste0("#CAE1FF", as.hexmode(1:120)), width=unit(1,"npc"), height = unit(1,"npc"), interpolate = TRUE), xmin=2.52, xmax=3.45, ymin=0, ymax=5 ) + annotation_custom( grid::rasterGrob(paste0("#CAE1FF", as.hexmode(1:120)), width=unit(1,"npc"), height = unit(1,"npc"), interpolate = TRUE), xmin=3.55, xmax=4.45, ymin=0, ymax=5 ) + annotation_custom( grid::rasterGrob(paste0("#CAE1FF", as.hexmode(1:120)), width=unit(1,"npc"), height = unit(1,"npc"), interpolate = TRUE), xmin=4.55, xmax=5.48, ymin=0, ymax=5 ) + geom_text(aes(label=text.decimalno.mesto),color="yellow", y=1, size=9.5, fontface=2,lineheight=0.1) d <- p2 + theme(panel.margin = unit(0, "lines")) #d1 <- d+ggtitle(expression(atop(bold("My Detailed EQ Profile"), atop(plain("My Scores for the 5 Areas of Emotional Intelligence"), "")))) d1 <- d g <- ggplotGrob(d1) g$heights[[3]] = unit(0.6,"in") grid.newpage() grid.draw(g) dev.off() tex.EQ_barplot <- c(paste0( "\\begin{figure}[H]", "\\caption{ \\textbf{\\large{Moj skupni EQ profil}}}", "\\caption{Moje ocene za pet področij čustvene inteligentnosti}", "\\caption{}", paste0("\\centerline{\\includegraphics[page=2,width=0.75\\textwidth]{slike/EQ_barplot.pdf}}"), "\\end{figure}") ) EQ_barplot <- c(paste0(tex.EQ_barplot)) } else{tex.EQ_barplot <- NULL EQ_barplot <- NULL} # Trenutno ne potrebujemo interpretacij # Interpretacija komponent #komponente <- c(paste0( # "\\begin{figure}[H]", # "\\caption{ \\textbf{\\large{My Detailed EQ Profile}}}", # "\\caption{My Scores for the 5 Areas of Emotional Intelligence}", # "\\caption{}", # paste0("\\centerline{\\includegraphics[width=0.85\\textwidth]{../latexkosi/logo/Komponente.png}}"), # "\\end{figure}") #) # NOT USING THIS NOW komponente <- NULL ## //Five Areas of Emotional Intelligence// ## ########################################################### ###############My Detailed EQ Profile###################### #My Scores for the 15 Components of Imotional Intelligence ########################################################## value <- c(podatki$sar,podatki$esr,podatki$obr,podatki$ser, podatki$smr,podatki$icr,podatki$srr,podatki$adr, podatki$psr,podatki$opr,podatki$acr,podatki$cor, podatki$emr,podatki$irr,podatki$gor) names <- c("Samoocenjevanje","Č ustveno samozavedanje", "Objektivnost","Samoizra\u017Eanje","Obvladovanje stresa", "Nadzor nad impulzi", "Samozaupanje","Prilagodljivost", "Re\u0161evanje problemov","Optimizem","Moč dose\u017Ekov","Zadovoljstvo", "Empatija","Medosebni odnosi","Skupinska usmerjenost") df <- data.frame(value, names) df$names <- as.character(df$names) df$names <- factor(df$names, levels=rev(unique(df$names))) df$names = factor(df$names, levels = c( "Skupinska usmerjenost", "Medosebni odnosi", "Empatija", "Zadovoljstvo", "Moč dose\u017Ekov", "Optimizem", "Re\u0161evanje problemov", "Prilagodljivost", "Samozaupanje", "Nadzor nad impulzi", "Obvladovanje stresa", "Samoizra\u017Eanje", "Objektivnost", "Č ustveno samozavedanje", "Samoocenjevanje"), ordered=T) if (any(!is.na(df$value))) { pdf(paste('modules/mod_EVOLI/results/slike/EQ_lineplot.pdf', sep=''),family='sans', pointsize=15, width=7.5, height=7.5,encoding = 'ISOLatin2') p <- ggplot(data = df, aes(y = value,x= names,group=1))+ geom_point(color = I(" Navy Blue"),shape=21, lwd=3,fill=" Navy Blue")+ geom_line(group = I(1),color = I("blue"))+ theme_bw()+coord_flip() + xlab("") +ylab("") + theme(axis.text=element_text(size=11,face="bold")) #p1 <- p + annotate("rect", xmin = 0, xmax = 10, ymin = 15.2, ymax =15.3, alpha=1,fill = "blue") + # annotate("rect", xmin = 0, xmax = 10, ymin = 11.2, ymax =11.3, alpha=1,fill = "blue") + #annotate("rect", xmin = 0, xmax = 10, ymin = 6.2, ymax =6.3, alpha=1,fill = "blue") + #annotate("rect", xmin = 0, xmax = 10, ymin = 3.2, ymax =3.3, alpha=1,fill = "blue") + #annotate("rect", xmin = 0, xmax = 10, ymin = 2.2, ymax =2.3, alpha=1,fill = "blue") + #scale_x_continuous(minor_breaks = seq(1,10,2.5), breaks = seq(min(0,5), max(10), by = 2.5), limits=c(0,10),oob = rescale_none)+ #theme(plot.background = element_rect(fill = "white")) + xlab("") +ylab("") p2 <- p + scale_y_continuous(expand=c(0,0),minor_breaks = seq(0,10,0.5), breaks = seq(min(0,5), max(10), by = 2.5), limits=c(0,10),oob = rescale_none) + theme(panel.border = element_blank(),plot.background = element_rect(fill = "white"),panel.grid.minor = element_line(colour = "gray",size=0.1)) + geom_hline(yintercept = 0.0, col="black",alpha=0.6) + geom_hline(yintercept = 2.5, col="black",alpha=0.6) + geom_hline(yintercept = 7.5, col="black", alpha=0.6) + geom_hline(yintercept = 10.0, col="black", alpha=0.6) p2 <- p2+ theme(plot.margin = unit(c(1,1,0,6.3), "cm")) # Sivo ozadje grafa p2 <- p2 + annotate("rect", xmin = 11.5, xmax = 15.6, ymin = -8.17, ymax =10, alpha=0.5,fill = "gray") + annotate("rect", xmin = 3.5, xmax = 6.5, ymin = -8.17, ymax =10, alpha=0.5,fill = "gray") + annotate("rect", xmin = 0, xmax = 2.5, ymin = -8.17, ymax =10, alpha=0.5,fill = "gray") + geom_point(color = I(" Navy Blue"),shape=21, lwd=3,fill=" Navy Blue")+ geom_line(group = I(1),color = I("blue")) #annotate("rect", xmin = 3.5, xmax = 6.5, ymin = -8.17, ymax =10.3, alpha=0.3,fill = "gray") + #annotate("rect", xmin = 0.1, xmax = 2.5, ymin = -8.17, ymax =10.3, alpha=0.3,fill = "gray") #p2 +annotation_custom(grob = linesGrob(), xmin = 9, xmax = 12, ymin = 1, ymax = 1) #grid.lines(x=unit(0.1,"npc"), y = unit(0.80,"npc"), default.units='native' ) #+annotate(geom = "text", x= 15 ,y = 5, label = "your label") # Create the text Grobs myGrob2 <- grobTree(rectGrob(gp=gpar(col="blue2",fill="blue2", alpha=1)), segmentsGrob(x0=10, x1=15, y0=-4, y1=-3, default.units="npc")) # Add the annotations # Segment 1 pp =p2 + annotation_custom(grob = linesGrob(gp=gpar(col = "gray")), xmin = 0.0, xmax = 15.6, ymin = -8.17, ymax = -8.17) + #annotation_custom(grob = linesGrob(), xmin = 11.6, xmax = 11.6, ymin = -8.17, ymax = -7.1) + annotation_custom(grob = linesGrob(gp=gpar(col = "gray")), xmin = 15.6, xmax = 15.6, ymin = -8.17, ymax = 0) + annotation_custom(grob = linesGrob(gp=gpar(col = "gray")), xmin = 11.5, xmax = 11.5, ymin = -8.17, ymax = 10) + annotation_custom(grob = linesGrob(gp=gpar(col = "gray")), xmin = 6.5, xmax = 6.5, ymin = -8.17, ymax = 10) + annotation_custom(grob = linesGrob(gp=gpar(col = "gray")), xmin = 3.5, xmax = 3.5, ymin = -8.17, ymax = 10) + annotation_custom(grob = linesGrob(gp=gpar(col = "gray")), xmin = 2.5, xmax = 2.5, ymin = -8.17, ymax = 10) + #annotation_custom(grob = linesGrob(), xmin = 6.7, xmax = 6.7, ymin = -8.17, ymax = -7.1) + #annotation_custom(grob = linesGrob(), xmin = 11.2, xmax = 11.2, ymin = -8.17, ymax = -7.1) #+ #annotation_custom(grob = linesGrob(), xmin = 3.9, xmax = 6.3, ymin = -8.17, ymax = -8.17) + #annotation_custom(grob = linesGrob(), xmin = 3.9, xmax = 3.9, ymin = -8.17, ymax = -7.1) + #annotation_custom(grob = linesGrob(), xmin = 6.3, xmax = 6.3, ymin = -8.17, ymax = -7.1) + #annotation_custom(grob = linesGrob(), xmin = 2.8, xmax = 3.5, ymin = -8.17, ymax = -8.17) + #annotation_custom(grob = linesGrob(), xmin = 2.8, xmax = 2.8, ymin = -8.17, ymax = -7.1) + #annotation_custom(grob = linesGrob(), xmin = 3.5, xmax = 3.5, ymin = -8.17, ymax = -7.1) + #annotation_custom(grob = linesGrob(), xmin = 0.8, xmax = 2.4, ymin = -8.17, ymax = -8.17) + #annotation_custom(grob = linesGrob(), xmin = 0.8, xmax = 0.8, ymin = -8.17, ymax = -7.1) + annotation_custom(grob = linesGrob(gp=gpar(col = "gray")), xmin = 0, xmax = 0, ymin = -8.17, ymax = 0) + # Pravokotniki #annotation_custom(myGrob2, xmin = 13.5, xmax = 14.3, ymin = -15, ymax = -9) + #annotation_custom(myGrob2, xmin = 9.3, xmax = 10.1, ymin = -15, ymax = -9) + #annotation_custom(myGrob2, xmin = 5.2, xmax = 6.0, ymin = -15, ymax = -9) + #annotation_custom(myGrob2, xmin = 3.2, xmax = 4.0, ymin = -15, ymax = -9) + #annotation_custom(myGrob2, xmin = 1.3, xmax = 2.1, ymin = -15, ymax = -9) + # Dodamo markerje pri drugi x osi oziroma pri osi nad grafom. Markerji naj bodo na vrednostih 0, 2.5, 5.0, 7.5, 10.0. annotation_custom(grob = linesGrob(), xmin = 15.6, xmax = 15.67, ymin = 0, ymax = 0) + annotation_custom(grob = linesGrob(), xmin = 15.6, xmax = 15.67, ymin = 2.5, ymax = 2.5) + annotation_custom(grob = linesGrob(), xmin = 15.6, xmax = 15.67, ymin = 5.0, ymax = 5.0) + annotation_custom(grob = linesGrob(), xmin = 15.6, xmax = 15.67, ymin = 7.5, ymax = 7.5) + annotation_custom(grob = linesGrob(), xmin = 15.6, xmax = 15.67, ymin = 10.0, ymax = 10.0) + geom_hline(yintercept = 5, size = 0.6) + geom_hline(yintercept = 0.5, size = 0.1, col="gray") + geom_hline(yintercept = 1.0, size = 0.1, col="gray") + geom_hline(yintercept = 1.5, size = 0.1, col="gray") + geom_hline(yintercept = 2.0, size = 0.1, col="gray") + geom_hline(yintercept = 3.0, size = 0.1, col="gray") + geom_hline(yintercept = 3.5, size = 0.1, col="gray") + geom_hline(yintercept = 4.0, size = 0.1, col="gray") + geom_hline(yintercept = 4.5, size = 0.1, col="gray") + geom_hline(yintercept = 5.5, size = 0.1, col="gray") + geom_hline(yintercept = 6.0, size = 0.1, col="gray") + geom_hline(yintercept = 6.5, size = 0.1, col="gray") + geom_hline(yintercept = 7.0, size = 0.1, col="gray") + geom_hline(yintercept = 8.0, size = 0.1, col="gray") + geom_hline(yintercept = 8.5, size = 0.1, col="gray") + geom_hline(yintercept = 9.0, size = 0.1, col="gray") + geom_hline(yintercept = 9.5, size = 0.1, col="gray") + # Da sivo ozadnje ne prekrije modre barve, še nekrat naredimo modro črto in točke geom_point(color = I(" Navy Blue"),shape=21, lwd=3,fill=" Navy Blue") + geom_line(group = I(1),color = I("blue"),size=1) gt <- ggplot_gtable(ggplot_build(pp)) gt$layout$clip[gt$layout$name=="panel"] <- "off" grid.draw(gt) ################################################# ############################ #5 KOMPONENT IN JIHOVE OCENE ############################ # Tekst komponent in vrednosti na desni strani grafa, ki so desno poravnane grid.text((paste("Samozavedanje")), x = unit(0.25, "npc"), y = unit(0.815, "npc"), just = c("right", "bottom"), gp = gpar(fontface = "bold",fontsize = 14, col = "blue")) grid.text((paste0(podatki$saw,".0")), x = unit(.33, "npc"), y = unit(0.81, "npc"), just = c("right", "bottom"), gp = gpar(fontface = "bold", fontsize = 19, col = "blue")) grid.text((paste("Samoobvladovanje")), x = unit(0.25, "npc"), y = unit(0.565, "npc"), just = c("right", "bottom"), gp = gpar(fontface = "bold",fontsize = 14, col = "blue")) grid.text((paste0(podatki$sma,".0")), x = unit(.33, "npc"), y = unit(0.56, "npc"), just = c("right", "bottom"), gp = gpar(fontface = "bold", fontsize = 19, col = "blue")) #grid.text((paste0(podatki$sma,",0")), # x = unit(.09, "npc"), y = unit(0.53, "npc"), just = c("left", "bottom"), # gp = gpar(fontface = 4, fontsize = 23, col = "white",alpha=0.5)) grid.text((paste("Samomotivacija")), x = unit(0.25, "npc"), y = unit(0.33, "npc"), just = c("right", "bottom"), gp = gpar(fontface = "bold",fontsize = 14, col = "blue")) grid.text((paste0(podatki$smo,".0")), x = unit(.33, "npc"), y = unit(0.325, "npc"), just = c("right", "bottom"), gp = gpar(fontface = "bold", fontsize = 19, col = "blue")) grid.text((paste("Socialno zavedanje")), x = unit(0.25, "npc"), y = unit(0.215, "npc"), just = c("right", "bottom"), gp = gpar(fontface = "bold",fontsize = 14, col = "blue")) grid.text((paste0(podatki$soa,".0")), x = unit(.33, "npc"), y = unit(0.21, "npc"), just = c("right", "bottom"), gp = gpar(fontface = "bold", fontsize = 19, col = "blue")) grid.text((paste("Socialne spretnosti")), x = unit(0.25, "npc"), y = unit(0.115, "npc"), just = c("right", "bottom"), gp = gpar(fontface = "bold",fontsize = 14, col = "blue")) grid.text((paste0(podatki$ssk,".0")), x = unit(.33, "npc"), y = unit(0.11, "npc"), just = c("right", "bottom"), gp = gpar(fontface = "bold", fontsize = 19, col = "blue")) # Ker žekimo imeti dvojno X os, NE uporabimo (zaradi risanja) kode: #install.packages("cowplot") #require(cowplot) #ggdraw(switch_axis_position(p2 + theme_bw(), axis = 'x', keep = 'x')) # Ampak to ročno naredimo oz ročno dodamo številke na posamezno os grid.text((paste0("0.0")), x = unit(.6044, "npc"), y = unit(0.955, "npc"), just = c("left", "bottom"), gp = gpar(fontface = "bold",fontsize = 11, col = "black")) grid.text((paste0("2.5")), x = unit(.6866, "npc"), y = unit(0.955, "npc"), just = c("left", "bottom"), gp = gpar(fontface = "bold",fontsize = 11, col = "black")) grid.text((paste0("5.0")), x = unit(.7689, "npc"), y = unit(0.955, "npc"), just = c("left", "bottom"), gp = gpar(fontface = "bold",fontsize = 11, col = "black")) grid.text((paste0("7.5")), x = unit(.851, "npc"), y = unit(0.955, "npc"), just = c("left", "bottom"), gp = gpar(fontface = "bold",fontsize = 11, col = "black")) grid.text((paste0("10.0")), x = unit(.92193, "npc"), y = unit(0.955, "npc"), just = c("left", "bottom"), gp = gpar(fontface = "bold",fontsize = 11, col = "black")) dev.off() EQ_lineplot_pojasnilo <- paste0("\\textbf{How to interpret your results}: \\newline If the score is below 2.5, this component could be an area of concern. Scores that fall between 2.5 and 7.5 indicate that the component can be taken to the next level. If any score is above 7.5, this component could be a strength that can be leveraged to support you in your work.") # Ne potrebujemo interpretacij EQ_lineplot_pojasnilo <- NULL tex.EQ_lineplot <- c(paste0( "\\begin{figure}[H]", "\\caption{ \\textbf{\\large{Moj podrobni EQ profil}}}", "\\caption{Moje ocene za 15 komponent čustvene inteligentnosti}", paste0("\\centerline{\\includegraphics[width=1\\textwidth]{slike/EQ_lineplot.pdf}}"), "\\end{figure}"),EQ_lineplot_pojasnilo) } else {tex.EQ_lineplot <- NULL} ## //My Detailed EQ Profile// ## # Zapišemo še ime respondenta, organizacije in datum testiranja # Name junk <- c("-1","-2", "-3", "-4", "-5") if (!is.null(podatki$Q1)) { if (length(podatki$Q1)>0 & !(podatki$Q1 %in% junk)) { respondent <- paste(podatki[["Q1"]],podatki[["Q14"]], sep=" ") # Izpis imena kandidata, ki se ga ocenjuje na prvi strani respondent <- gsub('ą', 'š', respondent,fixed=T) # Pravilni izpis šumnika respondent <- gsub('ą', 'š', respondent,fixed=T) # Pravilni izpis šumnika respondent <- gsub('©', 'Š', respondent, fixed=T) respondent <- gsub('®', 'Ž', respondent,fixed=T) respondent <- gsub('\u017E', 'ž', respondent,fixed=T) } else {respondent <- " "} # Organisation if (length(podatki$Q15)>0 & !(podatki$Q15 %in% junk)) { Organisation <- podatki[["Q15"]] # izpis osebe, ki je pripravila poročilo Organisation <- gsub('ą', 'š', Organisation,fixed=T) # Pravilni izpis šumnika Organisation <- gsub('ą', 'š', Organisation,fixed=T) # Pravilni izpis šumnika Organisation <- gsub('©', 'Š', Organisation, fixed=T) Organisation <- gsub('®', 'Ž', Organisation,fixed=T) Organisation <- gsub('\u017E', 'ž', Organisation,fixed=T) } else {Organisation <- " "} # Date of testing if (length(podatki$itime)>0 & !(podatki$itime %in% junk)) { date <- podatki[["itime"]] # izpis osebe, ki je pripravila poročilo } else {date <- " "} if (length(podatki$Q1)>0 & !(podatki$Q1 %in% junk)) { respondent.nagovor <- podatki[["Q1"]] # Izpis imena kandidata, ki se ga ocenjuje v nagovoru respondent.nagovor <- gsub('ą', 'š', respondent.nagovor,fixed=T) # Pravilni izpis šumnika respondent.nagovor <- gsub('©', 'Š', respondent.nagovor, fixed=T) respondent.nagovor <- gsub('®', 'Ž', respondent.nagovor,fixed=T) respondent.nagovor <- gsub('\u017E', 'ž', respondent.nagovor,fixed=T) } else {respondent.nagovor <- " "} } else {respondent <- " " Organisation <- " " date <- " " respondent.nagovor <- " "} # SPOL za nagovor Uporabljamo samo pri SLO verziji if (!is.null(podatki$XSPOL)) { if (length(podatki$XSPOL)>0) { if (podatki[["XSPOL"]]==1) { nagovor <- "Spoštovani"} else {nagovor <- "Spoštovana"} } else {nagovor <- " "} } else {nagovor <- " "} ## //SPOL// ## Sys.setlocale("LC_ALL", "Czech") ##Metodologija na začetku podatkovni.okvir <- scan("modules/mod_EVOLI/latexkosi/pojasnilo_slo.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8') podatkovni.okvir <- gsub(pattern='!name.address!', replacement=Hmisc::latexTranslate(respondent.nagovor), x=podatkovni.okvir) # Naslov porocila na prvi strani tabela.5.komponent.tex <- scan("modules/mod_EVOLI/latexkosi/tabela_The 5_areas_slo.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8') tabele.15.komponent.tex <- scan("modules/mod_EVOLI/latexkosi/tabela_The 15_components_slo.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8') pojasnilo.konec.tex <- scan("modules/mod_EVOLI/latexkosi/pojasnilo.konec_slo.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8') ##Generiranje PDF tex.glava <- scan("modules/mod_EVOLI/latexkosi/glava-evoli_slo.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8') #tex.glava <- gsub(pattern='!encoding_r!', tolower(gsub("-","",localeToCharset(locale=Sys.getlocale("LC_CTYPE")))), x=tex.glava) tex.noga <- scan("modules/mod_EVOLI/latexkosi/z-noga.tex", character(0), sep="\n", quiet=TRUE) tex.glava <- gsub(pattern='!name!', replacement=Hmisc::latexTranslate(respondent), x=tex.glava) # Naslov poročila na prvi strani tex.glava <- gsub(pattern='!organisation!', replacement=Hmisc::latexTranslate(Organisation), x=tex.glava) # Naslov poročila na prvi strani tex.glava <- gsub(pattern='!date!', replacement=Hmisc::latexTranslate(date), x=tex.glava) # Naslov poročila na prvi strani Rdirektorij <- getwd() tex.izbor <- c(tex.glava, "\\newpage", podatkovni.okvir, "\\newpage","\\vspace*{-2.8cm}", tex.EQ, "\\newpage",EQ_barplot, komponente,"\\vspace{2.4cm}", tabela.5.komponent.tex, "\\newpage",tex.EQ_lineplot, "\\newpage", tabele.15.komponent.tex, pojasnilo.konec.tex, tex.noga) tex.izbor <- gsub(pattern='!name!', replacement=Hmisc::latexTranslate(respondent), x=tex.izbor) # Naslov poročila na prvi strani tex.izbor <- gsub(pattern='!Spostovani!', replacement=Hmisc::latexTranslate(nagovor), x=tex.izbor) # Naslov poročila na prvi strani pdf_name <- gsub("[[:space:]]", "_", respondent) pdf_name <- gsub("\\?", "o", pdf_name) setwd(paste(Rdirektorij, "modules/mod_EVOLI/results", sep="/")) cat(tex.izbor, file = paste('PEQM-SL.tex', sep = ''), sep = '\n') tools::texi2pdf(file=paste0("PEQM-SL.tex"), quiet=TRUE, clean=TRUE) setwd(Rdirektorij)