在XTS中添加列名和在XTS中更改日期

Question

xts看起来像：

An ‘xts’ object on 1970-01-02 05:30:00/1976-03-29 05:30:00 containing:
  Data: num [1:2279, 1] 0.295 0.316 0.315 0.301 0.292 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : NULL
  Indexed by objects of class: [POSIXct,POSIXt] TZ: 
  Original class: 'double'  
  xts Attributes: NULL

这个XTS是通过另一个代码生成的，并且没有列名，如

dimnames(cor_BG_xts)
[[1]]
NULL
[[2]]
NULL
colnames(cor_BG_xts)
NULL

如何向xts添加列名。我尝试了烧焦堆栈溢出，但我得到了data.frame的解决方案，而不是xts。首先，我需要将其转换为df，然后命名列。而且，xts采用类似于1970-01-02 05:30:00的日期。一个人怎么能改变xts说的12/1/2009 12:00:00。

Answer 1

让我们首先创建一个可复制的示例：

library(xts)

dates <- seq.Date(as.Date("2018-11-19"), as.Date("2018-11-23"), by = "day")
numbers <- 1:5

my_xts <- xts(numbers, dates)
my_xts
                    [,1]
2018-11-19 05:30:00    1
2018-11-20 05:30:00    2
2018-11-21 05:30:00    3
2018-11-22 05:30:00    4
2018-11-23 05:30:00    5

现在设置(重命名)列名并不困难，可以使用names、colnames或setNames。

names(my_xts) <- "new_column_name"
# setNames / colnames works as well.
# my_xts <- setNames(my_xts, "new_column_name")
# colnames(my_xts) <- "new_column_name"
# 
my_xts
                    new_column_name
2018-11-19 05:30:00               1
2018-11-20 05:30:00               2
2018-11-21 05:30:00               3
2018-11-22 05:30:00               4
2018-11-23 05:30:00               5

更改索引格式，使用indexFormat。您可以使用?strptime详细信息中提到的任何日期时间格式。

indexFormat(my_xts) <- "%d/%m/%Y %H:%M:%S"
my_xts
                    new_column_name
19/11/2018 05:30:00               1
20/11/2018 05:30:00               2
21/11/2018 05:30:00               3
22/11/2018 05:30:00               4
23/11/2018 05:30:00               5