我有一个包含多个变量的XTS对象，我想为每个变量添加自定义属性。 xts vignette为此提供了一些指导（第20页）。我希望XTS对象（或对象列表）中的每个变量都具有这些属性的单独值。我认为xtsAttributes无法分配给xts个查询。这是正确的，如果是，那么以下哪种解决方案最好（或提供备用）？
a）将XTS对象分解为XTS个对象列表，并单独分配属性。 （可能是首选的选项，但不理想，因为我希望将所有变量绑定到同一时间索引）
b）保留属性的索引查找表以及单个XTS对象，并分别检索这些属性。 （杂乱）
c）扩展xts类以处理此问题（可疑）
代码参考：
a<-xts(matrix(1:4, ncol=2, nrow=2), as.Date(c("2015-01-01","2018-01-01")))
xtsAttributes(a[,1])<-list(myattr="foo")
xtsAttributes(a[,1])
#NULL
xtsAttributes(a)<-list(myattr="foo")
xtsAttributes(a)
#[1] "foo"