results <-  if(lat1 == -15 & lat2 == 15){
  assign(paste("pltd", lat2, stg, "-" , sep = ""),
         subset(wq, paleolat > lat1 & paleolat < lat2) )
  }else{
  assign(paste("pltd", lat2, stg, "-" , sep = ""),
           rbind(subset(wq, paleolat > lat1 & paleolat < lat2),
                 subset(wq, paleolat > -lat2 & paleolat < -lat1)))

return(results)

感谢！ 进一步追问：如何能让其出现在Global Environment的Data里面？而不是控制台

问题已经解决： 自编函数结合 for 循环 实现了我的目的。代码如下：
######导出“子集化之后”的文件######
latzone <- function(stg, lat1, lat2){
  
  wq <- get(paste("TS", stg ,sep = ""))
  
  results <- if(lat1 == -15 & lat2 == 15){
    subset(wq, paleolat > lat1 & paleolat < lat2)
  }else{
    rbind(subset(wq, paleolat > lat1 & paleolat < lat2),
          subset(wq, paleolat > -lat2 & paleolat < -lat1))
   
  }
  return(results)
}


for (i in 17:24) {
  
  for (lat1 in c(-15,15,30,45)) {
   
    for (lat2 in c(15,30,45,90)) {
      if (lat2-lat1 == 30 | lat2-lat1==15 | lat2-lat1==45){
        
        assign(paste("pltd", i,  lat1, lat2,  sep = ""),latzone(stg = i, lat1, lat2))
      }
      
    }
   
  }
  
}

ssign(paste("pltd", lat2, stg, "-" , sep = ""),
           rbind(subset(wq, paleolat > lat1 & paleolat < lat2),
                 subset(wq, paleolat > -lat2 & paleolat < -lat1)), envir = .GlobalEnv)

感谢，我学到了很多