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

NIJZ graf: povečanje in odmik label maksimalno kar se da

Browse Source
This commit is contained in:
Miha 2021-12-24 07:11:39 +01:00
parent 6d4012f6a9
commit 872f19a935
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -213,8 +213,8 @@ radarchart2 <-
if (!is.null(vlabels)) if (!is.null(vlabels))
VLABELS <- vlabels VLABELS <- vlabels
if (is.null(vlcex)) if (is.null(vlcex))
text(xx * 1.2, yy * 1.2, VLABELS, srt=20) text(xx * 1.4, yy * 1.4, VLABELS, srt=20)
else text(xx * 1.2, yy * 1.2, VLABELS, cex = vlcex, srt=20) else text(xx * 1.4, yy * 1.4, VLABELS, cex = vlcex, srt=20)
series <- length(df[[1]]) series <- length(df[[1]])
SX <- series - 2 SX <- series - 2
if (length(pty) < SX) { if (length(pty) < SX) {
@ -368,7 +368,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.3, xpd = TRUE, mar = c(0, 0, 2, 0)) par(col="#004078", font = 2, cex = 1.8, xpd = TRUE)
# Plot a radar chart # Plot a radar chart
radarchart2( radarchart2(
mydf, mydf,