感谢您的帮助，我能够编写一个小程序，将大量数据分组，以后将在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