不用r语言的函数算中位数 用r语言写程序算中位数

### 回答1：
可以使用以下代码计算中位数：

data <- c(1, 2, 3, 4, 5)
median <- function(x){
  n <- length(x)
  if(n %% 2 == 0){
    # 若有偶数个数，返回中间两个数的平均值
    m <- n/2
    median <- (x[m] + x[m+1])/2
  } else {
    # 若有奇数个数，返回中间数
    m <- (n+1)/2
    median <- x[m]
  }
  return(median)
}

median(data)

### 回答2：
要在R语言中计算中位数，可以使用以下程序：

# 创建一个数值向量
nums <- c(12, 34, 56, 78, 90, 123, 456)

# 通过排序向量来计算中位数
sorted_nums <- sort(nums)
length_nums <- length(sorted_nums)

# 如果向量的长度是奇数，则中位数是排序后的向量的中间值
if (length_nums %% 2 != 0) {
  median <- sorted_nums[(length_nums + 1) %/% 2]
} else {
  # 如果向量的长度是偶数，则中位数是排序后的向量中间两个值的平均值
  median <- (sorted_nums[length_nums %/% 2] + sorted_nums[length_nums %/% 2 + 1]) / 2
}

# 打印中位数
print(median)

上面的代码首先创建了一个数值向量`nums`，然后通过`sort`函数对向量进行排序。接下来，我们计算了排序后向量的长度，并使用`if`条件判断来确定向量长度是奇数还是偶数。如果长度是奇数，我们将中位数设置为排序后向量的中间值；如果长度是偶数，我们将中位数设置为排序后向量中间两个值的平均值。最后，我们打印出中位数。

使用这段代码，我们可以得到数值向量`nums`的中位数。

### 回答3：
使用R语言编写程序来计算中位数的常用方法可以通过以下步骤实现：

1. 定义数据集：首先，我们需要定义一个数据集，可以是一个向量、数组或数据框。假设我们有一个向量 `data` 来存储数据集。

2. 排序数据：利用 `sort()` 函数对数据进行排序，将数据从小到大排列。

3. 计算中位数：根据数据集的长度有两种情况：

a) 如果数据集长度为偶数，中位数为排序后数据中间两个数的平均值。可以使用以下代码计算中位数：

   n <- length(data)
   median <- (data[n/2] + data[(n/2)+1]) / 2

b) 如果数据集长度为奇数，中位数为排序后数据中间的数。可以使用以下代码计算中位数：

   n <- length(data)
   median <- data[(n+1)/2]

完整的R语言代码如下：

data <- c(1, 3, 5, 7, 9)  # 定义数据集
sorted_data <- sort(data)  # 排序数据

n <- length(sorted_data)  # 数据长度
if (n %% 2 == 0) {
  median <- (sorted_data[n/2] + sorted_data[(n/2)+1]) / 2  # 偶数个数字的中位数
} else {
  median <- sorted_data[(n+1)/2]  # 奇数个数字的中位数
}

print(median)  # 输出中位数

以上代码中的数据集使用了一个简单的向量 `[1, 3, 5, 7, 9]` 作为示例。根据实际情况，你可以将代码应用到任何数据集中，以计算相应的中位数。