Unnamed

csv = read.delim(file="/shared/tmp/inteUniqTimDataPerRad.csv", header=T, sep='\n')
tbl <- as.data.frame(table(csv$timmar))
max <- tbl$Freq[which.max(tbl$Freq)]
for(i in 1:length(tbl$Var1))
    print(paste(tbl$Var1[i], ":", paste(rep("*", round((tbl$Freq[i]/max*100)/5)), collapse='')))

resultat:
[1] "0 : ***********"
[1] "1 : ****"
[1] "2 : ***"
[1] "3 : *"
[1] "4 : ***"
[1] "5 : **"
[1] "6 : "
[1] "7 : *"
[1] "8 : **"
[1] "9 : ******"
[1] "10 : **************"
[1] "11 : ***************"
[1] "12 : ***********"
[1] "13 : *************"
[1] "14 : ************"
[1] "15 : ***********"
[1] "16 : ***********"
[1] "17 : ************"
[1] "18 : ***********"
[1] "19 : *************"
[1] "20 : **************"
[1] "21 : ********************"
[1] "22 : *******************"
[1] "23 : ********"