r - 映射列表并将变量插入到函数中

Question

我有一个列表，我想循环并将变量插入到函数中。但是，我使用的函数不喜欢我从 {purr} 包中应用 map() 函数获得的输出。
这是我的 list :

$AAPL
# A tibble: 10 x 2
   ticker string    
   <chr>  <date>    
 1 AAPL   2020-01-28
 2 AAPL   2020-04-30
 3 AAPL   2020-07-30
 4 AAPL   2020-10-29
 5 AAPL   2021-01-27
 6 AAPL   2020-01-29
 7 AAPL   2020-05-01
 8 AAPL   2020-07-31
 9 AAPL   2020-10-30
10 AAPL   2021-01-28

$ABEV
# A tibble: 8 x 2
  ticker string    
  <chr>  <date>    
1 ABEV   2020-02-26
2 ABEV   2020-05-06
3 ABEV   2020-07-29
4 ABEV   2020-10-28
5 ABEV   2020-02-27
6 ABEV   2020-05-07
7 ABEV   2020-07-30
8 ABEV   2020-10-29


my.list = list(AAPL = structure(list(ticker = c("AAPL", "AAPL", "AAPL", 
"AAPL", "AAPL", "AAPL", "AAPL", "AAPL", "AAPL", "AAPL"), string = structure(c(18289, 
18382, 18473, 18564, 18654, 18290, 18383, 18474, 18565, 18655
), class = "Date")), row.names = c(NA, -10L), class = c("tbl_df", 
"tbl", "data.frame"), na.action = structure(305:380, .Names = c("305", 
"306", "307", "308", "309", "310", "311", "312", "313", "314", 
"315", "316", "317", "318", "319", "320", "321", "322", "323", 
"324", "325", "326", "327", "328", "329", "330", "331", "332", 
"333", "334", "335", "336", "337", "338", "339", "340", "341", 
"342", "343", "344", "345", "346", "347", "348", "349", "350", 
"351", "352", "353", "354", "355", "356", "357", "358", "359", 
"360", "361", "362", "363", "364", "365", "366", "367", "368", 
"369", "370", "371", "372", "373", "374", "375", "376", "377", 
"378", "379", "380"), class = "omit")), ABEV = structure(list(
    ticker = c("ABEV", "ABEV", "ABEV", "ABEV", "ABEV", "ABEV", 
    "ABEV", "ABEV"), string = structure(c(18318, 18388, 18472, 
    18563, 18319, 18389, 18473, 18564), class = "Date")), row.names = c(NA, 
-8L), class = c("tbl_df", "tbl", "data.frame"), na.action = structure(305:380, .Names = c("305", 
"306", "307", "308", "309", "310", "311", "312", "313", "314", 
"315", "316", "317", "318", "319", "320", "321", "322", "323", 
"324", "325", "326", "327", "328", "329", "330", "331", "332", 
"333", "334", "335", "336", "337", "338", "339", "340", "341", 
"342", "343", "344", "345", "346", "347", "348", "349", "350", 
"351", "352", "353", "354", "355", "356", "357", "358", "359", 
"360", "361", "362", "363", "364", "365", "366", "367", "368", 
"369", "370", "371", "372", "373", "374", "375", "376", "377", 
"378", "379", "380"), class = "omit")))

我想循环这个并将变量添加到 Quanld 函数中。 Quandl 函数适用于以下输入。

Quandl.datatable('ORATS/VOL', tradedate=c('2021-02-19', "2020-01-20"), ticker='AAPL')

所以我想要做的是遍历列表并将日期(字符串)和股票行情(ticker)插入到这个函数中。
这是我所拥有的:

library(tidyverse)

map(my.list, ~Quandl.datatable('ORATS/VOL', tradedate=.x$string, ticker=.x$ticker[1]))

这会产生错误，因为在输入到函数中时，该格式似乎不在向量中。我在这里缺少什么？感谢您的帮助。

Answer 1

如果我们看看如何tradedate手动输入中的值，它是 character类，而“字符串”列是 Date类(class)。可能，我们可以改成character与 as.character

library(purrr)
out <- map(my.list, ~Quandl.datatable('ORATS/VOL', 
     tradedate = as.character(.x$string), ticker=.x$ticker[1]))

原因可能是在 API 调用中，它正在转换为 character无论如何，但如果我们使用 Date类，强制到 integer存储值可能会阻止它执行