大概这样， 给定一个向量x

因为要求的是农村初产妇的，所以，我先把农村初产妇赋值，但是报错


data.Rural<-data.Rural[which(!is.na(data.Rural$Exam_Marry_Age)),]
diff(quantile(data.Rural, c(.25, .5, .75), na.rm = FALSE, names = FALSE))
Error in `[.data.frame`(x, order(x, na.last = na.last, decreasing = decreasing)) :
  选择了未定义的列

data.Rural<-data.Rural[which(!is.na(data.Rural$Exam_Marry_Age)),]
> diff(quantile(data.Rural, c(.25, .5, .75), na.rm = FALSE, names = FALSE))
Error in `[.data.frame`(x, order(x, na.last = na.last, decreasing = decreasing)) :
  选择了未定义的列

你的data.Rural是向量吗，我看起来更像是一个数据框吧