将N个要素汇总/缩减为一个要素

Question

我有多维（f1,f2,f3）时间序列数据

# R CODE
library(xts)
timeseq <- seq(as.POSIXct("2017-06-01"),as.POSIXct("2017-06-20 23:59:59"),"hours")
df <- data.frame(f1=rnorm(length(timeseq),30,1),
                 f2=rnorm(length(timeseq),40,0.5),
                 f3=rnorm(length(timeseq),50, 2))
df_xts <-xts(df,timeseq)

现在，我想将这个三维数据（df_xts）缩减为一维时间序列数据。

我尝试了多维缩放（MDS）  cmdscale(coredata(dist(df_xts)),k=1)，但似乎在功能缩减过程中丢失了一些信息。有没有其他方法可以减少功能而不会丢失太多信息？