as.numeric(levels(x))[x]显示的精度没问题，小数点后7位
再a <- as.numeric(levels(x))[x]后，a的内容已经没有小数点后面的位数了，该如何解决！！谢谢大神们。新手勿喷~