diff --git a/admin/survey/modules/mod_NIJZ/R/Nijz_report.R b/admin/survey/modules/mod_NIJZ/R/Nijz_report.R
index 0e7cd58ba..7bf00d25b 100644
--- a/admin/survey/modules/mod_NIJZ/R/Nijz_report.R
+++ b/admin/survey/modules/mod_NIJZ/R/Nijz_report.R
@@ -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)
 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 
 mydf <-
@@ -357,7 +357,7 @@ colnames(mydf) <- labels
 
 #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 
 radarchart2(
   mydf,