r过滤具有相等值的列

Question

假设我有一个像这样的数据集

`v6 v7   v8  v9
x  123  123  x
x  123  456  x
x  789  789  x
x  123  789  x `   

如何过滤，以便只拉出第7列和第8列的值彼此相等的行， WHILE STILL 在过滤后保留列的标题？我试过这段代码：

hg19 -> hg19[which(hg19$V7 == hg19$V8),]

和这段代码：

non_coding= subset(hg19,hg19[8] == hg19[7])

其中hg19是数据集。 注意：实际数据集包含超过99,000行和16列

Answer 1

non_coding <- subset(hg19, hg19$v7 == hg19$v8)

Answer 2

给您的代码可以正常工作并保留原始列名。

hg19[which(hg19$v7==hg19$v8),]
  v6  v7  v8 v9
1  x 123 123  x
3  x 789 789  x