R 切割函数的格式级别

多亏了你的帮助，我才能够编写一个小程序，将大量数据分组，然后在x轴上显示，并在y轴上显示为相应组的频率。我无意中忘记使用labels=”“参数，但结果很好。或多或少

因此，如何更改此格式中所有组的标签：

（-4.5e+04，-2.25e+04）到这个格式-45.000-22.500？如果可能的话，我也很乐意看到这些点

               Gruppen Abweichung
1     -45.000 - -22.500         2
2      -22.500 -      0        60
3            0 - 22.500         8
4       22.500 - 45.000         2

下面你可以看到我的密码把我带到这个地方

# TEST Value

JACKY <- 4 #How many groups do I need?

MYMIN <- -45000 # Min on x-Axis
MYMAX <- 45000  # Max on x-Axis

MYSCHRTW <- (-MYMIN+MYMAX)%/%JACKY  #Steps of groups
################################################################################
# Create a vector for cutting the data into groups
GRENZEN <- seq(from = MYMIN, by = MYSCHRTW, length.out = JACKY)

# To also get the value of MYMAX into the last group
GRENZEN <- c(GRENZEN, MYMAX+1)
#################################################################################
    #Cut this damn thing
setDT(mydata)[ , Gruppen := cut(mydata$Abweichung,breaks=GRENZEN
               )
]

# Delete all rows that are not in a group
mydata <- mydata[complete.cases(mydata), ]

########################################################################################
# Change order from Abweichung, BW_Gesamt, groups to: groups, Abweichung, BW_Gesamt
mydata <- setcolorder(mydata, c("Gruppen", "Abweichung", "BW_Gesamt"))

########################################################################################
# Shrink it to groups only
mydata <- mydata %>%
  group_by(Gruppen) %>%
  summarise(Abweichung = n())
cat("\nOutput of the grouping:\n")
print(mydata)
# A tibble: 4 x 2
               Gruppen Abweichung
                <fctr>      <int>
1 (-4.5e+04,-2.25e+04]          2
2        (-2.25e+04,0]         60
3         (0,2.25e+04]          8
4   (2.25e+04,4.5e+04]          2

#测试值
JACKY hi
选项（scipen=20）
应该有效您是否尝试过
dig.lab
参数，如
cut（…，dig.lab=5）
？
cut（…，dig.lab=5）