转换为 xts 不起作用，因为数据类型为“字符”且无法转换为“数字”

我有以下数据集

data
     date PX_LAST.USGG10YR Index PX_LAST.GSWISS10 Index
1  2012-12-31                 1.7574                  0.526
2  2013-01-31                 1.9849                  0.789
3  2013-02-28                 1.8756                  0.698
4  2013-03-29                 1.8486                  0.716
5  2013-04-30                 1.6717                  0.570
6  2013-05-31                 2.1282                  0.722
7  2013-06-28                 2.4857                  1.027
8  2013-07-31                 2.5762                  1.023
9  2013-08-30                 2.7839                  1.069
10 2013-09-30                 2.6100                  1.021

日期列的类是

> class(data[,1])
[1] "POSIXct" "POSIXt"

另外两列的类别是

类（数据[，2]） [1]“数字” 类（数据[，3]） [1]“数字”

我现在将其转换为

df2=xts(data,order.by=data$date)

结果是

structure(c("2012-12-31", "2013-01-31", "2013-02-28", "2013-03-29", 
"2013-04-30", "2013-05-31", "2013-06-28", "2013-07-31", "2013-08-30", 
"2013-09-30", "1.7574", "1.9849", "1.8756", "1.8486", "1.6717", 
"2.1282", "2.4857", "2.5762", "2.7839", "2.61", "0.526", "0.789", 
"0.698", "0.716", "0.57", "0.722", "1.027", "1.023", "1.069", 
"1.021"), .Dim = c(10L, 3L), .Dimnames = list(NULL, c("date", 
"PX_LAST.USGG10YR Index", "PX_LAST.GSWISS10 Index")), index = structure(c(1356912000, 
1359590400, 1362009600, 1364515200, 1367280000, 1369958400, 1372377600, 
1375228800, 1377820800, 1380499200), tzone = "UTC", tclass = c("POSIXct", 
"POSIXt")), .indexCLASS = c("POSIXct", "POSIXt"), tclass = c("POSIXct", 
"POSIXt"), .indexTZ = "UTC", tzone = "UTC", class = c("xts", 
"zoo"))

看看结果，我得到

> typeof(df2)
[1] "character"

显然，我不能使用它进行计算（例如 Return.calculate）。当我尝试使用 as.numeric(df2[2]) 转换第 2 列和第 3 列时，它仍然为“字符”类型。有人可以帮我找到一个将其转换为正确的 xts 的代码（即第 2 列和第 3 列的类型为“double”），即 df2 的结构如本例所示

library(quantmod)
getSymbols('AAA',src='FRED')
class(AAA)
typeof(AAA)
> class(AAA)
[1] "xts" "zoo"
> typeof(AAA)
[1] "double

问候 安德烈亚斯

您包括了datexts 数据中的列，因此 R 使用不会丢失任何信息（字符）的类型将 data.frame 转换为矩阵。没有必要拥有date列作为 xts 索引and在数据中，因此在调用时只需省略该列xts().

df2 <- xts(data[,-1], order.by=data$date)