使用Merge.xts函数将多个xts文件合并在一起

使用Merge.xts函数将多个xts文件合并在一起,r,R,我在尝试将不同的xts文件正确合并在一起时遇到问题。下面是我尝试合并的文件。我希望使用merge.xts函数,但不确定如何格式化它。非常感谢任何hep XOM.rtn <- monthlyReturn(XOM $ XOM.Adjusted, subset=NULL, type='log', leading=TRUE) MSFT.rtn <- monthlyReturn(MSFT $ MSFT.Adjusted, subset=NULL, type='log', leading=TRU

我在尝试将不同的xts文件正确合并在一起时遇到问题。下面是我尝试合并的文件。我希望使用merge.xts函数,但不确定如何格式化它。非常感谢任何hep

XOM.rtn <- monthlyReturn(XOM $ XOM.Adjusted, subset=NULL, type='log', leading=TRUE)
MSFT.rtn <- monthlyReturn(MSFT $ MSFT.Adjusted, subset=NULL, type='log', leading=TRUE)
JNJ.rtn <- monthlyReturn(JNJ $ JNJ.Adjusted, subset=NULL, type='log', leading=TRUE)
GE.rtn <- monthlyReturn(GE $ GE.Adjusted, subset=NULL, type='log', leading=TRUE)
CVX.rtn <- monthlyReturn(CVX $ CVX.Adjusted, subset=NULL, type='log', leading=TRUE)
WFC.rtn <- monthlyReturn(WFC $ WFC.Adjusted, subset=NULL, type='log', leading=TRUE)
PG.rtn <- monthlyReturn(PG $ PG.Adjusted, subset=NULL, type='log', leading=TRUE)
JPM.rtn <- monthlyReturn(JPM $ JPM.Adjusted, subset=NULL, type='log', leading=TRUE)
VZ.rtn <- monthlyReturn(VZ $ VZ.Adjusted, subset=NULL, type='log', leading=TRUE)
PFE.rtn <- monthlyReturn(PFE $ PFE.Adjusted, subset=NULL, type='log', leading=TRUE)
T.rtn <- monthlyReturn(T $ T.Adjusted, subset=NULL, type='log', leading=TRUE)
IBM.rtn <- monthlyReturn(IBM $ IBM.Adjusted, subset=NULL, type='log', leading=TRUE)
MRK.rtn <- monthlyReturn(MRK $ MRK.Adjusted, subset=NULL, type='log', leading=TRUE)
BAC.rtn <- monthlyReturn(BAC $ BAC.Adjusted, subset=NULL, type='log', leading=TRUE)
ORCL.rtn <- monthlyReturn(ORCL $ ORCL.Adjusted, subset=NULL, type='log', leading=TRUE)
PM.rtn <- monthlyReturn(PM $ PM.Adjusted, subset=NULL, type='log', leading=TRUE)
INTC.rtn <- monthlyReturn(INTC $ INTC.Adjusted, subset=NULL, type='log', leading=TRUE)
DIS.rtn <- monthlyReturn(DIS $ DIS.Adjusted, subset=NULL, type='log', leading=TRUE)

XOM.rtn我们可以将对象放入
列表
,然后进行
合并

library(xts)
out <- Reduce(function(...) merge(...),  mget(ls(pattern = 'rtn\\$')))
库(xts)

out我们可以将对象放入
列表
,然后进行
合并

library(xts)
out <- Reduce(function(...) merge(...),  mget(ls(pattern = 'rtn\\$')))
库(xts)
出来