Использование функции Merge.xts для объединения нескольких файлов XTS вместе

Question

У меня возникла проблема при попытке правильно объединить разные xts-файлы. Ниже приведены файлы, которые я пытаюсь объединить. Я надеялся использовать функцию merge.xts, но не уверен, как ее отформатировать. Любая гепатит с благодарностью!

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)

Answer 1

Мы можем получить объекты в list, а затем сделать merge

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