我在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的两个图表之间添加过渡动画?谢谢。