Замените переменные в формуле их определениями

1) Использование языковых объектов. В R принято преобразовывать выражения в языковые объекты и затем обрабатывать их.

Для этого определите функцию subst, которая

• вводит и преобразует вектор символов выражений expr в языковые объекты expr2
• преобразует первые два столбца фрейма данных DF в список имен defs2
• выполняет замены, используя замену
• преобразуется обратно в вектор символов с помощью deparse1
• удаляет обратные кавычки, создаваемые вышеуказанным процессом
• преобразует "NA" в NA

Таким образом, используя ввод в примечании в конце

subst <- function(expr, defs) {
  expr2 <- lapply(expr, str2lang)
  defs2 <- defs[1:2] |> deframe() |> as.list() |> lapply(as.name)
  s <- sapply(expr2, \(expr) deparse1(do.call(substitute, list(expr, defs2))))
  s <- gsub("`", "", s)
  ifelse(s == "NA", NA, s)
}

# test run
DF %>%
  mutate(translation = subst(formula, pick(variable, definition)))

предоставление

# A tibble: 6 × 4
  variable definition      formula        translation                           
  <chr>    <chr>           <chr>          <chr>                                 
1 cs       cost of salad   cs=cb+ccel+cc  cost of salad = cost of bread + cost …
2 csp      cost of soup    csp=cc+cel+crt cost of soup = cost of chicken + cel …
3 cb       cost of bread   <NA>           <NA>                                  
4 cc       cost of chicken <NA>           <NA>                                  
5 ccel     cost of celery  <NA>           <NA>                                  
6 ccrt     cost of carrot  <NA>           <NA>                                  

2) Мы могли бы также использовать gsubfn для выполнения замен. Мы предполагаем, что переменные полностью состоят из словесных символов. Это дает тот же результат.

library(gsubfn)

subst2 <- function(expr, defs) {
  defs2 <- defs[1:2] |> deframe() |> as.list()
  gsubfn("\\w+", defs2, expr) 
}
 
DF |>
  mutate(translation = subst2(formula, pick(variable, definition)))

Примечание

library(dplyr)
library(tibble)

DF <- tibble(
  variable = c("cs", "csp", "cb", "cc", "ccel", "ccrt"),
  definition = c(
    "cost of salad", "cost of soup", "cost of bread", "cost of chicken",
    "cost of celery", "cost of carrot"
  ),
  formula = c("cs=cb+ccel+cc", "csp=cc+cel+crt", NA, NA, NA, NA),
)

Это можно сделать с помощью str_replace_all из пакета stringr.

Ваши данные содержат два отдельных раздела: переменные+определения и формулы.

Отсортируйте фрейм данных по количеству символов в variable по убыванию.

library(dplyr)
library(stringr)

df <- arrange(df, -nchar(variable))

Создайте именованный вектор переменных, который будет использоваться в качестве аргумента шаблона.

pattern <- setNames(df$definition, df$variable)

forms <- as.list(na.omit(df$formulas)
forms
#[[1]]
#[1] "csp=cc+ccel+crt"

#[[2]]
#[1] "cs=cb+ccel+cc"

lapply(forms, \(x) str_replace_all(x, pattern))
#[[1]]
#[1] "cost of soup=cost of chicken+cost of celery+cost of carrot"

#[[2]]
#[1] "cost of salad=cost of bread+cost of celery+cost of chicken"

Данные

df <- structure(list(variable = c("ccel", "ccrt", "csp", "cs", "cb", 
"cc"), definition = c("cost of celery", "cost of carrot", "cost of soup", 
"cost of salad", "cost of bread", "cost of chicken"), formula = c(NA, 
NA, "csp=cc+ccel+ccrt", "cs=cb+ccel+cc", NA, NA), Translation = c(NA, 
NA, "cost of soup=cost of chicken+cost of celery+cost of carrot", 
"cost of salad=cost of bread+cost of celery+cost of chicken", 
NA, NA)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-6L))