Apenas leia um número limitado de colunas

Alguém pode me dizer como ler apenas os primeiros 6 meses (7 colunas) para cada ano dos dados abaixo, por exemplo, usando read.table() ?

 Year Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 2009 -41 -27 -25 -31 -31 -39 -25 -15 -30 -27 -21 -25 2010 -41 -27 -25 -31 -31 -39 -25 -15 -30 -27 -21 -25 2011 -21 -27 -2 -6 -10 -32 -13 -12 -27 -30 -38 -29 

Digamos que os dados estão no arquivo data.txt , você pode usar o argumento read.table() de read.table() para pular colunas. Aqui os dados nas primeiras 7 colunas são "integer" e nós definimos as 6 colunas restantes para "NULL" indicando que elas devem ser ignoradas

 > read.table("data.txt", colClasses = c(rep("integer", 7), rep("NULL", 6)), + header = TRUE) Year Jan Feb Mar Apr May Jun 1 2009 -41 -27 -25 -31 -31 -39 2 2010 -41 -27 -25 -31 -31 -39 3 2011 -21 -27 -2 -6 -10 -32 

Altere "integer" para um dos tipos aceitos, conforme detalhado em ?read.table dependendo do tipo real de dados.

data.txt é assim:

 $ cat data.txt "Year" "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec" 2009 -41 -27 -25 -31 -31 -39 -25 -15 -30 -27 -21 -25 2010 -41 -27 -25 -31 -31 -39 -25 -15 -30 -27 -21 -25 2011 -21 -27 -2 -6 -10 -32 -13 -12 -27 -30 -38 -29 

e foi criado usando

 write.table(dat, file = "data.txt", row.names = FALSE) 

onde dat é

 dat < - structure(list(Year = 2009:2011, Jan = c(-41L, -41L, -21L), Feb = c(-27L, -27L, -27L), Mar = c(-25L, -25L, -2L), Apr = c(-31L, -31L, -6L ), May = c(-31L, -31L, -10L), Jun = c(-39L, -39L, -32L), Jul = c(-25L, -25L, -13L), Aug = c(-15L, -15L, -12L), Sep = c(-30L, -30L, -27L ), Oct = c(-27L, -27L, -30L), Nov = c(-21L, -21L, -38L), Dec = c(-25L, -25L, -29L)), .Names = c("Year", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"), class = "data.frame", row.names = c(NA, -3L)) 

Se o número de colunas não for conhecido de antemão, a function de utilidade count.fields lerá o arquivo e contará o número de campos em cada linha.

 ## returns a vector equal to the number of lines in the file count.fields("data.txt", sep = "\t") ## returns the maximum to set colClasses max(count.fields("data.txt", sep = "\t")) 

Para ler um conjunto específico de colunas de um dataset, existem várias outras opções:

1) Com fread do data.table :

Você pode especificar as colunas desejadas com o parâmetro select do fread do pacote data.table . Você pode especificar as colunas com um vetor de nomes de colunas ou números de colunas.

Para o dataset de exemplo:

 library(data.table) dat < - fread("data.txt", select = c("Year","Jan","Feb","Mar","Apr","May","Jun")) dat <- fread("data.txt", select = c(1:7)) 

Alternativamente, você pode usar o parâmetro drop para indicar quais colunas não devem ser lidas:

 dat < - fread("data.txt", drop = c("Jul","Aug","Sep","Oct","Nov","Dec")) dat <- fread("data.txt", drop = c(8:13)) 

Tudo resulta em:

 > data Year Jan Feb Mar Apr May Jun 1 2009 -41 -27 -25 -31 -31 -39 2 2010 -41 -27 -25 -31 -31 -39 3 2011 -21 -27 -2 -6 -10 -32 

ATUALIZAÇÃO: Quando você não quiser que o fread retorne um data.table , use o data.table = FALSE -parameter, por exemplo: fread("data.txt", select = c(1:7), data.table = FALSE)

2) Com o read.csv.sql do sqldf :

Outra alternativa é a function sqldf pacote sqldf :

 library(sqldf) dat < - read.csv.sql("data.txt", sql = "select Year,Jan,Feb,Mar,Apr,May,Jun from file", sep = "\t") 

3) Com as read_* do readr :

 library(readr) dat < - read_table("data.txt", col_types = cols_only(Year = 'i', Jan = 'i', Feb = 'i', Mar = 'i', Apr = 'i', May = 'i', Jun = 'i')) dat <- read_table("data.txt", col_types = list(Jul = col_skip(), Aug = col_skip(), Sep = col_skip(), Oct = col_skip(), Nov = col_skip(), Dec = col_skip())) dat <- read_table("data.txt", col_types = 'iiiiiii______') 

Da documentação uma explicação para os caracteres usados ​​com col_types :

cada caractere representa uma coluna: c = caractere, i = inteiro, n = número, d = duplo, l = lógico, D = data, T = data e hora, t = tempo,? = acho, ou _ / - para pular a coluna

Você também pode usar o JDBC para conseguir isso. Vamos criar um arquivo csv de amostra.

 write.table(x=mtcars, file="mtcars.csv", sep=",", row.names=F, col.names=T) # create example csv file 

Faça o download e salve o driver CSD JDBC neste link: http://sourceforge.net/projects/csvjdbc/files/latest/download

 > library(RJDBC) > path.to.jdbc.driver < - "jdbc//csvjdbc-1.0-18.jar" > drv < - JDBC("org.relique.jdbc.csv.CsvDriver", path.to.jdbc.driver) > conn < - dbConnect(drv, sprintf("jdbc:relique:csv:%s", getwd())) > head(dbGetQuery(conn, "select * from mtcars"), 3) mpg cyl disp hp drat wt qsec vs am gear carb 1 21 6 160 110 3.9 2.62 16.46 0 1 4 4 2 21 6 160 110 3.9 2.875 17.02 0 1 4 4 3 22.8 4 108 93 3.85 2.32 18.61 1 1 4 1 > head(dbGetQuery(conn, "select mpg, gear from mtcars"), 3) MPG GEAR 1 21 4 2 21 4 3 22.8 4