Если вам нужна интерактивная таблица, вы можете использовать этот код в исходных данных.
library(DT)
datatable(matTest, options = list(pageLength = 9))
![InteractiveTable](https://i.stack.imgur.com/oipl7.jpg)
Если вы хотите интерактивную серию time_seriesplot, прежде всего измените формат ваших данных следующим образом:
df<-as.data.frame(cbind(as.matrix(as.vector(t(matTest))),c(1:ncol(matTest)-1),unlist(lapply(rownames(matTest),rep,times=ncol(matTest)))))
colnames(df)<-c("time_series","time","stock")
df
time_series time stock
1 -0.813688587253615 0 1
2 -0.457763419325742 1 1
3 0.0756429812511287 2 1
4 2.18700453503453 3 1
5 1.00659661717065 4 1
6 -2.16436341755656 5 1
7 -0.0829999360152501 6 1
8 -0.491237208736282 7 1
9 0.351591891565934 8 1
10 0.138073915553248 9 1
11 0.276431050047784 0 2
12 -0.88208290628419 1 2
13 0.421498167781597 2 2
...
Теперь используйте rCharts
для построения графика time_series
library("rCharts")
xPlot(time_series~time, group="stock",data=df,type="line-dotted")
![xPlot](https://i.stack.imgur.com/YUjVp.jpg)
Теперь вы можете изменить параметры графика, чтобы получить лучший наряд.