insert elements in a vector in R

by

Try this:

result <- vector("list",5)
result[c(TRUE,FALSE)] <- split(a, cumsum(seq_along(a) %in% (c(3,7)+1)))
result[c(FALSE,TRUE)] <- list(b,d)
f <- unlist(result)

identical(f, e)
#[1] TRUE

EDIT: generalization to arbitrary number of insertions is straightforward:

insert.at <- function(a, pos, ...){
    dots <- list(...)
    stopifnot(length(dots)==length(pos))
    result <- vector("list",2*length(pos)+1)
    result[c(TRUE,FALSE)] <- split(a, cumsum(seq_along(a) %in% (pos+1)))
    result[c(FALSE,TRUE)] <- dots
    unlist(result)
}


> insert.at(a, c(3,7), b, d)
 [1]  2  3  4  2  1  9 10  2  4  0  1 19

> insert.at(1:10, c(4,7,9), 11, 12, 13)
 [1]  1  2  3  4 11  5  6  7 12  8  9 13 10

> insert.at(1:10, c(4,7,9), 11, 12)
Error: length(dots) == length(pos) is not TRUE

Note the bonus error checking if the number of positions and insertions do not match.

More Related Contents:

  1. How to replace a value by another within a variable in R?
  2. Summarizing multiple columns with dplyr? [duplicate]
  3. Relative frequencies / proportions with dplyr
  4. How to add texture to fill colors in ggplot2
  5. Cleaning up factor levels (collapsing multiple levels/labels)
  6. Split a large dataframe into a list of data frames based on common value in column
  7. Save a plot in an object
  8. How to cbind or rbind different lengths vectors without repeating the elements of the shorter vectors?
  9. lapply vs for loop – Performance R
  10. ggplot, facet, piechart: placing text in the middle of pie chart slices
  11. YAML current date in rmarkdown
  12. Convert UNIX epoch to Date object
  13. Create new variables with mutate_at while keeping the original ones
  14. R: use magrittr pipe operator in self written package
  15. How to interpret dplyr message `summarise()` regrouping output by ‘x’ (override with `.groups` argument)?
  16. How to index a vector sequence within a vector sequence
  17. How to parametrize function calls in dplyr 0.7?
  18. What are the differences between community detection algorithms in igraph?
  19. How to stack error bars in a stacked bar plot using geom_errorbar?
  20. ggplot2: connecting points in polar coordinates with a straight line 2
  21. Finding row index containing maximum value using R
  22. Find value corresponding to maximum in other column [duplicate]
  23. Split delimited single value character vector
  24. R split numeric vector at position
  25. Creating a Plot Window of a Particular Size
  26. R: invalid multibyte string [duplicate]
  27. Reordering factor gives different results, depending on which packages are loaded
  28. Join two data frames in R based on closest timestamp
  29. Sum object in a column between an interval defined by another column
  30. R shiny sliderInput with restricted range

Leave a Comment