R语言 RStudio 中文读取乱码解决方法

RStudio中使用rjson包读取处理json数据时,遇到中文会显示为 “<U+4EBA>“等类似乱码。


解决方案,在R语言终端中输入以下命令完美解决。


Sys.setlocale(category="LC_ALL",locale="en_US.UTF-8")


将以下JSON数据保存为json格式文件(注意文件编码为UTF-8)


{
"ID": ["1", "2", "3", "4", "5", "6", "7", "8"],
"Name": ["Rick", "Dan", "Michelle", "Ryan", "Gary", "Nina", "Simon", "Guru"],
"Salary": ["623.3", "515.2", "611", "729", "843.25", "578", "632.8", "722.5"],
"StartDate": ["1/1/2012", "9/23/2013", "11/15/2014", "5/11/2014", "3/27/2015", 
"5/21/2013", "7/30/2013", "6/17/2014"],
"Dept": ["IT部门", "Operations", "IT", "HR人力资源部", "Finance", "IT", "Operations", "Finance"]
}


使用rjson包读取json数据,已下3行命令:


library("rjson")
result_json <- fromJSON(file = "comment.json")
result_json


第一行:加载rjson包;

第二行:使用函数fromJSON读取本地json文件;

第三行:输出结果;


在未解决乱码之前输出结果是:


$ID
[1] "1" "2" "3" "4" "5" "6" "7" "8"
$Name
[1] "Rick"     "Dan"      "Michelle" "Ryan"    
[5] "Gary"     "Nina"     "Simon"    "Guru"    
$Salary
[1] "623.3"  "515.2"  "611"    "729"    "843.25" "578"   
[7] "632.8"  "722.5" 
$StartDate
[1] "1/1/2012"   "9/23/2013"  "11/15/2014" "5/11/2014" 
[5] "3/27/2015"  "5/21/2013"  "7/30/2013"  "6/17/2014" 
$Dept
[1] "IT<U+90E8><U+95E8>"              
[2] "Operations"                      
[3] "IT"                              
[4] "HR<U+4EBA><U+529B><U+8D44><U+6E90><U+90E8>"
[5] "Finance"                         
[6] "IT"                              
[7] "Operations"                      
[8] "Finance"


通过命令解决中文输出问题后,输出结果完美解决中文问题。


$ID
[1] "1" "2" "3" "4" "5" "6" "7" "8"
$Name
[1] "Rick"     "Dan"      "Michelle" "Ryan"    
[5] "Gary"     "Nina"     "Simon"    "Guru"    
$Salary
[1] "623.3"  "515.2"  "611"    "729"    "843.25" "578"   
[7] "632.8"  "722.5" 
$StartDate
[1] "1/1/2012"   "9/23/2013"  "11/15/2014" "5/11/2014" 
[5] "3/27/2015"  "5/21/2013"  "7/30/2013"  "6/17/2014" 
$Dept
[1] "IT部门"       "Operations"   "IT"          
[4] "HR人力资源部" "Finance"      "IT"          
[7] "Operations"   "Finance"


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/20707698/viewspace-2168429/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/20707698/viewspace-2168429/

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值