У меня есть несколько файлов CSV с 4 общими символами в именах. Я хочу знать, как связать файлы с одним и тем же общим символом. Например, «AM-25» используется в имени трех CSV-файлов, а «BA-35» - в имени еще двух.
Файлы имеют вид AM-25.myfiles.2000.csv, AM-25.myfiles.2001.csv, AM-25.myfiles.2002.csv, BA-35.myfiles.2000.csv, BA-35.myfiles. .2001.csv, я использую это для чтения во всех файлах:
files <- list.files(path=".", pattern="xyz+.csv", all.files = FALSE,full.names=TRUE )
Вы ищете что-то подобное?
do.call(rbind, lapply(list.files(path=".", pattern="AM-25"), read.table, header=TRUE, sep=","))
Это свяжет вместе матрицы, считанные из ваших файлов csv, которые содержат символы «AM-25». Аргументы для read.table могут быть разными, в зависимости от ваших файлов csv.
ИЗМЕНИТЬ
Надеюсь, это сработает в том случае, если вы не знаете всех возможных пятибуквенных префиксов имен файлов в вашем каталоге:
##Get all different first five letter strings for all cvs files in directory "."
file.prefixes <- unique(sapply(list.files(path=".", pattern="*.csv"), substr, 1,5))
##Group all matching file names according to file.prefixes into a list
file.list <- lapply(file.prefixes, function(x)list.files(pattern=paste("^",x,".*.csv",sep=""), path="."))
names(file.list) <- file.prefixes ##just for convenience
##parse all csv files in file.list, create a list of lists containing all tables for each prefix
tables <- lapply(file.list, function(filenames)lapply(filenames, function(file)read.table(file, header=TRUE)))
##for each prefix, rbind the tables. Result is a list of length being length(file.prefixes)
## each containing a matrix with the combined data parsed from the files that match the prefix
joined.tables <- lapply(tables, function(t)do.call(rbind, t))
##Save tables to files
for (prefix in names(joined.tables))write.table(joined.tables[[prefix]], paste(prefix, ".csv", sep=""))
