不知道你的数据格式是什么样的，假设读入R中为DATA.FRAME格式，x、y为列名，则可以这样：
data[data$x > 1000 & data$y < 500, ]

貌似是用subset(),

subset(airquality, Temp > 80, select = c(Ozone, Temp))
或：
lm(y ~ x, data = dat, subset = ((grp == "center") & (year == 2001)))
和qoiqpwqr版主偷学的，详见：
https://bbs.pinggu.org/thread-1504666-1-1.html

尝试了，结果一样：
library(car)
Wool
Wool2=Wool[Wool$load>46,]
Wool2

或者：
library(car)
Wool
Wool2=subset(Wool,load>46)
Wool2

结果都是：