R
!!!R.text
{{outline}}
----
!!テキストファイルの読み込み

!scan()
*文字コードの指定オプション  fileEncoding="UTF-8"
 bun.tmp <- scan("ファイル名", what="char", sep="\n", fileEncoding="UTF-8")



!文字数を数える： <<nchar()>>

!文字変数の中身を出力する
* print()
* cat()
** オプション file="ファイル名" をつけることでファイルに保存できる。
** append=T を指定すると、既存のファイルに追記する。

!文字を連結する：<<paste()>>
*連結するものはデフォルトでは半角スペース
*変えたいときは、 sep="文字列" と指定する
*ベクトルの要素をつなげるときは、 collapse="文字列" で指定する


!!置換
!データフレーム内の文字列の置き換え
*直接は扱えないので、いったん、マトリックスに変換して、元に戻す
**一旦マトリックスに変化して、元に戻すと、データの型がchrになってしまう
*数字は型を戻す必要がある

{{pre
ja2.mx <- as.matrix(ja2.dat)                # いったんマトリックスに
ja2.mw <- myMW(ja2.mx)                      # ここで文字列置換
ja2.dat2 <- as.data.frame(ja2.mw)           # データフレームに戻して
ja2.dat2$freq <- as.integer(ja2.dat2$freq)  # 必要なところ型を戻す
}}


*上で使った置換部分のスクリプト
{{pre
myMW <- function(a){
 gyappu		<- gsub("\\(([[:upper:]]+) \\)", "[\\1]", a)
 kakkoMoji	<- gsub("\\([[:upper:]]+\\$* *", "", gyappu) #所有格のPRP$の$も取る
 gyappu2	<- gsub("\\)\\[", " [", kakkoMoji)	
 tojiKakko	<- gsub("\\)", "", gyappu2)
 tojiKakko
}
}}