在R中创建带有西班牙文本的语料库

Question

尝试在西班牙文本上进行一些文本挖掘和wordcloud可视化。 我实际上有9个不同的.txt文件，但只会发布一个用于复制。

“Nos lostes del del Pueblo delaNaciónARGENTINA，reunidos en Congreso General Constituyente por voluntadyeleccióndelas provincias que la componen，en cumplimiento de pactos preexistentes，con el objeto de constituirlauniónnacional，afianzar la justicia，consolidar la paz interior ，prover eldefensacomún，promover el bienestar general，y asegurar los beneficios de la libertad，para nosotros，para nuestra posteridad，y para todos los hombres del mundo que quieran habitar en el suelo argentino：invocandolaproteccióndeDios，fuente de toda razónyjusticia：ordenamos，decretamos y establecemosestaConstitución，paralaNación阿根廷。“

该文件保存为.txt文件。 以下是我尝试使用正确的编码生成term-document-matrix的天真尝试。 当我检查它时，我没有得到原始文件中的文本（例如，“constitución”变为“constitucif3n”）。 我是文本挖掘的新手，并且知道解决方案可能涉及各种各样的共同依赖调整，我想我会问这里而不是搜索4个小时。 提前致谢。

#Generate Term-Document-Matrix

#Convert Text to Corpus and Clean
cleanCorpus <- function(corpus) {
  corpus.tmp <- tm_map(corpus, removePunctuation)
  corpus.tmp <- tm_map(corpus.tmp, stripWhitespace)
  corpus.tmp <- tm_map(corpus.tmp, tolower)
  corpus.tmp <- tm_map(corpus.tmp, removeWords, stopwords("spanish"))
  return(corpus.tmp)
}

generateTDM <- function(path) {
  cor.tmp <- Corpus(DirSource(directory=path, encoding="ISO8859-1"))
  cor.cl <- cleanCorpus(cor.tmp)
  tdm.tmp <- TermDocumentMatrix(cor.cl)
  tdm.s <- removeSparseTerms(tdm.tmp, 0.7)
}

tdm <- generateTDM(pathname)
tdm.m <- as.matrix(tdm)

Answer 1

答：确保原始文本文件是UTF-8编码的。 为此，我不得不在Mac上的TextEdit中更改我的保存首选项。 这使一切都无缝地工作。