Объедините много кадров данных из файлов CSV, когда столбец ID будет подразумеваться?

Либо Виртуальная машина с разработанной на Linux средой разработки, либо локальная копия некоторой независимой от набора инструментов IDE (например, Notepad ++, с тестированием, выполненным с помощью MinGW или CygWin, насколько это возможно), или просто пишите в Notepad ++ и сохраняйте загружаю на свой компьютер и тестирую там, что я и делаю.

19
задан smci 4 May 2018 в 01:02
поделиться

1 ответ

Насколько я понимаю, вам нужно извлечь идентификатор из имени файла, а затем объединить импортированный CSV-файл с существующим фреймом данных.

df1 <- read.csv(textConnection("ID, var1, var2
A,  2,    2
B,  4,    5"))

# assuming the imported csv-files are in working directory
filenames <- list.files(getwd(), pattern = "ID_[A-Z].csv")

# extract ID from filename
ids <- gsub("ID_([A-Z]).csv", "\\1", filenames)

# import csv-files and append ID
library(plyr)
import <- mdply(filenames, read.csv)
import$ID <- ids[import$Var1]
import$Var1 <- NULL

# merge imported csv-files and the existing dataframe
merge(df1, import)  

Результат:

ID var1 var2 time var4 var5
1  B    4    5    0    1    2
2  B    4    5    1    4    5
3  B    4    5    2    1    6
15
ответ дан 30 November 2019 в 05:06
поделиться
Другие вопросы по тегам:

Похожие вопросы: