wbob's avatar
wbob
Advocate I
9 years ago
Solved

Wordcloud with r

Although there is a custom visualisation for Wordcloud now, I did this one with r in Power BI Desktop as you get a greater degree of control over it:     library(tm) library(wordcloud) words <...
Advanced Analytics Visualizations
  • Greg_Deckler's avatar
    Greg_Deckler
    8 years ago

    When I tried the original code, it worked with older versions of R, 3.2.3 but not newer versions of R, 3.3.1 and 3.4.2. The Corpus construction was returning only numbers which were then stripped out by the rest of the code causing problems. So, I hacked together a variation of the original code based upon comments and have a working version here:

     

    require(tm)
require(wordcloud)
require(RColorBrewer)

datain = as.data.frame(table(as.character(dataset[,1])))
words <- Corpus(VectorSource(dataset$text))

words <- tm_map(words, stripWhitespace)
words <- tm_map(words, content_transformer(tolower))
words <- tm_map(words, removeNumbers)
words <- tm_map(words, removePunctuation)
words <- tm_map(words, removeWords, stopwords("english"))
words <- tm_map(words, stemDocument)

wordcloud(words, scale=c(5,0.75), max.words=50, random.order=FALSE, rot.per=0.35, use.r.layout=FALSE, colors=brewer.pal(8, "Dark2"))

    The main change is the construction of the Corpus, VectorSource(dataset) becomes VectorSource(dataset$text)

     

    This is based upon the original PBIX file included in the original post.

kavasimihaly's avatar
kavasimihaly
Frequent Visitor
9 years ago

Hi, Thanks for sharing.

 

I have a problem with special charaters braking the visualisation.

 

Can you help me what to do with it.

 

The R code is working when no special charaters present.

 

This is the Error Message i get:

Error Message:

R script error.
Error in type.convert(data[[i]], as.is = as.is[i], dec = dec, numerals = numerals, :
invalid input '@MSEmpresasLatam @DiegoBek exactamente! Es la era de la inteligencia #AzureML #SQLEnterprise #PowerBI #IoT 😍' in 'utf8towcs'
Calls: read.csv -> read.table -> type.convert
Execution halted

 

 

This is the R code i have:

library(tm)
library(SnowballC)
library(wordcloud)
dataset <-Corpus(VectorSource(dataset))
dataset <- tm_map(dataset, removePunctuation)
dataset <-tm_map(dataset, removeWords, c('powerbi','PowerBI',stopwords('english')))
dataset <-tm_map(dataset, stemDocument)
wordcloud(dataset, max.words = 100, random.order = FALSE)

 

Thanks in advance if anyone could help.

 

Best Regards,

Kávási Mihály

mike_honey's avatar
mike_honey
Memorable Member
9 years ago

Hi Kávási,

 

It looks you are using the R Word Cloud, not the Power BI Custom Visual?  If that is the case then I suggest you re-post this e.g. to stackoverflow.com, tagged for R.

 

  • kavasimihaly's avatar
    kavasimihaly
    Frequent Visitor
    9 years ago

    Hi,

     

    the reason why i posted here because this is the R script showcase forum and this error is related to the R integration of PowerBI.

     

    Best regards, 

    Kávási Mihály ( in English it is Mihály Kávási correctly :) will change from now)