How do I map a vector of values to another vector with my own custom map in R [duplicate]

by

A couple of options, all using:

myVector<-c(1,2,3,2,3,3,1)

Factor

newvals <- c(.2,.4,.5)
newvals[as.factor(myVector)]
#[1] 0.2 0.4 0.5 0.4 0.5 0.5 0.2

Named vector

newvals <- c(`1`=.2,`2`=.4,`3`=.5)
newvals
#  1   2   3 
#0.2 0.4 0.5 

newvals[as.character(myVector)]
#  1   2   3   2   3   3   1 
#0.2 0.4 0.5 0.4 0.5 0.5 0.2

Lookup table

mapdf <- data.frame(old=c(1,2,3),new=c(.2,.4,.5))
mapdf$new[match(myVector,mapdf$old)]
#[1] 0.2 0.4 0.5 0.4 0.5 0.5 0.2

Benchmarks to quantify @Joe ‘s comment below and address @Ananda’s comment as well.

myVector <- c(1,2,3,2,3,3,1)
# setup for the benchmarking
test <- sample(myVector,1e6,replace=TRUE)
newvals <- c(.2,.4,.5)
newvalsvec <- c(`1`=.2,`2`=.4,`3`=.5)
mapdf <- data.frame(old=c(1,2,3),new=c(.2,.4,.5))

microbenchmark(
  newvals[as.factor(test)],
  newvalsvec[as.character(test)],
  mapdf$new[match(test,mapdf$old)],
  newvals[test],
  times=10L
)

#Unit: milliseconds
#         expr        min         lq     median         uq        max
#factor        1863.40146 1876.04197 1890.99147 1913.13046 2014.23609
#namedvector   1809.26883 1812.76272 1837.18852 1851.42954 1858.44996
#lookup          38.48697   38.83405   39.90146   69.65140   71.75051
#newvals[test]   34.07380   34.55885   50.61287   65.69495   66.08699

More Related Contents:

  1. R memory management / cannot allocate vector of size n Mb
  2. Split a vector into chunks
  3. Test if a vector contains a given element
  4. Counting the number of elements with the values of x in a vector
  5. How to find common elements from multiple vectors?
  6. How to convert a list consisting of vector of different lengths to a usable data frame in R?
  7. How to cbind or rbind different lengths vectors without repeating the elements of the shorter vectors?
  8. Create grouping variable for consecutive sequences and split vector
  9. How to tell what is in one vector and not another?
  10. How to divide each row of a matrix by elements of a vector in R
  11. Alternate, interweave or interlace two vectors
  12. How to index a vector sequence within a vector sequence
  13. else if(){} VS ifelse()
  14. Finding All Positions for Multiple Elements in a Vector
  15. Convert data.frame column to a vector?
  16. Convert Named Character Vector to data.frame
  17. Select every other element from a vector
  18. Reduce PDF file size of plots by filtering hidden objects
  19. How to access the last value in a vector?
  20. Extract every nth element of a vector
  21. How do I extract just the number from a named number (without the name)?
  22. Insert blanks into a vector for, e.g., minor tick labels in R
  23. Convert a dataframe to a vector (by rows)
  24. Unlist a data frame by rows, not columns
  25. Count values separated by a comma in a character string
  26. Extract a column from a data.table as a vector, by position
  27. Concatenate rows of a data frame
  28. How to return 5 topmost values from vector in R?
  29. How do you create vectors with specific intervals in R?
  30. R reshape a vector into multiple columns

Leave a Comment