[英]How to change plotly animation speed within a javascript code in R?
我想在R中更改绘图动画的速度。但是,动画不是由绘图动画提供的默认播放按钮触发的。 根据JS代码,通过单击Shiny action按钮触发它。 在这种情况下似乎没有考虑animation_opts()参数。
我已经尝试更改animation_opts()参数,如“frame”和“transition”,但动画保持不变。 我也尝试在javascript代码中更改这些参数,动画甚至都没有启动。
library(shiny)
library(plotly)
library(htmlwidgets)
ui <- fluidPage(
actionButton("anim", "Animate"),
plotlyOutput("plot")
)
server <- function(input, output){
output[["plot"]] <- renderPlotly({
df <- data.frame(
x = c(1,2,1),
y = c(1,2,1),
f = c(1,2,3)
)
df %>%
plot_ly(
x = ~x,
y = ~y,
frame = ~f,
type = 'scatter',
mode = 'markers',
marker = list(size = 20),
showlegend = FALSE
) %>%
animation_opts(frame = 5000, transition = 4500, redraw = FALSE) %>%
animation_button(visible = FALSE) %>%
onRender("
function(el,x){
$('#anim').on('click', function(){Plotly.animate(el);});
}")
})
}
shinyApp(ui, server)
我想为绘图动画的帧和转换持续时间设置一个参数,并能够在代码中更改它。
以下是设置这些选项的方法:
library(shiny)
library(plotly)
library(htmlwidgets)
ui <- fluidPage(
actionButton("anim", "Animate"),
plotlyOutput("plot")
)
server <- function(input, output){
output[["plot"]] <- renderPlotly({
df <- data.frame(
x = c(1,2,1),
y = c(1,2,1),
f = c(1,2,3)
)
df %>%
plot_ly(
x = ~x,
y = ~y,
frame = ~f,
type = 'scatter',
mode = 'markers',
marker = list(size = 20),
showlegend = FALSE
) %>%
# animation_opts(frame = 5000, transition = 4500, redraw = FALSE) %>%
animation_button(visible = FALSE) %>%
onRender("
function(el,x){
$('#anim').on('click', function(){
Plotly.animate(el,
null,
{
transition: {
duration: 2000,
easing: 'cubic-in-out'
},
frame: {
duration: 2000
}
}
);
});
}")
})
}
shinyApp(ui, server)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.