Rendering an animated plot in R shiny with ggplot and plotly

Multi tool use
Multi tool use











up vote
0
down vote

favorite












I have an animated plot that displays properly via an R (not a shiny app) script:



load("HF.RData") # this contains the dataframe dt1.HF

p <- ggplot(dt1.HF, aes(x = tm, y = HF, colour = team)) +
geom_point(aes(frame = sn, ids = tm), size = 5)

p <- ggplotly(p)

animation_opts(p, frame = 1000, transition = 500, easing = "linear",
redraw = TRUE, mode = "immediate")


However I have been unable to display this in a shiny app, running locally (not on a shiny server), with the same dataframe. Currently, my (simplified) shiny app is:



library(shiny)
library(ggplot2)
library(plotly)

shinyApp(
shinyUI(
fluidPage(
plotOutput("HF.plot")
)
),
shinyServer(function(input, output, session) {

load("HF.RData")

output$HF.plot <- renderPlotly({
p <- ggplot(dt1.HF, aes(x = tm, y = HF, colour = team)) +
geom_point(aes(frame = sn, ids = tm), size = 5)
p <- ggplotly(p)
animation_opts(p, frame = 1000, transition = 500, easing = "linear",
redraw = TRUE, mode = "immediate")
})
})
)


Is there something I am missing or doing wrong ?










share|improve this question
























  • Would it help to return p at the end of your renderPlotly? Currently you are returning just the return value of animation_opts
    – thothal
    Nov 15 at 12:08










  • @thothal thanks, I had tried that, but the same problem persists
    – Robert Long
    Nov 15 at 12:10










  • Can you create a reprex? Difficult to say w/o the data at hand
    – thothal
    Nov 15 at 12:10















up vote
0
down vote

favorite












I have an animated plot that displays properly via an R (not a shiny app) script:



load("HF.RData") # this contains the dataframe dt1.HF

p <- ggplot(dt1.HF, aes(x = tm, y = HF, colour = team)) +
geom_point(aes(frame = sn, ids = tm), size = 5)

p <- ggplotly(p)

animation_opts(p, frame = 1000, transition = 500, easing = "linear",
redraw = TRUE, mode = "immediate")


However I have been unable to display this in a shiny app, running locally (not on a shiny server), with the same dataframe. Currently, my (simplified) shiny app is:



library(shiny)
library(ggplot2)
library(plotly)

shinyApp(
shinyUI(
fluidPage(
plotOutput("HF.plot")
)
),
shinyServer(function(input, output, session) {

load("HF.RData")

output$HF.plot <- renderPlotly({
p <- ggplot(dt1.HF, aes(x = tm, y = HF, colour = team)) +
geom_point(aes(frame = sn, ids = tm), size = 5)
p <- ggplotly(p)
animation_opts(p, frame = 1000, transition = 500, easing = "linear",
redraw = TRUE, mode = "immediate")
})
})
)


Is there something I am missing or doing wrong ?










share|improve this question
























  • Would it help to return p at the end of your renderPlotly? Currently you are returning just the return value of animation_opts
    – thothal
    Nov 15 at 12:08










  • @thothal thanks, I had tried that, but the same problem persists
    – Robert Long
    Nov 15 at 12:10










  • Can you create a reprex? Difficult to say w/o the data at hand
    – thothal
    Nov 15 at 12:10













up vote
0
down vote

favorite









up vote
0
down vote

favorite











I have an animated plot that displays properly via an R (not a shiny app) script:



load("HF.RData") # this contains the dataframe dt1.HF

p <- ggplot(dt1.HF, aes(x = tm, y = HF, colour = team)) +
geom_point(aes(frame = sn, ids = tm), size = 5)

p <- ggplotly(p)

animation_opts(p, frame = 1000, transition = 500, easing = "linear",
redraw = TRUE, mode = "immediate")


However I have been unable to display this in a shiny app, running locally (not on a shiny server), with the same dataframe. Currently, my (simplified) shiny app is:



library(shiny)
library(ggplot2)
library(plotly)

shinyApp(
shinyUI(
fluidPage(
plotOutput("HF.plot")
)
),
shinyServer(function(input, output, session) {

load("HF.RData")

output$HF.plot <- renderPlotly({
p <- ggplot(dt1.HF, aes(x = tm, y = HF, colour = team)) +
geom_point(aes(frame = sn, ids = tm), size = 5)
p <- ggplotly(p)
animation_opts(p, frame = 1000, transition = 500, easing = "linear",
redraw = TRUE, mode = "immediate")
})
})
)


Is there something I am missing or doing wrong ?










share|improve this question















I have an animated plot that displays properly via an R (not a shiny app) script:



load("HF.RData") # this contains the dataframe dt1.HF

p <- ggplot(dt1.HF, aes(x = tm, y = HF, colour = team)) +
geom_point(aes(frame = sn, ids = tm), size = 5)

p <- ggplotly(p)

animation_opts(p, frame = 1000, transition = 500, easing = "linear",
redraw = TRUE, mode = "immediate")


However I have been unable to display this in a shiny app, running locally (not on a shiny server), with the same dataframe. Currently, my (simplified) shiny app is:



library(shiny)
library(ggplot2)
library(plotly)

shinyApp(
shinyUI(
fluidPage(
plotOutput("HF.plot")
)
),
shinyServer(function(input, output, session) {

load("HF.RData")

output$HF.plot <- renderPlotly({
p <- ggplot(dt1.HF, aes(x = tm, y = HF, colour = team)) +
geom_point(aes(frame = sn, ids = tm), size = 5)
p <- ggplotly(p)
animation_opts(p, frame = 1000, transition = 500, easing = "linear",
redraw = TRUE, mode = "immediate")
})
})
)


Is there something I am missing or doing wrong ?







r ggplot2 shiny plotly r-plotly






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 15 at 12:40









Stéphane Laurent

12.2k65291




12.2k65291










asked Nov 15 at 11:57









Robert Long

1,26941327




1,26941327












  • Would it help to return p at the end of your renderPlotly? Currently you are returning just the return value of animation_opts
    – thothal
    Nov 15 at 12:08










  • @thothal thanks, I had tried that, but the same problem persists
    – Robert Long
    Nov 15 at 12:10










  • Can you create a reprex? Difficult to say w/o the data at hand
    – thothal
    Nov 15 at 12:10


















  • Would it help to return p at the end of your renderPlotly? Currently you are returning just the return value of animation_opts
    – thothal
    Nov 15 at 12:08










  • @thothal thanks, I had tried that, but the same problem persists
    – Robert Long
    Nov 15 at 12:10










  • Can you create a reprex? Difficult to say w/o the data at hand
    – thothal
    Nov 15 at 12:10
















Would it help to return p at the end of your renderPlotly? Currently you are returning just the return value of animation_opts
– thothal
Nov 15 at 12:08




Would it help to return p at the end of your renderPlotly? Currently you are returning just the return value of animation_opts
– thothal
Nov 15 at 12:08












@thothal thanks, I had tried that, but the same problem persists
– Robert Long
Nov 15 at 12:10




@thothal thanks, I had tried that, but the same problem persists
– Robert Long
Nov 15 at 12:10












Can you create a reprex? Difficult to say w/o the data at hand
– thothal
Nov 15 at 12:10




Can you create a reprex? Difficult to say w/o the data at hand
– thothal
Nov 15 at 12:10












1 Answer
1






active

oldest

votes

















up vote
1
down vote



accepted










You need to use renderPlotly and plotlyOutput.



library(shiny)
library(plotly)

ui <- fluidPage(
plotlyOutput("plot")
)

server <- function(input, output, session) {
output$plot <- renderPlotly({
ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
ggplotly(ggiris)
})
}

shinyApp(ui, server)





share|improve this answer

















  • 1




    Brilliant. Thank you !
    – Robert Long
    Nov 15 at 12:16











Your Answer






StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});














draft saved

draft discarded


















StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53318993%2frendering-an-animated-plot-in-r-shiny-with-ggplot-and-plotly%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown

























1 Answer
1






active

oldest

votes








1 Answer
1






active

oldest

votes









active

oldest

votes






active

oldest

votes








up vote
1
down vote



accepted










You need to use renderPlotly and plotlyOutput.



library(shiny)
library(plotly)

ui <- fluidPage(
plotlyOutput("plot")
)

server <- function(input, output, session) {
output$plot <- renderPlotly({
ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
ggplotly(ggiris)
})
}

shinyApp(ui, server)





share|improve this answer

















  • 1




    Brilliant. Thank you !
    – Robert Long
    Nov 15 at 12:16















up vote
1
down vote



accepted










You need to use renderPlotly and plotlyOutput.



library(shiny)
library(plotly)

ui <- fluidPage(
plotlyOutput("plot")
)

server <- function(input, output, session) {
output$plot <- renderPlotly({
ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
ggplotly(ggiris)
})
}

shinyApp(ui, server)





share|improve this answer

















  • 1




    Brilliant. Thank you !
    – Robert Long
    Nov 15 at 12:16













up vote
1
down vote



accepted







up vote
1
down vote



accepted






You need to use renderPlotly and plotlyOutput.



library(shiny)
library(plotly)

ui <- fluidPage(
plotlyOutput("plot")
)

server <- function(input, output, session) {
output$plot <- renderPlotly({
ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
ggplotly(ggiris)
})
}

shinyApp(ui, server)





share|improve this answer












You need to use renderPlotly and plotlyOutput.



library(shiny)
library(plotly)

ui <- fluidPage(
plotlyOutput("plot")
)

server <- function(input, output, session) {
output$plot <- renderPlotly({
ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
ggplotly(ggiris)
})
}

shinyApp(ui, server)






share|improve this answer












share|improve this answer



share|improve this answer










answered Nov 15 at 12:12









JohnCoene

884615




884615








  • 1




    Brilliant. Thank you !
    – Robert Long
    Nov 15 at 12:16














  • 1




    Brilliant. Thank you !
    – Robert Long
    Nov 15 at 12:16








1




1




Brilliant. Thank you !
– Robert Long
Nov 15 at 12:16




Brilliant. Thank you !
– Robert Long
Nov 15 at 12:16


















draft saved

draft discarded




















































Thanks for contributing an answer to Stack Overflow!


  • Please be sure to answer the question. Provide details and share your research!

But avoid



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


To learn more, see our tips on writing great answers.





Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


Please pay close attention to the following guidance:


  • Please be sure to answer the question. Provide details and share your research!

But avoid



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53318993%2frendering-an-animated-plot-in-r-shiny-with-ggplot-and-plotly%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







3G2XXa4
vRJyPl,pq

Popular posts from this blog

mysqli_query(): Empty query in /home/lucindabrummitt/public_html/blog/wp-includes/wp-db.php on line 1924

How to change which sound is reproduced for terminal bell?

Can I use Tabulator js library in my java Spring + Thymeleaf project?