R: Insert vector into every other character of string

Question

Suppose you have a string and a vector of the same length:

require(stringi)

string <- "ABCDEFGHIJKLMN"
vector <- 1:stri_length(string)

What would be a quick way to output this?

# A1B2C3D4E5F6G7H8I9J10K11L12M13N14

Or output a vector that looks like this (if simpler):

vector2
# "A" "1" "B" "2" "C" "3" "D" "4" ........

Does this answer your question? [How to merge 2 vectors alternating indexes?](https://stackoverflow.com/questions/25961897/how-to-merge-2-vectors-alternating-indexes) — Rich Pauloo, Dec 29 '20 at 21:36

David Arenburg · Accepted Answer · 2015-07-19T22:03:49.603

There's probably a better way but here's my attempt

paste(c(rbind(strsplit(string, "")[[1]], vector)), collapse = "")
## [1] "A1B2C3D4E5F6G7H8I9J10K11L12M13N14"

If you want the second output, just remove the paste part as in

c(rbind(strsplit(string, "")[[1]], vector))
#  [1] "A"  "1"  "B"  "2"  "C"  "3"  "D"  "4"  "E"  "5"  "F"  "6"  "G"  "7"  "H"  "8"  "I"  "9"  "J"  "10"
# [21] "K"  "11" "L"  "12" "M"  "13" "N"  "14"

R: Insert vector into every other character of string

1 Answers1