从标准化降水蒸散指数（SPEI）R中提取时间序列

可能是一个简单的问题，但我几次尝试后都没有弄明白。鉴于下面关于Multiple站点计算SPEI的示例，我的问题如下：

1如何绘制选定站点的时间序列？并非所有站点都是同时出现的

2如何从SPEI对象提取所有站点的时间序列并形成数据帧？目的是对时间序列应用主成分分析

 library(SPEI)

# Computing several time series at a time
data(balance)
names(balance)
bal_spei12 <- spei(balance,12)
plot(bal_spei12)

---

我能够使用x=as.data.framefittedball_spei12获得拟合值，但日期仍然丢失Balance是一个data.frame。plotbal_spei12$fitted[，1]绘制indore拟合值的第一列。。那么问题到底是什么呢？我在这个时间序列中没有看到任何日期。@42-非常感谢。我现在可以使用您的答案理解输出