R语言导出

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

在R语言中，20位的数，用.csv导出会自动变为科学计数，用txt不会，但是今天居然遇到这样一个问题：在R中的同一个数据框中，设置完option后，数据显示全都为正常，但是把这个数据导出为txt后，其中一部分自动变为了科学计数，同一个数据同一个文件，同样的20位的数字。
请问这是怎么产生的？怎么解决？求指教！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 Option 数据显示 txt 数据框 option

修改options(scipen)参数，越大越不容易出现科学计数法：

1. > x=c(1e-8, 1e8)
   
2. > x
   
3. [1] 1e-08 1e+08
   
4. > options('scipen'=10)
   
5. > x
   
6. [1] 1e-08 1e+08
   
7. > options('scipen'=10000)
   
8. > x
   
9. [1]         0.00000001 100000000.00000000

复制代码

R里面的数据已经改了不显示科学计数，但是导出以后发生了，并且是txt文件，

JLOGAN 发表于 2016-6-30 19:18
R里面的数据已经改了不显示科学计数，但是导出以后发生了，并且是txt文件，

采用 format () 函数，保护输入输出的数字格式。。。参阅 write.table 帮助文件。。

jgchen1966 发表于 2016-7-1 20:51
采用 format () 函数，保护输入输出的数字格式。。。参阅 write.table 帮助文件。。

但是在write.table里用format函数怎么用？比如说现在已经处理好了一个数据框A

X<-as.data.frame(matrix(rnorm(10*3),nrow=10))
write.table(format(X,digits=7),file="myfile.txt",quote=FALSE)
在myfile.txt 数据呈现如此：
     V1              V2               V3
1  1.6961655 -0.4700603  0.5298445
2  1.5268508  1.1891110  0.2270164
3 -0.5698944 -1.1921687 -0.3072627
4  1.0450445  1.3774005 -1.4995858
5  0.4265215  0.5279158  0.1744699
6  1.5516925 -1.0503520  0.2978492
7 -0.8460928  0.3894618  0.7666396
8  0.1505810  0.2777488 -0.9364641
9 -0.8282284 -0.7832542  1.4818762
10  0.2677572 -1.2915542  0.4994488
对format 用法，详细参考 它说明书！！help(format)

X<-as.data.frame(matrix(rnorm(10*3),nrow=10))
write.table(format(X,digits=7),file="myfile.txt",quote=FALSE)
在myfile.txt 数据呈现如此：
     V1              V2               V3
1  1.6961655 -0.4700603  0.5298445
2  1.5268508  1.1891110  0.2270164
3 -0.5698944 -1.1921687 -0.3072627
4  1.0450445  1.3774005 -1.4995858
5  0.4265215  0.5279158  0.1744699
6  1.5516925 -1.0503520  0.2978492
7 -0.8460928  0.3894618  0.7666396
8  0.1505810  0.2777488 -0.9364641
9 -0.8282284 -0.7832542  1.4818762
10  0.2677572 -1.2915542  0.4994488
对format 用法，详细参考 它说明书！！
help(format)

X<-as.data.frame(matrix(rnorm(10*3),nrow=10))
write.table(format(X,digits=7),file="myfile.txt",quote=FALSE)

jgchen1966 发表于 2016-7-4 23:12
X

666