Rから漢字を印刷するには？

Question

私はRから中国語を読んだり、RStudioで中国語を見ることができます。しかし、私はどのようにRコードからそれらの中国語単語をプリントアウトするかを理解することはできません。ここ は、コンソール上のコードの例を次に示します。

fi <- 'c:\\R_Routines\\Ch.txt' 
g <- readLines(con=fi, encoding='UTF-8') 
g 
# [1] "发动机测谎报告" 
fo <- 'c:\\R_Routines\\Ch1.txt' 
fa <- file(fo, encoding='UTF-8') 
writeLines(g, con= fa) 
fi <- 'c:\\R_Routines\\Ch1.txt' 
g <- readLines(con=fi, encoding='UTF-8') 
g 
# [1] "<U+53D1><U+52A8><U+673A><U+6D4B><U+8C0E><U+62A5><U+544A>" 

どのように出力（ディスクに書き込み）私は、ファイルから読み込ん中国語の単語のテキストファイルへ？

Answer 1

本当に答えはありますが、私の検索では、あなたがRStudioで最初にエンコードに問題がないことを示すいくつかの投稿が見つかりました。

froma Windowsユーザースクリーンショットだった

：デフォルトはでアクセス可能です。あなたはSys.setlocaleを使用することも必要かもしれませんが、あなたができたかのようにそれはそう以来、私は最初敬遠しがちRStudioデフォルト値を変更してみたい

：私は、Mac上のデフォルトの設定のための可能な場所を発見したところ、これがあります最初に文字を印刷する。私はMacがR.app GUIを実行しているまたはMac上でRStudioを実行する上で、あなたの問題を確認することができないよ：

> fi <- '~/test.txt' 
> g <- readLines(con=fi, encoding='UTF-8') 
> g 
[1] "发动机测谎报告" 

のUnicodeの高い値が引用バックスラッシュ-'u'-番号引用符で処理されます。ヘルプページを参照してください：

?Quotes 

'\u53D1' 
[1] "发" 

しかし、Rパーサは、16進数に続くせずに裸「\ U」を受け付けませんので"\U"で"<U+"を交換しようとすると、失敗します。