计算data.frame柱的中位数

# 示例数据
df <- data.frame(
  column1 = c(1, 2, 3, 4, 5),
  column2 = c(6, 7, 8, 9, 10),
  column3 = c(11, 12, 13, 14, 15)
)

# 计算柱的中位数函数
calculate_median <- function(data_frame, column_name) {
  column <- data_frame[[column_name]]  # 提取柱（列）作为向量
  sorted_column <- sort(column)  # 对向量进行排序
  n <- length(sorted_column)  # 向量长度
  
  if (n %% 2 == 1) {
    # 奇数长度，中位数的位置
    median_index <- (n + 1) / 2
    median_value <- sorted_column[median_index]  # 计算中位数的值
  } else {
    # 偶数长度，中位数的位置
    median_index_1 <- n / 2
    median_index_2 <- median_index_1 + 1
    median_value <- mean(sorted_column[c(median_index_1, median_index_2)])  # 计算中位数的值
  }
  
  return(median_value)
}

# 调用函数计算中位数
median_column1 <- calculate_median(df, "column1")
median_column2 <- calculate_median(df, "column2")
median_column3 <- calculate_median(df, "column3")

# 打印结果
print(median_column1)
print(median_column2)
print(median_column3)