在使用rCharts构建Shiny应用程序时,我可以在两个被动值之间添加过渡动画吗?

时间:2014-09-18 22:16:09

标签: r shiny rcharts

我在Shiny app中有一个滑块用于反应值,我正在使用rCharts进行绘图。当我拖动滑块时,是否可以向图表添加一些过渡动画,以便图表不会突然改变?据我所知nvd3支持转换,所以我希望rCharts,至少使用nvd3,会支持转换。

更新:示例

ui.r

library(shiny)
library(rCharts)

shinyUI(fluidPage(
  withMathJax(),
  sidebarLayout(
    sidebarPanel=sidebarPanel(
      sliderInput("lambda", "\\(\\lambda=\\)", 
                  min=0, max=1, value=0.5, step=0.05)),
    mainPanel=mainPanel(
      showOutput("chart", "nvd3")
    )
  )
))

server.r

library(shiny)
library(rCharts)

n <- 10
d <- 2
data_1 <- as.data.frame(matrix(rnorm(n * d), nrow=n, ncol=d))
data_2 <- as.data.frame(matrix(rnorm(n * d), nrow=n, ncol=d))

shinyServer(function(input, output){
  output$chart <- renderChart({
    data <- data_1 * input$lambda + data_2 * (1 - input$lambda)
    p <- nPlot(x="V1", y="V2", data=data, type="scatterChart")
    p$set(dom="chart")
    return(p)
  })
})

更改lambda的值时,图表会相应更改。但是如何在两个lambdas的两个图表之间添加过渡动画?谢谢。

0 个答案:

没有答案