使用 tidyquant 庫中的 tq_get function 創建 for 循環，以獲取 state 在 R 中的失業申請？ [包括圖像和代碼]

Question

目標：我想在美國每個 state 的表格中獲得 state 的初始失業申請

這是我正在關注的示例： 鏈接

以下是該鏈接中代碼的快速片段：

ga_claims <- 
  "GAICLAIMS" %>% 
  tq_get(get = "economic.data", 
         from = "1999-01-01") %>% 
  rename(claims = price) 

第一個過濾器適用於格魯吉亞。 但是，我希望它適用於所有州。 我能夠創建一個 csv 文件以將所有 state 縮寫與“ICLAIMS”連接起來。 我只是想通過我的 function 傳遞一個 for 循環，如下所示。 附件是我上傳的 csv 的屏幕截圖，其中包含該格式的所有狀態......'CAICLAIMS'，'NYICLAIMS'，'ALICLAIMS'等等......

Answer 1

我們可以創建一個 function：

library(dplyr)
library(tidyquant)

get_data <- function(x) {
  x %>% 
    tq_get(get = "economic.data",from = "1999-01-01") %>% 
    rename(claims = price) 
}

並通過lapply Claim_Code

lapply(df$Claim_Code, get_data)

如果您想將其合並為一個 dataframe，我們可以這樣做：

do.call(rbind, Map(cbind, lapply(df$Claim_Code, get_data), 
               Claim_Code = df$Claim_Code))

#         date claims Claim_Code
#1   1999-01-02   9674  GAICLAIMS
#2   1999-01-09  19455  GAICLAIMS
#3   1999-01-16  20506  GAICLAIMS
#4   1999-01-23  12932  GAICLAIMS
#5   1999-01-30  10871  GAICLAIMS
#6   1999-02-06   7997  GAICLAIMS

或使用purrr 。

library(purrr)
map2_df(map(df$Claim_Code, get_data), df$Claim_Code, cbind)

數據

df <- data.frame(Claim_Code = c('GAICLAIMS', 'ALICLAIMS', 'AZICLAIMS'), 
                 stringsAsFactors = FALSE)