library(tidyverse)
test <- c(1435.8749, 799.7841, 1353.5197, 1514.2202, 1624.0395, 1786.2264, 1067.7966, 1498.6395, 2244.8378, 1867.004, 2329.647, 2060.6061,
2207.2289, 1646.9766, 2376.7032, 1880.1464, 1203.0099, 1658.1572,
1733.6369, 1775.3562, 1669.4304, 1538.1229, 1605.4569, 2270.2265,
2291.0798, 2300.6068, 1960.6273, 1564.5674, 2173.0856, 1595.173,
1128.7062, 2285.4715, 2472.4373, 1556.192, 1951.3942, 1847.9082,
754.9882, 1849.9162, 1832.5876, 1729.2324, 3519.9994, 1672.043,
1816.5939, 1861.3281, 1595.8138, 1400.9604, 1530.2045, 2207.5038,
2618.7138, 1718.4072)

base::cut(test,breaks = 2) %>% table()
得到的结果并不是二等分的

甚至我生成随机数也无法等分
cut(rnorm(533),breaks = 2) %>% table()

只有在我生成的序列的时候可以二等分
cut(1:100,breaks = 2) %>% table()

这是什么问题吗？求助！