我正在try 创建一个this S&P500 samplexts对象.这是我使用的代码:

sp500 <- read.csv2("SP500.csv",
               stringsAsFactors = F,
               header = T,
               sep = ",",
               na.strings = ".")
sp500$DATE <- as.Date(sp500$DATE)
sp500$SP500 <- as.numeric(sp500$SP500)
library(xts)
sp500idx <- xts(sp500$SP500, order.by = as.Date(sp500$DATE))

当我判断str(sp500idx)时,这似乎起作用了.然而,当我try 通过简单地输入sp500idx来打印新对象时,我得到了以下结果:

!> sp500idx
            m.c.seq.row..seq.n...seq.col..drop...FALSE.
 2014-03-10                                     1877.17
 2014-03-11                                     1867.63
 2014-03-12                                     1868.20
 2014-03-13                                     1846.34
 2014-03-14                                     1841.13
 2014-03-17                                     1858.83
 2014-03-18                                     1872.25
 2014-03-19                                     1860.77
 2014-03-20                                     1872.01
 2014-03-21                                     1866.52
        ...
 2014-07-15                                     1973.28
 2014-07-16                                     1981.57
 2014-07-17                                     1958.12
 2014-07-18                                     1978.22
 2014-07-21                                     1973.63
 2014-07-22                                     1983.53
 2014-07-23                                     1987.01
 2014-07-24                                     1987.98
 2014-07-25                                     1978.34
 2014-07-28                                     1978.91

此输出中的第一行是什么意思,即

m.c.seq.row..seq.n...seq.col..drop...FALSE.

我有一种感觉,这与xts个天体中观察到的次数有关.谢谢你的帮忙!

推荐答案

我不能重现这一点,但无论如何,这样做的方法如下所示.

为了使其自包含,我们将在结尾处的注意事项中生成输入文件.然后使用read.csv.zoo读取它,并将其转换为XTS.

library(xts)

sp500 <- "SP500.csv" |> read.csv.zoo(drop = FALSE) |> as.xts()

sp500
##              SP500
## 2014-03-10 1877.17
## 2014-03-11 1867.63
## 2014-03-12 1868.20

class(sp500)
## [1] "xts" "zoo"

is.numeric(sp500)
## [1] TRUE

class(time(sp500))
## [1] "Date"

注意事项

Lines <- "DATE,SP500
2014-03-10,1877.17
2014-03-11,1867.63
2014-03-12,1868.20
"

cat(Lines, file = "SP500.csv")

comments

关于您的注释,|>说将管道的左侧插入管道右侧的函数调用的第一个参数中,并运行它,以便显示的管道与as.xts(read.csv.zoo(sp500, drop = FALSE))相同,但从左向右流动,避免了更难阅读嵌套括号.

有关任何包的更多信息,例如,请访问https://cran.r-project.org/package=zoo并查看小插页(如果有)、参考手册和任何其他链接.

要获取有关某个命令的更多信息,请查看其帮助页面,例如,?zoo?xts?read.csv.zoo等.要查看示例,请查看该命令的帮助页面底部.在R控制台发出不带()的命令将显示其R源代码,例如read.csv.zoo.

read.csv.zooread.zoo的简单包装(基于read.csv而不是read.table),read.zoo上有一个完整的场景.

R相关问答推荐

卸载安装了BRM的模型发出的警告

编码变量a、b、c以匹配来自另一个数据点的变量x

更改Heatmap Annotation对象的名称

如何在modelsummary中重命名统计数据?

使用strsplit()将向量操作为数据框

使用整齐的计算(curl -curl )和杂音

使用rvest从多个页面抓取时避免404错误

如何在科学记数法中显示因子

从非重叠(非滚动)周期中的最新数据向后开窗并在周期内计数

仅当后续值与特定值匹配时,才在列中回填Nas

在不对R中的变量分组的情况下取两行的平均值

在散点图中使用geom_point放置线图例

删除在R中的write.table()函数期间创建的附加行

根据r中每行中的日期序列,使用列名序列创建新列

在ggploy中创建GeV分布时出错

如何使用循环从R中的聚合函数创建列,而不会在名称中给出&q;$&q;?

将数据从一列转换为按组累计计数的单个虚拟变量

从两个数据帧中,有没有办法计算R中一列的唯一值?

将R中对象的CSV数组转换为JSON数组

如何使用包含要子集的值的列表或数据框来子集多个列?