R语言数据框子集化报错：‘==’仅适用于等尺寸数据框的解决方法

我一眼就看出问题出在哪了——你用df[Num1]和df[Num2]取列的时候，得到的是单列数据框，而不是我们需要的数值向量。R的==运算符在比较两个数据框时，会严格要求它们的维度完全匹配，但这里你其实是想逐行比较两列的数值，所以才会抛出那个错误。

因为你说不能更改实现方法（也就是必须用df[条件]这种子集化形式），那我们只需要调整取列的方式，同时补上关键的逗号就行：

修复后的代码 #

# 方法1：用双括号提取向量（推荐，更通用）
df1 <- df[df[["Num1"]] == df[["Num2"]], ]

# 方法2：用美元符号提取向量（写法更简洁）
df1 <- df[df$Num1 == df$Num2, ]

为什么这样能解决问题？ #

1. 双括号/美元符号的作用：df[["Num1"]]和df$Num1都会返回列的数值向量，而不是单列数据框。这样==就能正确地逐元素比较两列的数值，生成一个逻辑向量（每一行对应TRUE/FALSE）。
2. 逗号的必要性：子集化时的逗号[条件, ]明确告诉R我们要筛选的是行；如果不加逗号，R会误以为你要筛选列，结果完全不符合预期。

用你的测试数据验证 #

我们先构造你的数据框：

df <- data.frame(
  NameA = c("A", "B", "C", "D"),
  NameB = c("E", "F", "G", "H"),
  NameC = c("I", "J", "K", "L"),
  Num1 = c(1, 5, 6, 8),
  Num2 = c(1, 8, 6, 8)
)

运行修复后的代码，df1会得到Num1和Num2相等的3行数据：

NameA NameB NameC Num1 Num2
1     A     E     I    1    1
3     C     G     K    6    6
4     D     H     L    8    8

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