Ben aşağıdaki işlevi kullanılarak okunan bir csv dosyası var R

Question

yılında read.csv bazı satırların atlayın. Ama bazı satırları okumaktan atlamak istiyorum. Satır ticker-kolonunun değeri: ABT veya ADCT ise okunmamalıdır. Mümkün mü? aşağıdaki gibi benim csv dosyasının

örnektir:

RUS1000,01/29/1999,21st Centy Ins Group,TW.Z,90130N10,72096,1527.534,0.01,21.188 
RUS1000,01/29/1999,3com Corp,COMS,88553510,358764,16861.908,0.16,47.000 
RUS1000,01/29/1999,3m Co,MMM,88579Y10,401346,31154.482,0.29,77.625 
RUS1000,01/29/1999,A D C Telecommunicat,ADCT,00088630,135114,5379.226,0.05,39.813 
RUS1000,01/29/1999,Abbott Labs,ABT,00282410,1517621,70474.523,0.66,46.438 
RUS1000,02/26/1999,21st Centy Ins Group,TW.Z,90130N10,72096,1378.836,0.01,19.125 
RUS1000,02/26/1999,3com Corp,COMS,88553510,358764,11278.644,0.11,31.438 
RUS1000,02/26/1999,3m Co,MMM,88579Y10,402146,29783.938,0.29,74.063 

Answer 1

O

read.csv.sqlsample.csv içeriği aşağıdaki gibi göründüğünü Lets kullanarak, sqldf package kullanarak mümkündür: satırları okumak Şimdi

id,name,age 
1,"a",23 
2,"b",24 
3,"c",23 

nereye yaş = 23:

require(sqldf) 

df <- read.csv.sql("sample.csv", "select * from file where age=23") 

df 
    id name age 
1 1 "a" 23 
2 3 "c" 23 

Gerekli sütunları seçmek mümkündür:

df <- read.csv.sql("sample.csv", "select id, name from file where age=23") 
df 
    id name 
1 1 "a" 
2 3 "c" 

Answer 2

açıklamada önerilen gibi Daha sonra tüm ve alt kümeyi okumak daha iyidir:

csvData [!csvData$ticker %in% c('ADCT','ABT'),] 

DÜZENLEME

Sen Dosyanızı okumak için daha verimli bir yöntem için fread'u data.table paketinden kullanabilirsiniz.

library(read.table) 
fread(file="pf.csv") 

Answer 3

Benim için sqldf paketinin read.csv.sql ilk kızarmasında harika görünüyordu. Ama kullanmaya çalıştığımda, "NULL" dizeleriyle başa çıkamadı. (Diğerleri de bunu bulmuştur.) Ne yazık ki, tüm read.csv özelliklerini desteklemiyor. Bu yüzden kendi yazmam gerekiyordu. Bunun için iyi bir paket olmadığına şaşıyorum.

fetchLines=function(inputFile,match,fixed=T,n=100,maxlines=100000){ #inputFile='simple.csv'; match='APPLE'; 
    message('reading:',inputFile) 
    n=min(n,maxlines) 
    con <- base::file(inputFile, open = "r",encoding = "UTF-8-BOM") 
    data=c(readLines(con, n = 1, warn = FALSE)) 
    while (length(oneLine <- readLines(con, n = n, warn = FALSE)) > 0) { 
    grab=grep(match,oneLine,value=T,fixed=fixed) 
    if(length(grab)>0){ 
     data=c(data,grab) 
     if(length(data)>maxlines){ 
     warning("bailing out too many"); 
     return(data); 
     } 
     cat('.') 
    } 
    } 
    close(con) 
    gc() 
    cat("\n") 
    data; 
} 

#To avoid: argument 'object' must deparse to a single character string 
fdata=textConnection(fetchLines("datafile.csv",'\\bP58\\b',fixed=F,maxlines = 100000)) 
df<-read.csv(fdata,header=T,sep=",",na.strings = c('NULL',''),fileEncoding = "UTF-8-BOM",stringsAsFactors = F) 

R textConnection: "argument 'object' must deparse to a single character string"