有没有一种方法可以找到R上分组为区间的数据的近似均值、中位数和模式？

# 创建数据框
data <- data.frame(x = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
                   y = c(10, 20, 30, 40, 50, 60, 70, 80, 90, 100))

# 将x列数据分组为区间
data$group <- cut(data$x, breaks = c(0, 5, 10))

# 计算每个区间的均值
result <- aggregate(y ~ group, data, mean)

# 创建数据框
data <- data.frame(x = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
                   y = c(10, 20, 30, 40, 50, 60, 70, 80, 90, 100))

# 将x列数据分组为区间
data$group <- cut(data$x, breaks = c(0, 5, 10))

# 计算每个区间的中位数
result <- aggregate(y ~ group, data, median)

# 创建数据框
data <- data.frame(x = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
                   y = c(10, 20, 30, 40, 50, 60, 70, 80, 90, 100))

# 将x列数据分组为区间
data$group <- cut(data$x, breaks = c(0, 5, 10))

# 计算每个区间的频数分布
freq <- aggregate(y ~ group, data, table)

# 找到频数最高的值作为近似模式
result <- lapply(freq$y, function(x) {
  names(x)[which.max(x)]
})