如何解决如何正确使用 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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。