Question

我正在尝试创建一个类似上面链接的仪表板。它使用每周回报制作指数的累积图。现在我想嵌入一个条形图作为附加列，每月频率返回一个图表（假设每个月是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周，然后作为单独的列绘制

使用sparkTable创建不同频率的图

0 个答案: