Если ваш фрейм данных выглядит следующим образом:
df
#> Id Author.Name
#> 1 1 Agatha Christie
#> 2 2 Ayn Rand
#> 3 3 Arthur Conan Doyle
Тогда вы можете сделать это:
df <- as.data.frame(mapply(function(x, y) paste0("[", y, 1:length(x), "] ", as.character(x)),
df, LETTERS[seq_along(df)]))
Чтобы добавить соответствующие ячейки Excel в нужном формате.
Вывод:
df
#> Id Author.Name
#> 1 [A1] 1 [B1] Agatha Christie
#> 2 [A2] 2 [B2] Ayn Rand
#> 3 [A3] 3 [B3] Arthur Conan Doyle
И если вы напишите csv с
write.csv(df, "df.csv")
, тогда содержимое df.csv будет выглядеть так:
"","Id","Author.Name"
"1","[A1] 1","[B1] Agatha Christie"
"2","[A2] 2","[B2] Ayn Rand"
"3","[A3] 3","[B3] Arthur Conan Doyle"