range_1=seq(10，13，0.00001)
sst_1=data[which(data$sst %in% range_1),]
从这里面怎么也筛选不出那些需要的行，并且sst数据里面有range范围内的数据