объекты Сохранение Ngram в dataframe

Question

require(ngram) 
require(stringr) 
res<-readLines("text1.txt") 
wordlength=0 

for(j in 1:length(res)){ 
temp<-sapply(strsplit(res[j]," "), length) 
if (temp>=wordlength) { 
    wordlength=temp 
} 
} 

rm("temp") 
data<-data.frame 

for(i in 1:length(res)){ 
x<-res[i] 
ng<-ngram(x,n=2) 
temp<-babble(ng,genlen=500,seed=123) 
data[i]<-ngram(temp,n=2) 
} 

get.ngrams(ngram(bab[1,],n=2)) 
babng<-matrix(nrow=length(res),wordlength) 

Я пытаюсь сохранить данные Ngram в кадре данных из этого цикла, я также пытался сохранить его в матрице, но эта ошибка показывает:

"object of type 'closure' is not subsettable" 

Я хочу получить частотное распределение каждого элемента 2gram из babbler. Извините за мою грязную кодировку. Я новичок в R.

Answer 1

В коде, вы звоните:

data<-data.frame 

, который присваивает функции data.frame переменной data. Позже вы вызываете data[i]<-ngram(temp,n=2), что вызывает ошибку, потому что функция, назначенная переменной data, не может быть подстроена с использованием оператора подмножества [. Вы, вероятно, хотите создать объект data.frame и присвоить его переменной data по вызывающей функцию data.frame через:

data<-data.frame() 

Answer 2

Это будет также сделать это довольно легко:

require(quanteda) 
Bigrams <- tokenize(toLower(res), ngrams = 2) 
as.data.frame(table(Bigrams)) 

Вы можете сделайте это для более чем одного документа, если res является символьным вектором документов, используя

BigramDfm <- dfm(res, ngrams = 2) 
as.data.frame(BigramDfm)