r-如何写出一个依赖于常数的动态方程

Question

我正试图写一个依赖于常数(级数(的方程。如下所示，如果我有两个级别，if语句将引用L1和L2。

问题：

1. 如何修改代码以反映x个级别？x可以是任何整数(通常为2-12(
2. 如果没有for循环，我如何重写代码

非常感谢您的帮助！

例如(对于2个级别(：

查找表

L1_var <- c("Price", "Price", "Price", "Price")
L1_val <- c("AO", "AO", "Premium", "Premium")
L2_var <- c("Type", "Type", "Form", "Form")
L2_val <- c("Diet", "Regular", "Bottle", "Can")
tbl <- data.frame(L1_var, L1_val, L2_var, L2_val)

数据集

Price <- c("Premium", "AO", "AO")
Type  <- c("Diet", "Regular", "Diet")
Form  <- c("Bottle", "Bottle", "Can")
df <- data.frame(Price, Type, Form)

对于num_level=2

for (i in 1:nrow(df)) {
for (j in 1:nrow(tbl)) {
if (df[i, tbl$L1_var[j]] == tbl$L1_val[j] & 
df[i, tbl$L2_var[j]] == tbl$L2_val[j]) {
df[i, "L1"] <- paste0(tbl$L1_var[j], ": ", tbl$L1_val[j])
df[i, "L2"] <- paste0(tbl$L2_var[j], ": ", tbl$L2_val[j])
}
}
}

如果我在df中有3个级别，我希望代码是：

for (i in 1:nrow(df)) {
for (j in 1:nrow(tbl)) {
if (df[i, tbl$L1_var[j]] == tbl$L1_val[j] & 
df[i, tbl$L2_var[j]] == tbl$L2_val[j] &
df[i, tbl$L3_var[j]] == tbl$L3_val[j] ) {

df[i, "L1"] <- paste0(tbl$L1_var[j], ": ", tbl$L1_val[j])
df[i, "L2"] <- paste0(tbl$L2_var[j], ": ", tbl$L2_val[j])
df[i, "L3"] <- paste0(tbl$L3_var[j], ": ", tbl$L3_val[j])
}
}
}

Answer 1

这是我解决这个问题的方法，大量使用了purrr和dplyr。它应该适用于tbl:中的任何数量的变量

library(purrr)
library(dplyr)
tbl %>%
pmap(function(...) {
args <- c(...)
vars <- args[seq(1, length(args), 2)] %>%
set_names(NULL)
values <- args[seq(2, length(args), 2)] %>%
set_names(vars)
df %>%
filter(across(vars, ~ . == values[cur_column()])) %>%
mutate(across(.cols = vars,
.fns = ~ sprintf("%s: %s", cur_column(), .),
.names = "L{which(vars ==.col)}"))
}) %>%
bind_rows()