r语言部分缺失数据的选取问题

r语言数据处理时如何选取特定列（变量）数据不缺失且其他列数据缺失的行（样本）？
求大佬解答

is.na()确定缺失值位置
na.omit（）删除缺失值所在行
c[,2]选取第二列所有行
c[2,]选取第二行所有列

本例是本列不缺其他列只要含缺失的行的情况：
原始数据为final，特定列为x列，

temp<-rep(0,nrow(final))
for i in 1:nrow(final)
  missval<-which(final[i,-x] %in% NA)
  if (length(missval)>0 and is.na(final[i,x])==FALSE)
    temp[i]<-1
   else
     temp[i]<-0
sample<-final[which(temp==1),]