diff --git a/admin/survey/modules/mod_NIJZ/R/Nijz.R b/admin/survey/modules/mod_NIJZ/R/Nijz.R index 0247eb141..023aba78e 100644 --- a/admin/survey/modules/mod_NIJZ/R/Nijz.R +++ b/admin/survey/modules/mod_NIJZ/R/Nijz.R @@ -248,6 +248,11 @@ data <- read.csv2( data <- subset(data, !is.na(data$V2) | data$V2 < 0) + +# Because we will reverse the order +# client wopudl liek to have +# Label 1 at 12.00 in plot +data <- rbind( data[-1, ], data[1, ]) #--------------------------- // READ DATA // ------------------------# @@ -264,7 +269,7 @@ mydf <- # Add names which will be displayed as labels in # chart and also their means in parentheses # Deljenje besed zaradi preglednosti -labels <- gsub('(.{1,20})(\\s|$)', '\\1\n', data$V1) +labels <- gsub('(.{1,18})(\\s|$)', '\\1\n', data$V1) colnames(mydf) <- labels # Nastavitve fonta na željo naročnika