将csv文件读取到数据表,解压缩第一列,然后将列转换为逗号sep字符串。但是逗号sep字符串格式是科学的。
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]))
#将矢量转换为逗号sep字符串
这里的输出是
8.42236079117024e-314, 7.01079536177647e-314, 5.49153994749451e-314, 3.53494435730255e-312, 1.35460452687607e-313
如何避免转换并获得如下结果
'17047048023,14190007787,11115000595,715480703234,27417500858'
尝试使用qazxsw poi以及qazxsw poi。但是没有给出正确的结果。
根据评论发布答案。
tostring
options(scipen = 999)
如果使用index而不是name,则会创建一个稍微不同的字符串,需要进一步格式化。所以下面的代码给出不同的输出
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])))