words=c("big", "data", "machine", "learning", "wordcloud", "R", "d3js", "algorithm", "analytics", "science", "API")
freq=c(50, 50, 30, 30, 100, 10, 10, 10, 5, 5, 5 )
json<-jsonWordCloud(words, freq)
D3WordCloud(json, file_out="word_cloud.html")
Run the code above in your browser using DataLab