可能是一个简单的问题，但经过多次尝试后我无法弄明白。鉴于这个例子（见下文）关于在多个站点计算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)