使用 If 从 R 中的列表中按名称选择数据帧

Question

在 R 中：我有一个包含 3 个数据框（Book1、Book2、Book3）的列表，列表名为 dflist4。我有一个代码要分别应用于列表中的每个数据帧，因为每个数据帧的 maxm 值都不同。我写了它，它有效，但只有当 Book1、Book2 和 Book3 都是相同大小的数据帧时。当它们的大小不相等时，代码将不会运行（错误：ops.dataframe == 仅针对大小相等的数据帧定义）。当我将 == 更改为 = 时，我知道这不合逻辑。无论数据框的大小如何，任何人都可以就如何根据名称从列表中选择数据框提出建议吗？

代码在这里：

eggplant<-function(x){
(if((x == (dflist4[["Book1"]])){
maxm = 3;
x %>% mutate(Col4 = (x[,3])/maxm);
})
(if((x == dflist4[["Book2"]])){
maxm = 2;
x %>% mutate(Col4 = (x[,3])/maxm);
})
(if((x == dflist4[["Book3"]])){
maxm = 1;
x %>% mutate(Col4 = (x[,3])/maxm);
})
}

test<-lapply(dflist4, eggplant)

Answer 1

根据我上面的 cmets，我假设 Book1、Book2、Book3 中的第三列称为 Col3。

你可以使用purrr::map2

library(tidyverse)
purrr::map2(dflist4, c(3, 2, 1), function(df, maxm) df %>% mutate(Col4 = Col3 / maxm))

---

由于您不提供示例数据，这里是一个基于mtcars 的示例

purrr::map2(list(mtcars[1:3, ], mtcars[1:3, ]), c(10, 100), function(df, maxm)
    df %>% mutate(mpg.new = mpg / maxm))
#[[1]]
#   mpg cyl disp  hp drat    wt  qsec vs am gear carb mpg.new
#1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4    2.10
#2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4    2.10
#3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1    2.28
#
#[[2]]
#   mpg cyl disp  hp drat    wt  qsec vs am gear carb mpg.new
#1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4   0.210
#2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4   0.210
#3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1   0.228