在Tidyquant中用tq_get()更改列名

Question

我使用Tidyquant中的tq_get()函数从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

所需的tibble如下所示：

# 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

您可以使用来自rename的dplyr

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的base

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.