texte analyse de l'association minièreComment effacer des espaces dans l'analyse de l'association
Comment effacer les espaces
Pour voir le résultat de la création de règles d'association,
Il y a des caractères vides (LHS). (Par exemple cela apparaît)
[1] {} => {monday} 0.012672811 0.012672811 1.000000
[2] {} => {happy} 0.007488479 0.007488479 1.000000
[3] {} => {money} 0.007488479 0.007488479 1.000000
Il doit être supprimé lorsque vous utilisez "arulesViz graph".
Il y a beaucoup de cercles sans nom à cause des espaces.
Que dois-je faire? Merci pour vos conseils.
library(KoNLP)
library(RColorBrewer)
library(wordcloud)
text1<-readLines(file.choose())
text1
Encoding(text1)<- "UTF-8"
text1 <- readLines(text1)
lword <- Map(extractNoun,text1)
lword <- unique(lword)
lword <- sapply(lword, unique)
filter1 <- function(x){
nchar(x) <= 4 && nchar(x) >= 2 && is.hangul(x)
}
filter2 <- function(x){
Filter(filter1, x)
}
lword <- sapply(lword, filter2)
install.packages("arules")
library(arules)
wordtran <- as(lword, "transactions")
wordtable <- crossTable(wordtran)
tranrules <- apriori(wordtran, parameter=list(supp=0.01, conf=0.05))
inspect(tranrules)
rules <- labels(tranrules, ruleSep=" ")
rules <- sapply(rules, strsplit, " ", USE.NAMES=F)
rulemat <- do.call("rbind", rules)
#---------------------------------------------
#▽Association analysis visualization
#---------------------------------------------
install.packages("arulesViz")
library(arulesViz)
plot(tranrules, method="graph", control=list(type="items"))