Прочитайте несколько файлов CSV в отдельные рамы данных

Question

Предположим, у нас есть файлы file1.csv, file2.csv, ... , а также file100.csv в каталоге C: r data и мы хотим прочитать их все в отдельные рамки данных (например, Файл1, Файл2, ... , а также Файл100).

Причина этого в том, что, несмотря на то, что у них есть похожие имена, у них разные структуры файлов, поэтому не так полезно иметь их в списке.

Я мог бы использовать lapply Но это возвращает один список, содержащий 100 кадров данных. Вместо этого я хочу эти рамки данных в глобальной среде.

Как мне прочитать несколько файлов непосредственно в глобальную среду? Или, в качестве альтернативы, как мне распаковать содержимое списка кадров данных?

Answer 1

Быстрый проект, непроверенный:

1. Использовать list.files() ака dir() Динамически генерировать свой список файлов.

2. Это возвращает вектор, просто бегая по вектору в for петля.

3. Прочтите файл i-th, затем используйте assign() Чтобы поместить контент в новую переменную file_i

Это должно сделать для вас свое дело.

Answer 2

Спасибо всем за ответ.

Для полноты здесь мой последний ответ для загрузки любого количества (TAB) делимированных файлов, в данном случае с 6 столбцами данных, каждый столбец 1 - это символы, 2 - фактор, а оставшееся числовые:

##Read files named xyz1111.csv, xyz2222.csv, etc.
filenames <- list.files(path="../Data/original_data",
    pattern="xyz+.*csv")

##Create list of data frame names without the ".csv" part 
names <-substr(filenames,1,7))

###Load all files
for(i in names){
    filepath <- file.path("../Data/original_data/",paste(i,".csv",sep=""))
    assign(i, read.delim(filepath,
    colClasses=c("character","factor",rep("numeric",4)),
    sep = "\t"))
}

Answer 3

Использовать assign с символом переменной, содержащей желаемое имя вашего кадра данных.

for(i in 1:100)
{
   oname = paste("file", i, sep="")
   assign(oname, read.csv(paste(oname, ".txt", sep="")))
}

Answer 4

Вот способ распаковать список данных.

filenames <- list.files(path="../Data/original_data",
                        pattern="xyz+.*csv")

filelist <- lappy(filenames, read.csv)

#if necessary, assign names to data.frames
names(filelist) <- c("one","two","three")

#note the invisible function keeps lapply from spitting out the data.frames to the console

invisible(lapply(names(filelist), function(x) assign(x,filelist[[x]],envir=.GlobalEnv)))

Answer 5

Этот ответ предназначен как более полезный дополнение к ответу Хэдли.

В то время как OP специально хотел, чтобы каждый файл читал в своем рабочем пространстве R как отдельный объект, многие Другой Люди наивно приземляются по этому вопросу считать Это то, что они хотят сделать, когда на самом деле им лучше прочитать файлы в один список кадров данных.

Итак, для протокола, вот как вы можете это сделать.

#If the path is different than your working directory
# you'll need to set full.names = TRUE to get the full
# paths.
my_files <- list.files("path/to/files")

#Further arguments to read.csv can be passed in ...
all_csv <- lapply(my_files,read.csv,...)

#Set the name of each list element to its
# respective file name. Note full.names = FALSE to
# get only the file names, not the full path.
names(all_csv) <- gsub(".csv","",
                       list.files("path/to/files",full.names = FALSE),
                       fixed = TRUE)

Теперь любой из файлов может быть упомянут my_files[["filename"]], что на самом деле не так много худший Это просто отдельно filename переменные в вашем рабочем пространстве, и часто это гораздо удобнее.

Answer 6

Простой способ получить доступ к элементам списка из глобальной среды - это attach список. Обратите внимание, что это на самом деле создает новую среду на пути поиска и копирует в него элементы вашего списка, поэтому вы можете удалить исходный список после прикрепления, чтобы предотвратить, как две потенциально разные копии плавают вокруг.

Answer 7

Чтение всех файлов CSV из папки и создание вакторов, так же, как имена файлов:

setwd("your path to folder where CSVs are")

filenames <- gsub("\\.csv$","", list.files(pattern="\\.csv$"))

for(i in filenames){
  assign(i, read.csv(paste(i, ".csv", sep="")))
}

Answer 8

#copy all the files you want to read in R in your working directory
a <- dir()
#using lapply to remove the".csv" from the filename 
for(i in a){
list1 <- lapply(a, function(x) gsub(".csv","",x))
}
#Final step 
for(i in list1){
filepath <- file.path("../Data/original_data/..",paste(i,".csv",sep=""))
assign(i, read.csv(filepath))
}