如何正确使用 lapply 和 Bloomberg Rblpapi 包来拉多组股票

问题描述

我不确定这是一个 lapply 问题还是一个关于 Rblpapi 语法的问题。 Rblpapi 是一个很棒的包，用于通过 R 从bloomberg 中提取数据。

因为不是每个人都可以访问彭博社，并且因为涉及到很多股票代码，这使得提供可重复的示例更具挑战性，因此希望有人可以提供没有 reprex 的解决方案。

当我使用以下代码时，可以成功拉取我想要的数据：

library(Rblpapi)
library(tidyverse)

# Connect to Bloomberg  --------------------------------------------------------------------
  blpConnect()


# Specify beginning and end dates
beg_date <- as.Date("1927-12-30",format = "%Y-%m-%d")
end_date <- Sys.Date()


# Specify Bloomberg field to pull
my_field <- "PX_LAST"


# Call ticker script to load tickers
source(file.path(my_path,"tickers.R"),echo = FALSE)

 
# Create function to pull Bloomberg data
pull_fx <- function(input_tickers,input_field) {
  df <- as.data.frame(
    bdh(
      input_tickers,input_field,start.date               = beg_date,end.date                 = end_date,include.non.Trading.days = TRUE
    )
  )
}

# Pull data  
rates_level_df         <- pull_fx(rates_tickers_level,my_field)
equity_level_us_df     <- pull_fx(equity_tickers_us_level,my_field)

当我尝试使用所有代码提取数据以便不必为每组代码重复 pull_fx(tickers_here,my_field) 代码时，我尝试了以下操作：

list_df <- lapply(tickers_all,pull_fx,input_field = my_field)

其中 tickers_all 是包含所有股票代码分组的字符向量（例如，“rates_tickers_level”）。我为每个股票代码集合返回了一个数据框列表，但列表中的每个数据框都是空的。结果，我无法判断我是否只是错误地使用了 lapply 或者我是否提供了错误的语法来使用 bdh 命令（Rblpapi 包）使用 lapply。

我期望的输出是一个数据框列表，其中包含为每组股票代码提取的数据（即，包含在tickers_all 字符向量中的“rates_level_df”、“equity_level_us_df”等数据框。

感谢您的帮助！

解决方法

尝试将 mget 与 tickers_all 结合使用

list_df <- lapply(mget(tickers_all),pull_fx,input_field = my_field)

要理解为什么我们需要 mget 考虑这个简单的例子

a <- 1
b <- 2
tmp <- c('a','b')
tmp
#[1] "a" "b"

tmp 具有变量 a 和 b，它们以字符串形式存储在其中。要获取存储在 a 和 b 中的值 1 和 2，我们需要 mget。

mget(tmp)
#$a
#[1] 1

#$b
#[1] 2

bloomberg r r