ここから本文です

回答受付終了まであと3日 回答を投稿すると知恵コイン15枚が追加されます

RおよびRMeCabに詳しい方にお伺いします. RMeCabでKWICを行い,その内容をテキ...

ueh********さん

2019/12/920:00:02

RおよびRMeCabに詳しい方にお伺いします.

RMeCabでKWICを行い,その内容をテキストデータに書き出したいと考えております.
しかし,

write.table ( result , "text.txt" , quote = F , sep = "" , row.names = F , col.names = F )

このコードを走らせても出来上がったファイルはすっからかんで,何も記述されていません.
KWICは「Rによるやさしいテキストマイニング」という小林雄一郎さんの本にそって自作関数にしてます.以下のものです.

KWIC <- function(x, y) {
RMeCabText.result <- RMeCabText(x)
RMeCabText.result.2 <- map_chr(RMeCabText.result, extract(1))
word.vector <- RMeCabText.result.2
word.positions <- which(word.vector == y)
context <- 4
for(i in seq(word.positions)) {
if(word.positions[i] == 1) {
before <- NULL
} else {
start <- word.positions[i] - context
start <- max(start, 1)
before <- word.vector[start : (word.positions[i] - 1)]
}
end <- word.positions[i] + context
after <- word.vector[(word.positions[i] + 1) : end]
after[is.na(after)] <- ""
keyword <- word.vector[word.positions[i]]
cat("---", i, "---", "\n")
cat(before, "[", keyword, "]", after, "\n")
}
}

ここから,kekka<-KWIC("data.txt","明るい")
として,コンソール上に結果は表示されるのですがなぜか書き出しがうまくいきません.


分かる方ご教授ください.
どうぞよろしくお願いいたします.

閲覧数:
2
回答数:
0
お礼:
50枚

違反報告

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる