有没有办法根据来自单独数据框的值从行子集计算中位数？

library(dplyr)
library(stats)

# 创建一个示例数据框
df <- data.frame(
  ID = c(1, 2, 3, 4, 5),
  Value = c(10, 20, 30, 40, 50)
)

# 根据条件筛选行子集
subset_df <- df %>%
  filter(ID > 2)

# 提取数值列并转换为向量
values <- subset_df$Value

# 对向量进行排序
sorted_values <- sort(values)

# 计算中位数的位置
n <- length(sorted_values)
if (n %% 2 == 0) {
  pos1 <- n/2
  pos2 <- (n/2) + 1
  median_value <- (sorted_values[pos1] + sorted_values[pos2]) / 2
} else {
  pos <- (n+1)/2
  median_value <- sorted_values[pos]
}

# 打印中位数
print(median_value)