如何统计R语言中列表x大于列表y各元素的数值数量？

核心思路 #

你需要对y中的每个元素，单独统计x里大于它的元素总数，而非让x和y做逐元素循环比较。以下是几种简洁的实现方式：

基础R实现（无需额外包） #

# 生成数据（设置随机种子保证结果可复现）
set.seed(123)
x <- sample(1:100, 500, replace = TRUE)
y <- seq(0, 100, by = 10)

# 统计每个y值对应的x中大于它的数量
counts <- sapply(y, function(val) sum(x > val))

# 转成结构化数据框（表格形式）
result_table <- data.frame(
  "y的取值" = y,
  "x中大于该值的数量" = counts
)

print(result_table)

更严谨的vapply写法 #

如果想明确指定返回值类型（避免潜在类型问题），可以用vapply替代sapply：

counts <- vapply(y, function(val) sum(x > val), integer(1))
result_table <- data.frame(y_value = y, count_greater = counts)

Tidyverse风格实现（用dplyr） #

若习惯用tidyverse工具链，也可以这样写：

library(dplyr)

result_table <- tibble(y_value = y) %>%
  rowwise() %>%
  mutate(count_greater = sum(x > y_value)) %>%
  ungroup()

print(result_table)

为什么之前的ifelse不对？ #

x是长度500的向量，y是长度11的向量，R的向量运算会自动循环短向量匹配长向量长度。ifelse(x>y,1,0)会把y重复循环45次（45*11=495），再加上前5个元素，得到的是每个x元素和循环后y元素的比较结果，完全不符合你“按每个y值统计x数量”的需求。

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