title: Filtering data table based on condition in Column
body: <p>I am trying to download the EOD data from <a href="http://www.nseindia.com" rel="nofollow">NSE site</a>. The data consist of all type of EQ or BE or DR or N1 and etc. Now I want to filter the table according to EQ and BE and DR only and exclude other fields in Col "Series."</p>
  
  <p>Data Structure after reading and writing is like this</p>
  
  <pre><code>      DATE SERIES     SYMBOL     OPEN     HIGH      LOW    CLOSE   VOLUME
  1    2016-05-27     EQ  20MICRONS    28.30    29.20    28.05    28.25    31468
  2    2016-05-27     EQ 3IINFOTECH     4.20     4.25     3.90     3.95  2209977
  3    2016-05-27     EQ    3MINDIA 13170.00 13300.00 12611.00 12699.00     5511
  4    2016-05-27     EQ    8KMILES  1717.00  1770.95  1685.00  1710.45    33558
  5    2016-05-27     EQ   A2ZINFRA    24.80    25.65    24.70    25.15   102189
  6    2016-05-27     EQ AARTIDRUGS   458.05   473.85   458.05   468.95    11140
  7    2016-05-27     EQ   AARTIIND   512.60   519.95   512.20   516.20    13101
  8    2016-05-27     EQ  AARVEEDEN    58.00    59.00    57.20    58.55     3436
  9    2016-05-27     EQ       ABAN   198.55   202.50   198.50   199.55   999288
  10   2016-05-27     EQ        ABB  1241.80  1273.85  1234.40  1253.95    51180
  11   2016-05-27     EQ ABBOTINDIA  4703.00  4764.00  4639.70  4751.70     2663
  12   2016-05-27     EQ      ABFRL   137.80   141.00   133.50   134.50   541872
  </code></pre>
  
  <p>Tried to use <code>which</code> command but only returning the EQ series</p>
  
  <p>the code used is </p>
  
  <pre><code>#28-10-2014: Fix for '403 Forbidden'
  ## Credit http://stackoverflow.com/questions/26086868/error-downloading-a-csv-in-zip-from-website-with-get-in-r
  
  library(httr)
  
  #Define Working Directory, where files would be saved
  setwd('D:/FII Stats/')
  
  Define start and end dates, and convert them into date format
  startDate = as.Date("2016-05-26", order="ymd")
  endDate =   as.Date("2016-05-27", order="ymd")
  
  #work with date, month, year for which data has to be extracted
  myDate = startDate
  zippedFile &lt;- tempfile() 
  
  while (myDate &lt;= endDate){
    filenameDate = paste(as.character(myDate, "%y%m%d"), ".csv", sep = "")
   monthfilename=paste(as.character(myDate, "%y%m"),".csv", sep = "")
   downloadfilename=paste("cm", toupper(as.character(myDate, "%d%b%Y")), "bhav.csv", sep = "")
   temp =""
  
    #Generate URL
   myURL = paste("http://www.nseindia.com/content/historical/EQUITIES/", as.character(myDate, "%Y"), "/", toupper(as.character(myDate, "%b")), "/", downloadfilename, ".zip", sep = "")
  
    #retrieve Zipped file
    tryCatch({
    #Download Zipped File
  
  #28-10-2014: Fix for '403 Forbidden'
    #download.file(myURL,zippedFile, quiet=TRUE, mode="wb",cacheOK=TRUE)
    GET(myURL, user_agent("Mozilla/5.0"), write_disk(paste(downloadfilename,".zip",sep="")))
  
  
    #Unzip file and save it in temp 
    #28-10-2014: Fix for '403 Forbidden'
    temp &lt;- read.csv(unzip(paste(downloadfilename,".zip",sep="")), sep = ",",as.is=TRUE) 
  
    #temp &lt;-  temp[which(temp$SERIES=="EQ" | "DR" | "BE"), ]
  
  
    #Rename Columns Volume and Date
    colnames(temp)[9] &lt;- "VOLUME"
    colnames(temp)[11] &lt;- "DATE"
  
    #Define Date format
    temp$DATE &lt;- as.Date(temp$DATE, format="%d-%b-%Y")
  
    #Reorder Columns and Select relevant columns
     temp&lt;-subset(temp,select=c("DATE","SERIES","SYMBOL","OPEN","HIGH","LOW","CLOSE","VOLUME"))
     #temp&lt;-subset(temp,temp[temp$"SERIES" == "BE &amp; DR &amp; EQ", ],select=c("DATE","SYMBOL","OPEN","HIGH","LOW","CLOSE","LAST","VOLUME"))
  
    #Write the BHAVCOPY csv - datewise
    write.csv(temp,file=filenameDate,row.names = FALSE)
  
    #Write the csv in Monthly file
    if (file.exists(monthfilename))
    {
     write.table(temp,file=monthfilename,sep=",", eol="\n", row.names = FALSE, col.names = FALSE, append=TRUE)
    }else
    {
     write.table(temp,file=monthfilename,sep=",", eol="\n", row.names = FALSE, col.names = TRUE, append=FALSE)
    }
  
  
    #Print Progress
    #print(paste (myDate, "-Done!", endDate-myDate, "left"))
   }, error=function(err){
    #print(paste(myDate, "-No Record"))
   }
   )
    myDate &lt;- myDate+1
    print(paste(myDate, "Next Record"))
  }
  
   #Delete temp file - Bhavcopy
   junk &lt;- dir(pattern="cm")
   file.remove(junk)
  </code></pre>
  
  <p>How to get the desired result?</p>