Напишите имя файла как заголовок столбца

Question

У меня есть цикл, который просматривает группу файлов, берет 4-й столбец и объединяет их вместе.Я хотел бы добавить имя файла, который идет после папки «Вывод» в качестве заголовка столбца.

files2 <- list.files(path="c:/Users/~/Output",pattern="*.csv", full.names=TRUE, recursive=FALSE)

newdata <- (1:51)

for(ii in files2){

titlename2<- tools::file_path_sans_ext(basename(files2)) 
#genes <- read.csv(files2[1], header=True)[,1]     # gene names
mydata2 <-read.csv(ii, header = T, stringsAsFactors=FALSE)
mydata2<- mydata2[,4]


newdata <- cbind(newdata,mydata2)
colnames(newdata)= c(files2)

}

Однако, когда я пытаюсь применить имя файла, я получаю следующую ошибку:

Error in dimnames(x) <- dn : 
  ``length of 'dimnames' [2] not equal to array extent

Как применить имя файла в качестве заголовка столбца?

Заранее спасибо.

Answer 1

Проблема заключается в том, что colnames(newdata) и c(files2) не имеют одинаковую длину.

Например, вы можете переместить colnames(newdata) = c(files2) после цикла for и заменить c(files2) чем-то вродеc("ID", files2) (поскольку у вас есть length(files2) + 1 столбцы).