r - 如何使用lapply从传递给函数的列表中获取data.frame的名称

Question

我有我想扩展的功能，能够将结果保存到 csv 文件。应根据传递给此函数的 data.frame 名称生成 csv 文件的名称:

my.func1 <- function(dframe, ...){
  # PART OF CODE RESPONSIBLE FOR COMPUTATION
  # ...

  # PART OF CODE WHERE I WANT TO STORE RESULTS AS CSV
  csv <- deparse(substitute(dframe))
  csv
}

当我按照以下方式调用此函数时，传递给此函数的数据集名称将被正确解释:

> my.func1(mtcars)
[1] "mtcars"

但是我需要为列表中的每个 data.frame 调用这个函数。如果我从列表中为特定的 data.frame 调用这个函数，那么它基本上可以工作(我得到了包含列表名称的丑陋名称，但一种解决方法可以使用正则表达式修剪它):

> LoDFs <- list(first=data.frame(y1=c(1,2,3), y2=c(4,5,6)), second=data.frame(yA=c(1,2,3), yB=c(4,5,6)))
> my.func1(LoDFs$first)
[1] "LoDFs$first"

问题是当我想为列表中的所有 data.frames 调用此函数时。在这种情况下，data.frame 的名称是困惑的:

> lapply(LoDFs, my.func1)
$first
[1] "X[[i]]"

$second
[1] "X[[i]]"

> lapply(seq_along(LoDFs), function(x) { my.func1(LoDFs[[x]]) })
[[1]]
[1] "LoDFs[[x]]"

[[2]]
[1] "LoDFs[[x]]"

我做错了什么，如何避免使用正则表达式提到的解决方法并使代码更健壮？

Answer 1

f 列表中的每个数据框都被命名

lapply (names (LoDf),function(i)write.csv (my.fun1 (LoDf [[i]]),paste0 (i,'.csv')))

在电话上所以请原谅小错误