3

すぐ下の画像のようなダッシュボードを作成しようとしています。

ここに画像の説明を入力

週次リターンを使用して指数の累積プロットを作成します。ここで、毎月の頻度でリターンをプロットする追加の列としてバープロットを埋め込みたいと思います (毎月が 4 週間であると仮定します)。それは可能ですか？

返品を 1 週間から 4 週間に追加するのは簡単ですが、どのような種類の時間値を指定すれば、バープロットにギャップが生じるでしょうか?

これがsparktableに使用するコードです

content <- list(
     function(x) { tail(x,1) },
     function(x) {
        round(tail(x,1),2)
       },
     function(x) { round(max(x),2) },
     function(x) { round(min(x),2) },
     newSparkLine(lineWidth = 2, pointWidth = 6), newSparkBar()
)
names(content) <- c("Current", "LastWeek", "Max", "Min", "Cumulative","WeeklyRet")

dat<-reshapeExt(lpl,idvar="INDEX",varying=list(2))
 # set variables
 vars <- c("CLOSE", "WEEKLY", "CLOSE", "CLOSE","CLOSE" ,"WEEKLY")

 stab <- newSparkTable(dataObj = lpl, tableContent = content, varType = vars)

私のデータは次のようになります

        id time   CLOSE     WEEKLY
1469 SP500    1 1987.66 -2.4184217
1476 SP500    2 1951.13 -1.8722484
1483 SP500    3 1952.29  0.0594174
1490 SP500    4 1990.20  1.9048337
1497 SP500    5 1932.24 -2.9996274
1504 SP500    6 1923.82 -0.4376709

私が欲しいのは、たとえば週 1 ～ 4、5 ～ 8 の毎週の収益を追加し、別の列としてプロットすることです

4

0 に答える 0