Я предполагаю, что то, как вы читаете в файле аббревиатуры, приводит к кадру данных, но вы неправильно индексируете кадр данных.Я не могу сказать, хотите ли вы использовать единый столбец с одним клиентом или таблицу поиска с уникальным клиентом.Если это первое, возможно, пример ниже может помочь.Если это своего рода таблица поиска, посмотрите на команду слияния.
acronyms <- read.csv(acronymFile.csv)
for(i in seq_along(filePaths)){
data <- read.csv(filePaths[i])
acronym <- acronyms[i,1]
data$subsidiary = paste("Client :", acronym[i])
}
Обратите внимание, как я проиндексировал первый (и единственный) столбец кадра данных аббревиатуры.