如何无需中间步骤，基于table对象x筛选符合条件的table对象y？

我需要筛选table对象y中值小于等于table对象x对应值的元素。目前我通过中间步骤x1实现了需求，但想知道能不能跳过这个步骤。尝试两种直接筛选方法后分别出现“数组不兼容”错误和长度不匹配警告，想确认table对象是否支持这类直接筛选。

可行但需中间步骤的代码 #

# Table objects
x <- table(c(1,1,2,3,3,4,4,4))
y <- table(c(2,3,4,2,3,4))

# Subset x
x1 <- x[names(x) %in% names(y)]

# Result
z  <- y[y <= x1]

z
# 3 4 
# 2 2 

第一种尝试方法 #

z <- y[names(y) %in% names(x) & y <= x]

返回错误：

Error in y <= x : non-conformable arrays（数组不兼容）

第二种尝试方法 #

z <- y[names(y) %in% names(x) & as.numeric(y) <= as.numeric(x)]

输出结果：

z
# 2    4 <NA> 
# 2    2 

出现警告：

Warning messages:
1: In as.numeric(y) <= as.numeric(x) :
longer object length is not a multiple of shorter object length（较长对象长度不是较短对象长度的倍数）
2: In names(y) %in% names(x) & as.numeric(y) <= as.numeric(x) :
longer object length is not a multiple of shorter object length（较长对象长度不是较短对象长度的倍数）

原因分析与解决方案 #

直接比较出错的原因 #

table本质是带名称的一维数组，R默认按位置而非名称匹配元素。x和y长度不同（x长度为4，y长度为3），直接用y <= x会触发数组维度不兼容错误；强制转数值后，R会循环短数组匹配长数组，导致元素位置不对应，出现警告和错误结果。

跳过中间步骤的实现方法 #

只需确保比较时按名称对应元素，就能直接完成筛选：

方法1：通过名称直接提取x的对应元素

z <- y[y <= x[names(y)]]

x[names(y)]会自动提取x中与y同名的元素，顺序和y完全一致，可正确完成比较，结果与原方法一致：

z
# 3 4 
# 2 2 

方法2：用match精准定位对应位置

如果需要更严谨的名称匹配，可借助match函数定位x中对应y的元素位置：

z <- y[y <= x[match(names(y), names(x))]]

结果与上述方法相同。

结论 #

table对象支持直接筛选，但必须避免默认的位置匹配，通过名称关联元素即可跳过中间步骤，实现正确筛选。

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