R animated plotly: line graph not plotting line

Question

I am trying to create an animated plotly line graph in R using my own data. The animation works when I used markers as the 'mode', however, when changing the mode to 'lines' or 'plines' nothing shows on the graph.

Any suggestions?

Data:

CH4

X FIRST SECOND
1 1 23.9 71.9
2 2  2.9 23.7
3 3 85.7  6.0
4 4  1.2 94.0
5 5  1.1 66.8
6 6  1.5 99.9

Code:

plot_ly(CH4, x=~X, y=~FIRST, name="FIRST",
        hoverinfo = 'text',
        text = ~paste('Test Round: ', CH4$X, '<br>',
                      'Concentration: ', CH4$SECOND),
        type = "scatter", mode = "plines", frame=~frame) %>%
  add_trace(x=~X, y = ~SECOND, name="SECOND", mode = 'plines') %>%

  layout(yaxis = list(title = "CH4 Concentrations"), xaxis = list(title = 
 "Test Round"))

Marco Sandri Marco Sandri · Accepted Answer · 2018-09-25T17:17:50

You can find a solution here.
Starting from your data, you need to generate an accumulated dataframe, using for example the accumulate_by function defined below.

dts <- read.table(text="
X FIRST SECOND
1 1 23.9 71.9
2 2  2.9 23.7
3 3 85.7  6.0
4 4  1.2 94.0
5 5  1.1 66.8
6 6  1.5 99.9
", header=T)

library(plotly)
library(lazyeval)
library(dplyr)
accumulate_by <- function(dat, var) {
  var <- 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]])
  })
  bind_rows(dats)
}

CH4 <- dts %>% accumulate_by(~X)
head(CH4, 10)
#    X FIRST SECOND frame
# 1  1  23.9   71.9     1
# 2  1  23.9   71.9     2
# 3  2   2.9   23.7     2
# 4  1  23.9   71.9     3
# 5  2   2.9   23.7     3
# 6  3  85.7    6.0     3
# 7  1  23.9   71.9     4
# 8  2   2.9   23.7     4
# 9  3  85.7    6.0     4
# 10 4   1.2   94.0     4

Now your code works correctly:

plot_ly(CH4, x=~X, y=~FIRST, frame=~frame, 
        name='FIRST',  hoverinfo = 'text',
        text = ~paste('Test Round: ', CH4$X, '<br>',
                      'Concentration: ', CH4$SECOND),
        type = 'scatter', mode = 'plines') %>%
  add_trace(x=~X, y = ~SECOND, name='SECOND', mode = 'plines') %>%
  layout(yaxis = list(title = 'CH4 Concentrations'), 
         xaxis = list(title = 'Test Round'))

R animated plotly: line graph not plotting line

1 Answers