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

Nijz popravki

Browse Source
This commit is contained in:
Miha 2021-10-22 12:15:24 +02:00
parent ab639578fb
commit bf7fd58cab
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -39,7 +39,7 @@ lxTranslate <- function(x, color = "NE", pisava = TRUE) {
x <- gsub("%", "\\\\\\\\%", x) x <- gsub("%", "\\\\\\\\%", x)
#x <- gsub("…", "\\\\\\\\dots", x) #x <- gsub("…", "\\\\\\\\dots", x)
x <- gsub("…", "...", x) x <- gsub("…", "\\\\\\\\ldots", x)
# ALI BNARVAMO? # ALI BNARVAMO?
@ -345,7 +345,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 = 0.8, xpd = TRUE) par(col="#004078", font = 2, cex = 1.1, xpd = TRUE)
# Plot a radar chart # Plot a radar chart
radarchart2( radarchart2(
mydf, mydf,
@ -360,9 +360,9 @@ radarchart2(
na.itp = FALSE, na.itp = FALSE,
plwd = 3, plwd = 3,
plty = 1, plty = 1,
seg = 7, seg = 4,
axistype = 1, axistype = 1,
caxislabels = 0:7, caxislabels = 0:4,
centerzero = TRUE centerzero = TRUE
) )