将数据框转换为 xts

Question

我正在尝试使用 as.xts() 方法将数据帧转换为 xts 对象。这是我的输入数据框 q：

q
                      t x  
1  2006-01-01 00:00:00  1  
2  2006-01-01 01:00:00  2  
3  2006-01-01 02:00:00  3

str(q)
    'data.frame':   10 obs. of  2 variables:
 $ t: POSIXct, format: "2006-01-01 00:00:00" "2006-01-01 01:00:00" "2006-01-01 02:00:00" "2006-01-01 03:00:00" ...  
 $ x: int  1 2 3 4 5 6 7 8 9 10

结果是：

> as.xts(q)
Error in as.POSIXlt.character(x, tz, ...) : 
  character string is not in a standard unambiguous format

这是我能想到的最简单的例子，所以不让它工作是非常令人沮丧的......感谢任何帮助！

Answer 1

您可以简单地执行以下

qxts <- xts(q[,2],q$t)

对我有用的操作。

Answer 2

我也遇到了这个问题，但我的数据日期格式略有不同：yyyy-mm-dd，而不是 OP，这是下载到 R 的财务数据的典型格式。
具体来说，例如：“2022-02-28”。
因此，所有建议的解决方案都不起作用。
有效的方法是：

as.xts(q, order.by=as.Date(rownames(q), format = "%Y%m%d"))

假设您的数据位于典型的数据框中以日期作为行名（如果没有，只需将 q 适当替换为数据和日期列）

Answer 3

对于 tibble 或 data.frame：

如 @psychonomics 注释中所示，可以使用 tk_xts：

library(timetk)

qxts <- tk_xts(q)

对于 data.table ：

对于 data.table dt，as.xts(dt) 比 tk_xts(dt) 快得多。

因此，这里的一个简单解决方案是首先将 data.frame 转换为 data.table：

library(data.table)

qxts <- as.xts(as.data.table(q))

Answer 4

使用 read.zoo，然后使用 as.xts。这：

• 除了已经使用的包之外不需要任何额外的包
• 的内部 -

采用整个对象方法避免处理 q代码

library(xts) # also pulls in zoo
as.xts(read.zoo(q))

Answer 5

这是明确记录的 --- xts 和 zoo 对象是通过提供两个参数、向量或来形成的Matrix 携带数据和 Date、POSIXct、chron、... 提供时间信息的类型（或者在 < a href="http://cran.r-project.org/package=zoo" rel="noreferrer">zoo 排序）。

所以，做类似的事情

 qxts <- xts(q[,-1], order.by=q[,1])

，你就应该准备好了。

Answer 6

好吧，as.xts 默认情况下假设日期存储在 data.frame 的行名中。因此出现错误消息。一个快速而肮脏的解决方法是：

rownames(q) = q[1]
as.xts(q)

但是您会得到一个带有日期字符串的额外列。理想情况下，您将构建 data.frame，并以日期作为行名开始。

Answer 7

下面是使用 tidyquant 包的解决方案，其中包含一个将数据帧强制转换为 xts 对象的函数 as_xts()。它还包含 as_tibble() 来将 xts 对象强制转换为 tibbles（“整洁”数据帧）。

重新创建数据框（请注意，日期时间类用于“整洁”的数据框，但可以使用任何明确的日期或日期时间类）：

> q
# A tibble: 3 × 2
                    t     x
               <dttm> <dbl>
1 2006-01-01 00:00:00     1
2 2006-01-01 01:00:00     2
3 2006-01-01 02:00:00     3

使用 as_xts() 转换为“xts” “ 班级。指定参数 date_col = t，以将“t”列指定为用作行名称的日期：

> library(tidyquant)
> as_xts(q, date_col = t)
                    x
2006-01-01 00:00:00 1
2006-01-01 01:00:00 2
2006-01-01 02:00:00 3

返回的是具有正确日期或日期的 xts 对象- 次作为行名称。

Answer 8

这是一个可能的解决方案：

library(timetk)
q <- xts::xts(q[,-1], order.by = q$t)

Answer 9

我定义了一个索引，其长度等于我的小标题的行数。仅在单独定义时间顺序后（如示例所示）：

ti= seq(from = ymd_hm("2000-01-01 00:00"),
to = ymd_hm("2000-01-02 01:00"), by =  "30 min", tz = "UTC")

tbl <- tibble(t =ti,
    x = 1:length(t))
)

此代码有效：

xts.tbl <- xts(tbl[,-1], order.by = ti)

但是所有数据都转换为字符。

Answer 10

现在它不起作用的原因似乎很清楚，xts 不接受 tibbles，即使选择了列，它们仍然存储为 Tibbles。核心数据可以转换为矩阵或向量。以下代码有效：
xls.tbl <- xls(tbl$x, order.by = tbl$t)

Answer 11

尝试以下操作

q$t<-as.xts(q, order.by = as.Date(q$t), dateFormat="POSIXct")