R 如果第一个列表中的元素等于第二个列表的元素，则替换为第三个列表的元素

我有三张名单

Example Data

data <- list("A-B", "C-D", "E-F", "G-H", "I-J")
data_to_replace  <- list("A-B", "C-D")
replacement <- list("B-A", "D-C")
## Note: The length(data_to_replace)  and length(replacement ) are always equal. Which may range from 1 to 200

这只是一个最小的例子.我有几个这三个，每个列表的数量都不一样

Expected outcome

data_new <- list("B-A", "D-C", "E-F", "G-H", "I-J")

What I have tried

## function that reverses a string by words
reverse_words <- function(string) {
  ## split string by blank spaces
  string_split <- strsplit(as.character(string), split="-")
  ## How many split terms?
  string_length <- length(string_split[[1]])
  ## decide what to do
  if (string_length == 1) {
    ## one word (do nothing)
    reversed_string <- string_split[[1]]
  } else {
    ## more than one word (collapse them)
    reversed_split <- string_split[[1]][string_length:1]
    reversed_string <- paste(reversed_split, collapse="-")
  }
  ## output
  return(reversed_string)
} 

## Replacemnt
replacement <- lapply(data_to_replace, reverse_words)
data_new <- rapply(data, function(x) {
  replace(x, x == data_to_replace, replacement) ## This last line did not work
})