(R) 将 Environment 上的对象循环到函数中并导出结果

Question

我想从几个数据框中导出图。

我尝试使用 1)for 循环并将 ls() 传递给 2) 函数，但无论如何，我使用的函数 (regplot) 只能到达字符向量：数据错误 [，1] ：不正确的维数

1. 示例虚拟数据：

cbind.data.frame(x = 0:6, y = c(1, 2, 3, 6.1, 5.9, 6, 6.1)) -> data1

cbind.data.frame(x = 0:6, y = c(2, 4, 6, 12.2, 11.8, 12, 12.2)) -> data2

2. 对于循环：

require(easyreg)

for (i in base::ls()) { i |> easyreg::regplot(model = 3) }

3. 尝试使用函数：

test_fun <- function(x) { x |> regplot(model=3) }

test_fun(ls())

4. 我想做的事：

for (i in base::ls()) {
  svglite::svglite(filename = paste0(i,".svg"))
  i |> easyreg::regplot(model = 3)
  dev.off()
}

Answer 1

您可以跳过第 2 步和第 3 步。

# require(svglite)
for (i in ls(pattern = "data")) { # Assuming that all the dataframes'names contain the word "data"
  svglite::svglite(filename = paste0(i,".svg"))
  get(i) |> easyreg::regplot(model = 3)
  dev.off()
}

受此评论启发