谈谈R中的乱码（二）

作者简介Introduction

数据匠(baidao.net)：http://www.baidao.net/

往期回顾

谈谈R中的乱码（一）

保真的读写方式

这是什么意思呢？先看两个代码示例：

示例一

来自 sjPlot 的示例，青椒群主丁哥也提到了（青椒https://mp.weixin.qq.com/s/dHt5sUeu6_3gQyDZ9JHkEw），不过遇到障碍就略过，不符合我们 rebuild the wheel 的风格。中文是我的第二母语，我不跟中文较劲谁来较劲。

library(sjPlot)

library(sjmisc)

data(efc) 

 # 我要跟中文较劲之1 

attr(efc$c160age, 'label') <- '年龄' 

fit1 <- lm(barthtot ~ c160age + c12hour + c161sex + c172code, data = efc) 

sjt.lm(fit1) 

 # 我要跟中文较劲之2 

attr(efc$c160age, 'label') <- iconv('年龄', to = 'UTF-8') 

fit1 <- lm(barthtot ~ c160age + c12hour + c161sex + c172code, data = efc) 

sjt.lm(fit1)

显示的表格是这样的：

统统可耻地失败了！！！夜深人静之时，熬到双眼通红，改代