RMeCabの出力結果（形式）を変更したいです

前提

tweetが１００件ある中でtweetを一文ずつRMeCabで形態素解析にかけ、一文の中にどの品詞がどのくらい出現しているのか分析したいです。

実現したいこと

実際に出力はできたのですが、細かく改行されていてエクセルでの分析がしづらい状態です。
なので改行されないように出力したいです。
どうすればよいでしょうか？

発生している問題・エラーメッセージ

tweet文「おとなりの『三茶カフェ』」
[[１]]
名詞助詞
"おと" "なり"
助詞記号
"の" "「"
名詞名詞
"三" "茶"
名詞記号
"カフェ" "」"

↑この様に表示されます

　　　　　　　　　　↓実際に表示したい形
[[１]]
名詞助詞　　助詞記号　　名詞名詞　　　名詞記号
"おと" "なり" 　"の" "「" 　　 "三" "茶"　 "カフェ" "」"

試したこと

ｃｓｖファイルに出力してみたのですが同じ結果になりました。

環境

RGui（64-bit）

上記の動作ができない場合、出力結果をExcelで分析しやすいような形にできる方法があればそちらを教えていただきたいです。

cuttlefish44

2023/01/30 01:36

実行結果だけでなくコードも記載していただけますと回答もらいやすいと思います。

行動規範の内容に同意します

回答1件

ベストアンサー

長さの揃っていない名前付ベクトルのリストなので、csvやエクセルにするにはあまり適していません。
データフレームなりに直すのがよいでしょう。

library(RMeCab); library(dplyr)
example_data <- data.frame(id = c(1, 2), 
                           text = c("私の名前は太郎です。", 
                                    "今日の晩御飯はカレーとチャーハンどちらがいいですか？"))
mecabdf_output <- RMeCabDF(example_data, 2)

out <- bind_rows(lapply(mecabdf_output, function(x) as.data.frame(matrix(c(names(x), x), nrow = 2, byrow = TRUE))))
out
#     V1   V2   V3   V4   V5     V6   V7         V8     V9  V10    V11    V12  V13  V14
# 1 名詞 助詞 名詞 助詞 名詞 助動詞 記号       <NA>   <NA> <NA>   <NA>   <NA> <NA> <NA>
# 2   私   の 名前   は 太郎   です   。       <NA>   <NA> <NA>   <NA>   <NA> <NA> <NA>
# 3 名詞 助詞 名詞 名詞 助詞   名詞 助詞       名詞   名詞 助詞 形容詞 助動詞 助詞 記号
# 4 今日   の   晩 御飯   は カレー   と チャーハン どちら   が   いい   です   か   ？

## c(names(x), x))  
# ベクトルの名前と要素を1つのベクトルにする
## matrix(ry, nrow = 2, byrow = TRUE)
# 作成したベクトルを2行のmatrixにする  # rbind(names(x), x) だと名前要素が残って邪魔となる
## as.data.frame(ry) 
# df形式にする
### ここまでがリスト要素毎の反復作業
# bind_rows(ry) でdfに直したリストの各要素を縦にがっちゃんこする

# あとはお好みでexcelなりcsvに出力