闪亮的应用程序中的ggplotly不断崩溃（Rstudio）

Posted 2023-02-16

【中文标题】闪亮的应用程序中的ggplotly不断崩溃（Rstudio）

【英文标题】：ggplotly in shiny app keeps crashing (Rstudio)

【发布时间】：2021-01-16 19:56:51

【问题描述】：

我正在尝试在闪亮的应用程序中渲染 ggplotly，但我的代码甚至没有运行。非常感谢任何帮助！我在哪里犯错？我对 R 很陌生。请参阅下面的代码。

**

ui <- fluidPage(  
titlePanel("Plotly"),
sidebarLayout(
sidebarPanel(),
mainPanel(
  plotlyOutput("plot2"))))

server <- function(input, output)  output$plot2 <- renderPlotly(print(
  ggplotly(
    q<-ggplot(plotdata,aes(x=DateValue, y=Count, col=Country, 
                                 group=1
                                 
                                 ))+
  geom_line(aes(text=paste
                ( '<br>Number of Launches:', Count, 
                  '<br>Country:', Country)
                
                   )) 
    +
  scale_colour_manual(values = c('yellow','orange','turquoise1','mediumspringgreen','tan3','indianred4','plum1','slateblue2','violetred2','greenyellow','blue1','black','firebrick2'))+
  theme( axis.line = element_line(colour = "black", 
                      size = 1, linetype = "solid"))+
scale_x_continuous(breaks=c(1945,1955,1965,1975,1985,1995,2005,2015,2025))+
scale_y_continuous(breaks=c(0,20,40,60,80,100,120))+
theme_bw()+
guides(colour = guide_legend(override.aes = list(shape = 3))) +
labs(title="Space Launches per Year",
subtitle="Colored by country",
caption="Source: ...",
 y="Number of Launches",
x="Year")),
ggplotly(q, tooltip = "text"))

**

【参考方案1】：

如下所示更改您的服务器代码，并确保您有一个名为 plotdata 的数据框进行绘图。最初的 print 声明是不必要的。另外，你在 ggplotly 中调用了 ggplotly。

server <- function(input, output)  
  output$plot2 <- renderPlotly( 
    q<-ggplot(plotdata,aes(x=DateValue, y=Count, col=Country, group=1))+
      geom_line(aes(text=paste
                    ( '<br>Number of Launches:', Count, 
                      '<br>Country:', Country))) +
    
      scale_colour_manual(values = c('yellow','orange','turquoise1','mediumspringgreen','tan3','indianred4','plum1','slateblue2','violetred2','greenyellow','blue1','black','firebrick2'))+
      theme( axis.line = element_line(colour = "black", 
                                      size = 1, linetype = "solid"))+
      scale_x_continuous(breaks=c(1945,1955,1965,1975,1985,1995,2005,2015,2025))+
      scale_y_continuous(breaks=c(0,20,40,60,80,100,120))+
      theme_bw()+
      guides(colour = guide_legend(override.aes = list(shape = 3))) +
      labs(title="Space Launches per Year",
           subtitle="Colored by country",
           caption="Source: ...",
           y="Number of Launches",
           x="Year")
    
  ggplotly(q, tooltip = "text")
  )