cancel
Showing results for 
Search instead for 
Did you mean: 
Reply
theo_vent Frequent Visitor
Frequent Visitor

Issue - WordCloud with R

Hi everyone,

 

I'm trying to get a WordCloud appear on Power BI with an R-script. The script works fine with R, but when I plug it into Power BI and have my data already entered (import .csv file), I get this error message:

 

Error in strwidth(words[i], cex = size[i], ... : value 'cex' incorrect

Calls: wordcloud -> strwidth

 

The WordCloud works fine when I import my data with the R scrpit (text <- readLines(file.choose())) but not when I import my data before running R in Power BI.

 

Here is my script:

 

library("NLP")
library("methods")
library("tm") # main package for text mining
library("SnowballC") # package for stemming
library("RColorBrewer")
library("wordcloud") # package for WordCloud
library("proto")
library("gsubfn")
library("reshape2")
library("ngram")
library("tau")

 

text <- readLines(dataset)

## SEARCH FILE IN DOCUMENTS: ##
## text <- readLines(file.choose())


myCorpus <- Corpus(VectorSource(text))

myCorpus <- tm_map(myCorpus, tolower)
myCorpus <- tm_map(myCorpus, removePunctuation)
myCorpus <- tm_map(myCorpus, removeNumbers)
myCorpus <- tm_map(myCorpus, removeWords, stopwords("english"))

 

bigrams = textcnt(myCorpus, n = 2, method = "string")

bigrams = bigrams[order(bigrams, decreasing = TRUE)]

myDTM = TermDocumentMatrix(myCorpus, control = list(minWordLength = 1))

 

m = as.matrix(myDTM)

v = bigrams

d <- data.frame(word = names(v),freq=v)

 

set.seed(1234)
wordcloud(words = d$word, freq = d$freq, min.freq = 5,
          max.words=2000, random.order=FALSE, strwidth=50, strheight=0.5, rot.per=0.35,
          colors=brewer.pal(8, "Dark2"))

Can anyone tell me what I'm doing wrong ?

 

Thanks in advance,

 

Theo

1 REPLY 1
Community Support Team
Community Support Team

Re: Issue - WordCloud with R

@theo_vent,

 

You may check the data frame d first. Besides, take a look at custom visual Word Cloud.

Community Support Team _ Sam Zha
If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.

Helpful resources

Announcements
Community Kudopalooza

Win Power BI Swag with Community Kudopalooza!

Each week, complete activities and be qualified in the drawing for cool Power BI Swag.

Summit North America

Power Platform Summit North America

Register by September 5 to save $200

Virtual Launch Event

Microsoft Business Applications Virtual Launch Event

Watch the event on demand for an in-depth look at the new innovations across Dynamics 365 and the Microsoft Power Platform.

MBAS Gallery

Watch Sessions On Demand!

Continue your learning in our online communities.

Users Online
Currently online: 295 members 3,153 guests
Please welcome our newest community members: