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