coord_polar in shiny

[A. She.]

It's non working.

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


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


server <- function(input, output) {
   
    output$plot <- renderPlotly({
        pie <- ggplot(mtcars, aes(x = factor(1), fill = factor(cyl))) +
            geom_bar(width = 1)
        pie + coord_polar(theta = "y")
           


       
        ggplotly()
    })
   
   
}


shinyApp(ui, server)

Why?

[Joe Cheng]

You're not passing anything into ggplotly; you need to pass the ggplot object you've created.

--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/68e34477-4851-4885-984e-d07dc9dec1b3%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

[A. She.]

Hi Joe! I'm your fan )).

But in R it's work!

pie <- ggplot(mtcars, aes(x = factor(1), fill = factor(cyl))) +
            geom_bar(width = 1)
        pie + coord_polar(theta = "y")

вторник, 23 мая 2017 г., 19:09:44 UTC+2 пользователь Joe Cheng [RStudio] написал:

[Joe Cheng]

In case I wasn't clear:

        pie <- ggplot(mtcars, aes(x = factor(1), fill = factor(cyl))) +
            geom_bar(width = 1)

        pie <- pie + coord_polar(theta = "y")
        ggplotly(pie)

To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/6c2ec39b-c4cc-47ee-a94b-63572f73100c%40googlegroups.com.

[A. She.]

A'm sorry, but I have error, and only with coord_polar. It's work without coord_polar, and coord_polar works without shiny.

rm(list = ls())

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


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


server <- function(input, output) {

    data=data.frame(group=c("A ","B ","C ","D ") , value=c(33,62,56,67) )

    output$plot <- renderPlotly({
        pie <- ggplot(mtcars, aes(x = factor(1), fill = factor(cyl))) +
            geom_bar(width = 1)

        pie <- pie + coord_polar(theta = "y")
        ggplotly(pie)

    })
}
shinyApp(ui, server)

Listening on http://127.0.0.1:6021

Warning in min(z$x.range) :

  no non-missing arguments to min; returning Inf

Warning in max(z$x.range) :

  no non-missing arguments to max; returning -Inf

Warning in min(z$y.range) :

  no non-missing arguments to min; returning Inf

Warning in max(z$y.range) :

  no non-missing arguments to max; returning -Inf

Warning: Error in zero_range: x must be length 1 or 2

Stack trace (innermost first):

    87: zero_range

    86: scales::rescale

    85: gg2list

    84: ggplotly.ggplot

    83: ggplotly

    82: "plotly"::"ggplotly" [#8]

    81: func

    80: origRenderFunc

    79: output$plot

     4: <Anonymous>

     3: do.call

     2: print.shiny.appobj

     1: <Promise>

среда, 24 мая 2017 г., 9:15:46 UTC+2 пользователь Joe Cheng [RStudio] написал:

[Joe Cheng]

Does coord_polar work even with ggplotly if you don't use Shiny?

To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/4ecb67dc-43f6-4fc5-89bb-d990097f0950%40googlegroups.com.

[A. She.]

You're right. It's not work without Shiny to.

pie <- ggplot(mtcars, aes(x = factor(1), fill = factor(cyl))) +
    geom_bar(width = 1)
pie <- pie + coord_polar(theta = "y")
ggplotly(pie)

Error in zero_range(to) : x must be length 1 or 2

In addition: Warning messages:

1: In min(z$x.range) : no non-missing arguments to min; returning Inf

2: In max(z$x.range) : no non-missing arguments to max; returning -Inf

3: In min(z$y.range) : no non-missing arguments to min; returning Inf

4: In max(z$y.range) : no non-missing arguments to max; returning -Inf

среда, 31 мая 2017 г., 9:04:06 UTC+2 пользователь Joe Cheng [RStudio] написал: