Tarama kullanarak birden fazla metin dosyası işleme

Question

Benim için çalışan bu kodum var (Jockers'ın Edebiyat Öğrencileri için Metin Analizi). Bununla birlikte, yapabilmem gereken şey bunu otomatik hale getirmektir: Otuz bireysel metin dosyasına kadar "ProcessingSection" işlemini gerçekleştirmem gerekiyor. Bunu nasıl yapabilirim? Her bir scan("*.txt") için "text.v" nin otuz oluşmasını içeren bir tablo veya veri çerçevem ​​var mı?

Herhangi bir yardım çok takdir edilmektedir!

# Chapter 5 Start up code 

setwd("D:/work/cpd/R/Projects/5/") 

text.v <- scan("pupil-14.txt", what="character", sep="\n") 
length(text.v) 


#ProcessingSection 
text.lower.v <- tolower(text.v) 
mars.words.l <- strsplit(text.lower.v, "\\W") 
mars.word.v <- unlist(mars.words.l) 

#remove blanks 
not.blanks.v <- which(mars.word.v!="") 
not.blanks.v 

#create a new vector to store the individual words 
mars.word.v <- mars.word.v[not.blanks.v] 
mars.word.v 

Answer 1

Bu sizin örnek reproducible olmadığı için yardım etmek zor. Size itiraf

mars.word.v sonucu memnunsanız, tek argüman, taramanın sonucunu kabul edecek bir fonksiyonun içine bu kod bölümünü açabilirsiniz.

lf <- list.files(pattern=".txt") 
lapply(lf, function(path) processing_section(scan(path, what="character", sep="\n"))) 

bu İstediğin: Tüm .txt dosya geçerli çalışma dizini ise

processing_section <- function(x){ 
    unlist(strsplit(tolower(x), "\\W")) 
} 

Sonra, bunları, listelemek ve bu işlevi uygulamak gerekir?