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
