Как извлечь несколько zip-файлов и прочитать эти csvs в R?

Question

Мне нужно разархивировать сразу несколько файлов и добавить их в качестве фрейма данных на панели управления R.

В настоящее время я использую этот код:

zipF<- "/Users/sahilverma13/Desktop/chat_data_2017-01-30_IST.zip" 
outDir<-"/Users/sahilverma13/Desktop" 
unzip(zipF,exdir=outDir) 

Но я должен сделать это для каждого файла отдельно.

zipF <- list.files(pattern="*.zip") 

Я пробовал использовать шаблон, но он не работает.

Пожалуйста, помогите.

Answer 1

Я часто использую функцию ldply из пакета plyr для чтения или создания файлов с несколькими файлами.

library(plyr) 

# get all the zip files 
zipF <- list.files(path = "/your/path/here/", pattern = "*.zip", full.names = TRUE) 

# unzip all your files 
ldply(.data = zipF, .fun = unzip, exdir = outDir) 

Поскольку Ричард указал, что это не полно (много кофе утром тоже не хорошо).

# get the csv files 
csv_files <- list.files(path = outDir, pattern = "*.csv") 

# read the csv files 
my_data <- ldply(.data = csv_files, .fun = read.csv) 

Мне очень понравился комментарий Джоэля. Я использовал для использования пакет plyr настолько, что забыл, что вы также можете использовать функцию sapply. Может быть, даже лучше использовать!