javascript - 使用HTML小部件的R中的迷你图

我想尝试在R中生成复合迷你图。我认为使用HTML窗口小部件可能会有所帮助：

library(htmlwidgets)
library(sparkline)
set.seed(1234)
x = rnorm(10)
y = rnorm(10)
sparkline(x)
sparkline(y)

在这些软件包使用的JQuery Sparkline函数中（http://omnipotent.net/jquery.sparkline/#s-about），可以传递参数，例如type='box'。

要传递composite='true'选项，需要在链接到javascript函数调用程序的跨度内设置类的ID。任何人都可以在R中做到这一点吗？对于绘制复合迷你图还有其他建议吗？

最佳答案

感谢@timelyportfolio提出问题，并感谢@ramnathv通过添加复合功能来进行更新。

library(htmlwidgets)
library(sparkline)

sl1 <- sparkline(
  c(5,4,5,-2,0,3),
  type="bar",
  barColor="blue",
  chartRangeMin=-5,
  chartRangeMax=10,
  # set an id that will make it easier to refer in the next sparkline
  elementId="sparkline-for-composite"
)

sl2 <- sparkline(
  c(4,1,5,7,9,9,8,7,6,6,4,7,8,4,3,2,2,5,6,7),
  type="line",
  fillColor = FALSE,
  lineColor ="red",
  chartRangeMin = -5,
  chartRangeMax = 10
)

# add sparkline as a composite
spk_composite(sl1, sl2)