在 Tidyquant 中使用 tq_get() 更改列名稱

Question

我在 Tidyquant 中使用tq_get() function 從 FRED 檢索經濟數據：

library(tidyquant)
library(tidyverse)

consumer_price_index <- 'CPIAUCSL'

start_date <- as.Date('2022-01-01')
end_date <- as.Date('2022-03-31')

cpi <- tq_get(consumer_price_index,
               from = start_date,
               to = end_date,
               get = 'economic.data')

cpi

# A tibble: 3 x 3
  symbol   date       price
  <chr>    <date>     <dbl>
1 CPIAUCSL 2022-01-01  282.
2 CPIAUCSL 2022-02-01  284.
3 CPIAUCSL 2022-03-01  288.

如何將price列的名稱更改為cpi ？

所需的小標題如下所示：

# A tibble: 3 x 3
  symbol   date        cpi
  <chr>    <date>     <dbl>
1 CPIAUCSL 2022-01-01  282.
2 CPIAUCSL 2022-02-01  284.
3 CPIAUCSL 2022-03-01  288.

謝謝！

Answer 1

您可以使用來自dplyr的rename

cpi <- tq_get(consumer_price_index,
              from = start_date,
              to = end_date,
              get = 'economic.data') %>% 
  rename(cpi = price)

# A tibble: 3 × 3
  symbol   date         cpi
  <chr>    <date>     <dbl>
1 CPIAUCSL 2022-01-01  282.
2 CPIAUCSL 2022-02-01  284.
3 CPIAUCSL 2022-03-01  288.

或者只使用base中的colnames

colnames(cpi)<- c("symbol", "date", "cpi")

Answer 2

使用列號：

names(cpi)[3] <- "cpi"
cpi

# A tibble: 3 x 3
  symbol   date         cpi
  <chr>    <date>     <dbl>
1 CPIAUCSL 2022-01-01  282.
2 CPIAUCSL 2022-02-01  284.
3 CPIAUCSL 2022-03-01  288.