r - 在 FREDR 语法中分配变量参数

Question

我想在语法 FREDR 中分配以下参数，并使用 map_dfr 一次下载两个数据帧。这是我通常做的

fredr(series_id = "SP500",
             observation_start = as.Date("2002-01-01"),
             observation_end = as.Date("2020-12-01"),
             frequency = "m",
             units = "pch")

这就是我想要通过添加“单位”和“频率”参数来实现的。它不会工作

map_dfr(c("PCEC96", "SP500"),fredr(units="pch",frequency="m"))

有没有办法解决它？

谢谢

Answer 1

我们可以将匿名函数指定为function(x)或者使用简写~并指定为.x

 library(purrr)
out1 <- map_dfr(c("PCEC96", "SP500"), ~ fredr(.x, units= "pch",frequency= "m"))

或者我们可以只指定参数而不使用()

out2 <- map_dfr(c("PCEC96", "SP500"), fredr, units= "pch", frequency= "m")

Answer 2

您可以尝试lapply：

cols <- c("PCEC96", "SP500")
result <- do.call(rbind, lapply(cols, function(x) fredr(x, units="pch",frequency="m")))