Question

我有一些数据，可重复的示例集是：

a<-data.frame(
MDSE_ITEM_I=as.factor(c(rep(10,2),rep(15,2),rep(23,4))),
CO_LOC_I=as.factor(c(rep(1,2),rep(3,2),rep(5,1),rep(7,3))),
date = seq(as.Date("2011-12-01"), as.Date("2011-12-08"),by="days"),
SLS_TYPE_GRP_C=as.factor(c(rep("R",2),rep("P",4),rep("P",2))),
NON_CLR_SLS_Q=as.numeric(rnorm(8,3,1)))

我正在尝试使用cat命令写入文件连接：

fileConn<-file("/Users/z076156/Desktop/output.txt")
sapply(1:nrow(a), FUN = function(row) {
  cat(a$MDSE_ITEM_I[row],",",a$CO_LOC_I[row],",",a$date[row],",",
      a$SLS_TYPE_GRP_C[row],",",a$NON_CLR_SLS_Q[row],"\n",sep='')})
close(fileConn)

我得到的输出是：

1,1,15309,2,3.043244
1,1,15310,2,2.667343
2,2,15311,1,1.177765
2,2,15312,1,4.411262
3,3,15313,1,2.162418
3,4,15314,1,1.876237
3,4,15315,1,6.043766
3,4,15316,1,3.235021

此输出被删除factor和date格式。如何在写入文件连接时保持格式化？

Answer 1

也许as.character（）会在

中提供帮助

> cat(a$MDSE_ITEM_I)
1 1 2 2 3 3 3 3> 
> cat(as.character(a$MDSE_ITEM_I))
10 10 15 15 23 23 23 23>

也

// config/environment.js
...
if (environment === 'production') {
  ENV['ember-cli-mirage'] = {
     enabled: true //turns it on/off
  }
}

HTH，哈德

写入文件连接R时数据格式发生变化

1 个答案: