アールメカブ

• バックアップ一覧
• 差分 を表示
• ソース を表示
• バックアップ を表示
• RdeKanjiSort へ行く。
  • 1 (2008-10-23 (木) 07:44:15)
  • 2 (2008-10-23 (木) 08:01:38)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[Rの備忘録]]

大仰な。
漢字を読みでソートする．ちと，大仰だったか．
 kanji <- c("黄","紫","青","赤","緑")
 x <- paste(kanji, collapse = " ")
 write(as.character(x), file = "hoge.txt" )
 library(RMeCab)
 y <- RMeCabText("hoge.txt")
 yomi <- numeric(length(y))
 yomi <- character(length(y))
 for(i in 1:length(y)){
  yomi[i] <- y[[i]][9]
 }
 kanji[order(yomi)]
  [1] "青" "赤" "黄" "緑" "紫"
 file.remove("hoge.txt")
  [1] TRUE

textConnection()関数を使う方法があるはずだが．

RMeCabText()関数を[[書き直さないといけない>R_ファイル処理]]よう。