library(wordcloud)
dataset <- maml.mapInputPort(1)

graphics.off()
png("myplot.png",width=1024,height=640,res=300) 
file.remove(Sys.glob("*rViz*png"))

#wordcloud(c("Juku", "Kati", "Mati"),c(30, 50, 40))
wordcloud(dataset$sona, dataset$kogus, min.freq=2)



_____

select sona, COUNT(*) AS kogus from t1
WHERE lugu="kungla"
GROUP BY sona
ORDER BY COUNT(*) DESC;