R 对cut（）函数的一些误解

我把变量从离散变为连续。现在如何获得每个间隔的中值

sample <- c(30,16,12,40,14,30,5,5,5,5,38,30,45,22,30,31,22,35,45,29)
sample$Cut <- cut(sample,seq(min(sample),max(sample),(max(sample)-min(sample))/r),include.lowest = TRUE)

现在，我需要从每个间隔中获取中值：

[5,13]（13,21）（21,29）（29,37）（37,45] 对于这个例子，我必须得到9，17，25，33，41

很抱歉问了这么愚蠢的问题。提前谢谢您。

您有断点：

b <- seq(min(sample), max(sample), (max(sample)-min(sample))/r)
# [1]  5 13 21 29 37 45

b <- seq(min(sample), max(sample), (max(sample)-min(sample))/r)
# [1]  5 13 21 29 37 45

(b[-length(b)] + b[-1]) / 2
# [1]  9 17 25 33 41