R语言自定义函数求中位数

在R语言中，你可以通过自定义函数轻松计算一组数值的中位数。中位数是一组数据中间值，当数据有奇数个时，它是中间的那个数；当数据有偶数个时，中位数则是中间两个数的平均值。下面是一个简单的例子，展示了如何创建一个名为`median_custom`的自定义函数来计算中位数：

# 自定义函数 median_custom
median_custom <- function(numbers) {
  # 首先对数据进行排序
  sorted_numbers <- sort(numbers)
  
  # 计算长度
  n <- length(sorted_numbers)

  # 判断元素的奇偶性
  if (n %% 2 == 0) {
    # 偶数个，取中间两个数的平均值
    median_value <-1:(n/2)])
  } else {
    # 奇数个，直接取中间那个数
    median_value <- sorted_numbers[n %% 2]
  }
  
  return(median_value)
}

# 测试函数
example_data <- c(5, 2, 9, 7, 4, 6)
median_example <- median_custom(example_data)
cat("给定数据集的中位数是:", median_example, "\n")