转换；（3e+；04,3.5e+；04）"；键入r中的数字

我有道路上汽车速度的数据集，以及汽车距离测量起点的距离

我想检查沿路每5公里的平均值和se值，因此我按照“DistanceFromStart”对数据进行排序，并使用我构建的函数制作了一个表格：

speedByKM <- function(testFile){
     setDT(a1a2011)[, list(Speed=mean(Speed)), by=list(cut(DistanceFromStart,breaks= seq(0, max(DistanceFromStart)+5000, by = 5000),include.lowest=TRUE))]->res
    setDT(a1a2011)[, list(Speed=se(Speed)), by=list(cut(DistanceFromStart,breaks= seq(0, max(DistanceFromStart)+5000, by = 5000),include.lowest=TRUE))]->res1
    res$se = res1$Speed 
       return(res)
 }

如何将公里数显示为一个数字？ 例如，不是“5e+03”显示5000？

---

谢谢。

从默认值3增加

dig.lab

参数：

x <- (1:5) * 1e3

cut(x, c(500, 2500, 5000))
#[1] (500,2.5e+03]   (500,2.5e+03]   (2.5e+03,5e+03] (2.5e+03,5e+03] (2.5e+03,5e+03]
#Levels: (500,2.5e+03] (2.5e+03,5e+03]
cut(x, c(500, 2500, 5000), dig.lab = 4L)
#[1] (500,2500]  (500,2500]  (2500,5000] (2500,5000] (2500,5000]
#Levels: (500,2500] (2500,5000]

---

x我想这篇文章回答了你的问题：
x <- (1:5) * 1e3

cut(x, c(500, 2500, 5000))
#[1] (500,2.5e+03]   (500,2.5e+03]   (2.5e+03,5e+03] (2.5e+03,5e+03] (2.5e+03,5e+03]
#Levels: (500,2.5e+03] (2.5e+03,5e+03]
cut(x, c(500, 2500, 5000), dig.lab = 4L)
#[1] (500,2500]  (500,2500]  (2500,5000] (2500,5000] (2500,5000]
#Levels: (500,2500] (2500,5000]