Wie drucke ich chinesische Buchstaben von R?

Question

Ich kann Chinesisch von R lesen und die chinesischen Wörter in RStudio sehen. Aber ich kann nicht herausfinden, wie man diese chinesischen Wörter aus dem R-Code ausdruckt (schreibt). Hier ist das Beispiel für den Code auf der Konsole:

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>" 

Wie Ausgang (schreibt auf der Festplatte) eine Textdatei mit den chinesischen Worten, die ich aus der Datei lesen?

Answer 1

Nicht wirklich eine Antwort, aber meine Suche hat mehrere Einträge gefunden, die darauf hinweisen, dass Sie nicht die erste Person sind, die Probleme mit Kodierungen in RStudio hat. Die Standardwerte sind erreichbar mit:

, die einen Bildschirm gedreht wurde froma Windows-Benutzer. Und das ist, wo ich mögliche Position für Standardeinstellungen auf einem Mac gefunden:

Sie auch Sys.setlocale verwenden müssen, aber ich würde versuchen, hte Ändern RStudio defaults zuerst, da es scheint, als ob Sie in der Lage waren um die Charaktere zu drucken. Ich bin nicht in der Lage, Ihr Problem auf einem Mac bestätigen die R.app GUI läuft oder RStudio läuft auf dem Mac:

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

Die höheren Werte von Unicode behandelt werden mit Zitat-Backslash-'U'-Zahlen-Zitat . Siehe die Hilfeseite:

?Quotes 

'\u53D1' 
[1] "发" 

Doch der Versuch, ersetzen "<U+" mit "\U" fehl, weil der R-Parser nicht ein nackten „\ U“ akzeptieren, ohne hexadezimale Zahlen Erfolg.