将csv文件读取到数据表,提取第一列,然后将该列转换为逗号分隔字符串。但是逗号分隔字符串格式是科学的。
EAN <- fread(filepath,header=T,sep=",",select = c(1))
EAN
1: 17047048023
2: 14190007787
3: 11115000595
4: 715480703234
5: 27417500858
6: 14130302041
7: 12800011130
8: 11111048172
9: 14116342231
10: 14133103116
11: 17245798099
EANstr<- as.character(unique(EAN[,1]))
#将向量转换为逗号分隔字符串
这里的输出是
8.42236079117024e-314, 7.01079536177647e-314, 5.49153994749451e-314, 3.53494435730255e-312, 1.35460452687607e-313
如何避免转换并获得如下结果
'17047048023,14190007787,11115000595,715480703234,27417500858'
尝试使用tostring
和options(scipen = 999)
。但是没有给出正确的结果。
答案 0 :(得分:0)
根据评论发布答案。
边读边设置colClasses="character"
EAN <- fread(upcListPath,header=T,sep=",",colClasses="character")
EANstr <- toString(unique(EAN[,EANCol]))
如果使用索引代替名称,则会创建一个稍有不同的字符串,需要进一步设置格式。所以下面的代码给出了不同的输出
`EANstr <- toString(unique(EAN[,1]))`
EANstr <- toString(unique(as.character(EAN[,EANCol])))
colclasses
后粘贴功能
EAN <- fread(upcListPath,header=T,sep=",",colClasses="character")
EANstr <- paste(unique(EAN$EANCol),collapse=",")