Styjun

Science fiction episode about the creation of a living pegasus, even though flightless

Phonetic distortion when words are borrowed among languages

How important is knowledge of trig identities for use in Calculus

Does AES-ECB with random padding added to each block satisfy IND-CPA?

Would a horse be sufficient buffer to prevent injury when falling from a great height?

Would an object shot from earth fall into the sun?

Why, even after his imprisonment, do people keep calling Hannibal Lecter "Doctor"?

Can a passenger predict that an airline is about to go bankrupt?

Detail vs. filler

Contour integration with infinite poles

Is it possible for a company to grow but its stock price stays the same or decrease?

Why would an airline put 15 passengers at once on standby?

Why most footers have a background color has a divider of section?

Windows 10 deletes lots of tiny files super slowly. Anything that can be done to speed it up?

How to study endgames?

How many space launch vehicles are under development worldwide?

What would happen if I build a half bath without permits?

My first Hangman game in Python

Is it possible to take a database offline when doing a backup using an SQL job?

Is the "spacetime" the same thing as the mathematical 4th dimension?

Sci-fi movie with one survivor and an organism(?) recreating his memories

Why isn't there armor to protect from spells in the Potterverse?

How to export all graphics from a notebook?

Integrals from Brasilian Math Olympiad 2019

Multiple animation in Subplot Plotly

How to sort a dataframe by multiple column(s)Multiple ggplot2 plots with plotlyR Shiny Plotly 3D : Change the title of x , y , z axis to actual variable name and add legend titlePlotly subplot with two ggplots and common legend?Title of Subplots in PlotlySubplots deploying in R Plotlysubplot with plotly with multiple tracesGenerate flexdashboard in Rmarkdownplotly cumulative animation does not work for subplot in RAdd a dendrogram to a a plotly::subplot figure

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

0

Trying to get multiple plots animated using Plotly in R with only one play button

In order to get a frame value for each of my data entries I use:

 accumulate_by <- function(dat, var) 
 var <- lazyeval::f_eval(var, dat)
 lvls <- plotly:::getLevels(var)
 dats <- lapply(seq_along(lvls), function(x) 
 cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[[x]])
 )
 dplyr::bind_rows(dats)




 d <- df3 %>% select(gen,score) %>% 
 accumulate_by(~gen)
 d2 <- df3 %>% select(gen,cpg_margin) %>% 
 accumulate_by(~gen)

Next I create the plot

p1 <- d %>%
 plot_ly(
 x = ~gen, 
 y = ~score,
 frame = ~frame, 
 type = 'scatter',
 mode = 'lines', 
 line = list(simplyfy = F)
 ) %>% 
 layout(
 xaxis = list(
 title = "title",
 zeroline = F
 ),
 yaxis = list(
 title = "title",
 zeroline = F
 ),
 title = "title"
 ) %>% 
 animation_opts(
 frame = 100, 
 transition = 0, 
 redraw = FALSE
 ) 

p2 <- d %>%
 plot_ly(
 x = ~gen, 
 y = ~score2,
 frame = ~frame, 
 type = 'scatter',
 mode = 'lines', 
 line = list(simplyfy = F)
 ) %>% 
 layout(
 xaxis = list(
 title = "title",
 zeroline = F
 ),
 yaxis = list(
 title = "title",
 zeroline = F
 ),
 title = "title"
 ) %>% 
 animation_opts(
 frame = 100, 
 transition = 0, 
 redraw = FALSE
 ) 

Finally the subplot with both plots combined

p <- subplot(p1, p2) %>%
 animation_slider(
 hide = T
 ) %>%
 animation_button(
 x = 1, xanchor = "right", y = 0, yanchor = "bottom"
 )

But the play button wont start the animation. Do I need to link the play button inside the plots too?

r ggplot2 plotly

share|improve this question

asked Mar 28 at 19:51

user2963882user2963882

30833 silver badges1717 bronze badges

add a comment
 | 

0

Trying to get multiple plots animated using Plotly in R with only one play button

In order to get a frame value for each of my data entries I use:

 accumulate_by <- function(dat, var) 
 var <- lazyeval::f_eval(var, dat)
 lvls <- plotly:::getLevels(var)
 dats <- lapply(seq_along(lvls), function(x) 
 cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[[x]])
 )
 dplyr::bind_rows(dats)




 d <- df3 %>% select(gen,score) %>% 
 accumulate_by(~gen)
 d2 <- df3 %>% select(gen,cpg_margin) %>% 
 accumulate_by(~gen)

Next I create the plot

p1 <- d %>%
 plot_ly(
 x = ~gen, 
 y = ~score,
 frame = ~frame, 
 type = 'scatter',
 mode = 'lines', 
 line = list(simplyfy = F)
 ) %>% 
 layout(
 xaxis = list(
 title = "title",
 zeroline = F
 ),
 yaxis = list(
 title = "title",
 zeroline = F
 ),
 title = "title"
 ) %>% 
 animation_opts(
 frame = 100, 
 transition = 0, 
 redraw = FALSE
 ) 

p2 <- d %>%
 plot_ly(
 x = ~gen, 
 y = ~score2,
 frame = ~frame, 
 type = 'scatter',
 mode = 'lines', 
 line = list(simplyfy = F)
 ) %>% 
 layout(
 xaxis = list(
 title = "title",
 zeroline = F
 ),
 yaxis = list(
 title = "title",
 zeroline = F
 ),
 title = "title"
 ) %>% 
 animation_opts(
 frame = 100, 
 transition = 0, 
 redraw = FALSE
 ) 

Finally the subplot with both plots combined

p <- subplot(p1, p2) %>%
 animation_slider(
 hide = T
 ) %>%
 animation_button(
 x = 1, xanchor = "right", y = 0, yanchor = "bottom"
 )

But the play button wont start the animation. Do I need to link the play button inside the plots too?

r ggplot2 plotly

share|improve this question

asked Mar 28 at 19:51

user2963882user2963882

30833 silver badges1717 bronze badges

add a comment
 | 

Trying to get multiple plots animated using Plotly in R with only one play button

In order to get a frame value for each of my data entries I use:

 accumulate_by <- function(dat, var) 
 var <- lazyeval::f_eval(var, dat)
 lvls <- plotly:::getLevels(var)
 dats <- lapply(seq_along(lvls), function(x) 
 cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[[x]])
 )
 dplyr::bind_rows(dats)




 d <- df3 %>% select(gen,score) %>% 
 accumulate_by(~gen)
 d2 <- df3 %>% select(gen,cpg_margin) %>% 
 accumulate_by(~gen)

Next I create the plot

p1 <- d %>%
 plot_ly(
 x = ~gen, 
 y = ~score,
 frame = ~frame, 
 type = 'scatter',
 mode = 'lines', 
 line = list(simplyfy = F)
 ) %>% 
 layout(
 xaxis = list(
 title = "title",
 zeroline = F
 ),
 yaxis = list(
 title = "title",
 zeroline = F
 ),
 title = "title"
 ) %>% 
 animation_opts(
 frame = 100, 
 transition = 0, 
 redraw = FALSE
 ) 

p2 <- d %>%
 plot_ly(
 x = ~gen, 
 y = ~score2,
 frame = ~frame, 
 type = 'scatter',
 mode = 'lines', 
 line = list(simplyfy = F)
 ) %>% 
 layout(
 xaxis = list(
 title = "title",
 zeroline = F
 ),
 yaxis = list(
 title = "title",
 zeroline = F
 ),
 title = "title"
 ) %>% 
 animation_opts(
 frame = 100, 
 transition = 0, 
 redraw = FALSE
 ) 

Finally the subplot with both plots combined

p <- subplot(p1, p2) %>%
 animation_slider(
 hide = T
 ) %>%
 animation_button(
 x = 1, xanchor = "right", y = 0, yanchor = "bottom"
 )

But the play button wont start the animation. Do I need to link the play button inside the plots too?

r ggplot2 plotly

share|improve this question

asked Mar 28 at 19:51

user2963882user2963882

30833 silver badges1717 bronze badges

 accumulate_by <- function(dat, var) 
 var <- lazyeval::f_eval(var, dat)
 lvls <- plotly:::getLevels(var)
 dats <- lapply(seq_along(lvls), function(x) 
 cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[[x]])
 )
 dplyr::bind_rows(dats)




 d <- df3 %>% select(gen,score) %>% 
 accumulate_by(~gen)
 d2 <- df3 %>% select(gen,cpg_margin) %>% 
 accumulate_by(~gen)

p1 <- d %>%
 plot_ly(
 x = ~gen, 
 y = ~score,
 frame = ~frame, 
 type = 'scatter',
 mode = 'lines', 
 line = list(simplyfy = F)
 ) %>% 
 layout(
 xaxis = list(
 title = "title",
 zeroline = F
 ),
 yaxis = list(
 title = "title",
 zeroline = F
 ),
 title = "title"
 ) %>% 
 animation_opts(
 frame = 100, 
 transition = 0, 
 redraw = FALSE
 ) 

p2 <- d %>%
 plot_ly(
 x = ~gen, 
 y = ~score2,
 frame = ~frame, 
 type = 'scatter',
 mode = 'lines', 
 line = list(simplyfy = F)
 ) %>% 
 layout(
 xaxis = list(
 title = "title",
 zeroline = F
 ),
 yaxis = list(
 title = "title",
 zeroline = F
 ),
 title = "title"
 ) %>% 
 animation_opts(
 frame = 100, 
 transition = 0, 
 redraw = FALSE
 ) 

p <- subplot(p1, p2) %>%
 animation_slider(
 hide = T
 ) %>%
 animation_button(
 x = 1, xanchor = "right", y = 0, yanchor = "bottom"
 )

share|improve this question

asked Mar 28 at 19:51

user2963882user2963882

30833 silver badges1717 bronze badges

share|improve this question

asked Mar 28 at 19:51

user2963882user2963882

30833 silver badges1717 bronze badges

asked Mar 28 at 19:51

user2963882user2963882

30833 silver badges1717 bronze badges

asked Mar 28 at 19:51

user2963882user2963882

30833 silver badges1717 bronze badges