as.character()之后再导出，总不会再有奸细了吧

a <- c(1234567890123456789,2345678901123456789,7.2039e18)
da <- data.frame(a=a,b=seq(1,3))

myToString <- function(x){
  format(x,scientific=FALSE)
}

aString <- sapply(da$a, myToString)

da$aString <- aString
da$a <- NULL
write.csv(da,file='c:/1.csv')

刚刚查到一个最简单的方法…………
options(scipen = 200)
表示两百位以内的数字都不用科学计数法表示