データフレームからのテキスト引数

Question

私はthis nice solutionを、your_sentenceの入力としてデータフレームを使ってテストしようとしています。

remove_words <- function(sentence, badword="blame"){ 
    tagged.text <- treetag(file=sentence, format="obj", treetagger="manual", lang="en", 
         TT.options=list(path=":C\\Treetagger", preset="en")) 
    # Check for bad words AND verb: 
    cond1 <- (tagged.text@TT.res$token == badword) 
    cond2 <- (substring(tagged.text@TT.res$tag, 0, 1) == "V") 
    redflag <- which(cond1 & cond2) 

    # If no such case, return sentence as is. If so, then remove that word: 
    if(length(redflag) == 0) return(sentence) 
    else{ 
    splitsent <- strsplit(sentence, " ")[[1]] 
    splitsent <- splitsent[-redflag] 
    return(paste0(splitsent, collapse=" ")) 
    } 
} 

lapply(your_sentences, remove_words) 

データフレームには、1列と351行があります。 your_sentencesでlapplyでは（私はコールせずに列をデータフレームを使用する場合、同じエラーがある）私は自分のデータフレームのためのコールと列名を使用して、私はこのエラーが表示されます。

> dfnew <- lapply(df$text, remove_words) 
Error in writeLines(text, con = conn.tempfile) : invalid 'text' argument 

は私が解決するために何ができますエラー？

例データ：

df = data.frame(text = c('I blame myself for what happened', 'For what happened the blame is yours', 'I will blame you if my friend removes')) 

Answer 1

何残念、:-)その唯一の誤植ことを望みました。しかし、私は第二の推測を持っています。あなたはおそらくStringsAsFactors = TRUEによって引き起こされた困難に踏み込んだでしょう。これにより、関数にcharacterの代わりにfactor型が渡された可能性があります。次のように試してください。

Answer 2

文字列が要素として保存されているように見えるため、remove_wordsには文字列ではなく係数値が指定されています。

df <- data.frame(text = c('I blame myself for what happened', 
         'For what happened the blame is yours', 
         'I will blame you if my friend removes'), 
       stringsAsFactors=F) 

それとも、あなたはすでに因子とあなたのdfを定義した場合、あなたはdf <- lapply(df, as.character)

lapply(df$text, remove_words) 
[[1]] 
[1] "I myself for what happened" 

[[2]] 
[1] "For what happened the blame is yours" 

[[3]] 
[1] "I will you if my friend removes"