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에서 기본 설정 가능 위치를 찾을 수있는 곳입니다 문자를 처음에 인쇄합니다. 나는 R.app GUI를 실행 또는 Mac에서 RStudio를 실행하는 Mac에서 문제를 확인 드릴 수 없습니다 :

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

유니 코드의 더 높은 값으로 처리됩니다 따옴표 - 백 슬래시 - 'u'-번호를 인용 . 도움말 페이지를 참조하십시오

?Quotes 

'\u53D1' 
[1] "发" 

그러나 R 파서는 16 진수를 성공없이 벌거 벗은 "\ U"를 허용하지 않기 때문에 "\U"와 "<U+"이 실패 교체하려고합니다.