5

编码对我来说总是很痛苦，而且再次用俄语文本编写文件是不可能的。我该怎么办？

 >test = c("привет","пока")
 >test
 [1] "\320\277\321\200\320\270\320\262\320\265\321\202" "\320\277\320\276\320\272\320\260"

 >Encoding(test)
 [1] "unknown" "unknown"

 > f = file("test.txt", encoding = "UTF-8")

 > write(t,f)
 Error in cat(list(...), file, sep, fill, labels, append) : 
 argument 1 (type 'closure') cannot be handled by 'cat'

 > Encoding(test) = "UTF-8"
 > test
 [1] "<U+043F><U+0440><U+0438><U+0432><U+0435><U+0442>" "<U+043F><U+043E><U+043A><U+0430>"  

 > write(t,f)
 Error in cat(list(...), file, sep, fill, labels, append) : 
 argument 1 (type 'closure') cannot be handled by 'cat'

我使用 R-studio 0.97.312、Mac OS 10.7.5、

4

2 回答 2

2

如果您只是访问 Encoding() 的帮助页面，您会发现本机函数 enc2native(x)，这将起到如下作用

test = enc2utf8(c("привет","пока"))
于 2013-08-12T15:57:08.357 回答
2

我知道您对编码问题的痛苦:(希望这会对您有所帮助：

    > Sys.setlocale(,"ru_RU")
    [1] "ru_RU/ru_RU/ru_RU/C/ru_RU/C"
    > test = c("привет","пока")
    > write(test, file="test.txt")

之后您甚至可以使用西里尔文变量Sys.setlocale(,"ru_RU")：

   > привет <- rnorm(100)
   > min(привет)
   [1] -2.54578

Так что удачи！:)

于 2015-03-03T06:20:07.607 回答