如何创建和合并多个XTS对象

发布于 2025-01-22 12:31:12 字数 172 浏览 2 评论 0原文

我想在循环中合并许多XTS对象。为了这样做，我必须编写以下代码138次。 temp = merge（temp，temp1）temp = merge（temp，temp2）temp = merge（temp，temp3）temp = merge（temp，temp4）> 有没有办法自动执行该过程？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

梦途 2025-01-29 12:31:12

创建一个包含对象的列表，然后使用do.call/merge。在下面，如果XTS对象本身具有列名，则可以省略列表的组件名称。尽管在此示例中，日期是相同的，如果不相同，它仍然可以正常工作。

library(xts)

# test data
x1 <- x2 <- x3 <- xts(1:3, as.Date("2000-01-01") + 0:2)

L <- list(x1 = x1, x2 = x2, x3 = x3)
do.call("merge", L)

给予：

           x1 x2 x3
2000-01-01  1  1  1
2000-01-02  2  2  2
2000-01-03  3  3  3

如果XTS对象具有其名称的模式，例如它们是唯一以x开头的对象，那么此替代方案也可以创建L：

L <- mget(ls(pattern = "^x"))

或者如果它们是唯一的XTS对象，那么这将有效地创建列表。

L <- Filter(is.xts, mget(ls()))

Create a list which contains the objects and then use do.call/merge. Below we could hae omitted the component names of the list if the xts objects themselves had column names. Although in this example the dates are the same it will still work if they are not.

library(xts)

# test data
x1 <- x2 <- x3 <- xts(1:3, as.Date("2000-01-01") + 0:2)

L <- list(x1 = x1, x2 = x2, x3 = x3)
do.call("merge", L)

giving:

           x1 x2 x3
2000-01-01  1  1  1
2000-01-02  2  2  2
2000-01-03  3  3  3

If the xts objects have a pattern to their names, e.g. they are the only objects whose names start with x then this alternative would also work to create L: