may/1KA_F2F
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

NIJZ RADAR: popravek da se radar graf pravilno izrisuje in da se labele en dotikajo grafa

Browse Source
This commit is contained in:
Miha 2021-10-25 18:27:12 +02:00
parent c4140be916
commit 1b35d380f5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
admin/survey/modules/mod_NIJZ/R/Nijz_report.R
View File

@ -340,7 +340,7 @@ CairoPNG('modules/mod_NIJZ/results/img/radar.png', width = 900, height = 700) #
# ) # )
# Create rang which will be labeld in grapf (10 likert scale) # Create rang which will be labeld in grapf (10 likert scale)
steviloVrstic <- nrow(data) - 5 steviloVrstic <- nrow(data) - 5
myrange <- c(0, steviloVrstic) myrange <- c(0, max(as.numeric(data[1:steviloVrstic,]$V2)))
# create a data frame with the max and min as the first two rows # create a data frame with the max and min as the first two rows
mydf <- mydf <-
@ -357,7 +357,7 @@ colnames(mydf) <- labels
#par(col="#004078", font = 2, cex = 1.4) #par(col="#004078", font = 2, cex = 1.4)
par(col="#004078", font = 2, cex = 1.1, xpd = TRUE) par(col="#004078", font = 2, cex = 0.9, xpd = TRUE)
# Plot a radar chart # Plot a radar chart
radarchart2( radarchart2(
mydf, mydf,