如何基于分位数向量范围获取Time向量的数值范围？

这问题用R的基础数据操作就能轻松搞定，咱们一步步来：

1. 先把示例数据整理成数据框 #

首先把你给出的示例数据转换成R的数据框，方便后续操作：

df <- data.frame(
  Time = c(181, 168, 138, 135, 179, 123, 105, 95, 775),
  Distance = c(3.90, 2.89, 1.31, 1.30, 1.69, 0.1, 0.94, 0, 3.41),
  Quartile = c(4, 3, 2, 2, 3, 1, 2, 1, 3)
)

2. 筛选目标分位数范围并计算Time的数值范围 #

假设你要获取分位数范围2-3对应的Time范围，只需要：

• 定义目标分位数的集合
• 筛选出Quartile属于这个集合的行
• 用range()函数提取这些行的Time列的最小值和最大值

代码如下：

# 定义目标分位数范围（比如2到3）
target_quartiles <- 2:3

# 筛选符合条件的Time值，计算范围
time_range <- range(df$Time[df$Quartile %in% target_quartiles])

# 查看结果
print(time_range)
# 输出：[1] 105 775

3. 扩展到其他分位数范围 #

如果需要其他范围，比如3-4或者2-4，只需要修改target_quartiles的值就行：

# 3-4分位数对应的Time范围
range(df$Time[df$Quartile %in% 3:4])
# 输出：[1] 168 775

# 2-4分位数对应的Time范围
range(df$Time[df$Quartile %in% 2:4])
# 输出：[1] 105 775

4. 封装成函数（可选） #

如果需要重复查询不同的分位数范围，可以把逻辑封装成一个函数，用起来更方便：

get_time_range <- function(data, quartile_range) {
  # 检查输入的分位数范围是否合法
  if (!all(quartile_range %in% 1:4)) {
    stop("分位数范围必须是1-4之间的整数哦")
  }
  # 返回Time的范围
  range(data$Time[data$Quartile %in% quartile_range])
}

# 使用示例
get_time_range(df, 2:3)  # 2-3分位数的Time范围
get_time_range(df, 3:4)  # 3-4分位数的Time范围

原理说明 #

• %in%运算符用来判断每个Quartile值是否属于目标范围，返回一个布尔向量，用来筛选数据行
• range()函数会直接返回向量的最小值和最大值，正好对应你需要的Time数值范围

内容的提问来源于stack exchange，提问作者Rick