Question

我有问题。我正在尝试使用带有R Shiny的Googlevis软件包，但遇到一些问题。

 library (googleVis)
    library(shiny)
    library(shinythemes)

df=data.frame(annee=c("2000","2005","2010","2014","2015","2016","2017"), val= c(30.0,27.0,29.7,28.6,28.8,29.4,26.))
graph2 <- {gvisLineChart(df)}

shinyApp(
  ui = navbarPage(
    theme = shinytheme("yeti"),"Pageweb",
    tabPanel("Page1",
             sidebarPanel(
               tags$em("TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE")
               ),
             mainPanel(
               tabsetPanel(
                 tabPanel("Onglet1", plotOutput("graph1"), "Texte de présentation", plot(graph2)),
                 tabPanel("Onglet2"),
                 tabPanel("Onglet3")
               )
             )
               )),
  server = function(input, output) {

    output$graph1 <- renderPlot({
      y = c(30.0,27.0,29.7,28.6,28.8,29.4,26.)
      barplot(y,names.arg=c("2000","2005","2010","2014","2015","2016","2017"),main="Titre graph1",
              xlab="Années", ylab="Pourcentage (en %)", col="#2345AA", border="#515353",space=0.3,
              ylim=c(0,35), density=c(30))
    })  
  }
  )

使用Googlevis创建的图形会在新窗口中打开，但我想在R闪亮页面中实现它。我尝试了htmloutput函数，但没有结果。

如果有人想将Googlevis制作的图形放在R Shiny制作的页面中

df=data.frame(annee=c("2000","2005","2010","2014","2015","2016","2017"), val= c(30.0,27.0,29.7,28.6,28.8,29.4,26.))
    graph2 <- {gvisLineChart(df)}

此外，我不得不在一开始就声明这两行。如果没有，则找不到该变量。

Answer 1

对于googleVis图，您需要与其他任何图相同的逻辑。以相同的方式，您在用户界面中用graph1和服务器中的plotOutput来渲染renderPlot，对于googleVis graph2来说是相同的，在用户界面中使用htmlOutput并使用{服务器中的{1}}：

renderGvis

大多数闪亮的窗口小部件（library (googleVis) library(shiny) library(shinythemes) shinyApp( ui = navbarPage( theme = shinytheme("yeti"),"Pageweb", tabPanel("Page1", sidebarPanel( tags$em("TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE") ), mainPanel( tabsetPanel( tabPanel("Onglet1", plotOutput("graph1"), "Texte de présentation", htmlOutput('graph2')), tabPanel("Onglet2"), tabPanel("Onglet3") ) ) )), server = function(input, output) { output$graph1 <- renderPlot({ y = c(30.0,27.0,29.7,28.6,28.8,29.4,26.) barplot(y,names.arg=c("2000","2005","2010","2014","2015","2016","2017"),main="Titre graph1", xlab="Années", ylab="Pourcentage (en %)", col="#2345AA", border="#515353",space=0.3, ylim=c(0,35), density=c(30)) }) output$graph2 <- renderGvis({ df=data.frame(annee=c("2000","2005","2010","2014","2015","2016","2017"), val= c(30.0,27.0,29.7,28.6,28.8,29.4,26.)) gvisLineChart(df) }) } )，leaflet，plotly ...）提供输出和渲染功能，分别用于UI和服务器。在这种情况下，renderGvis函数。

可以将数据和googleVis图表创建放在googleVis函数上，与您在renderGvis调用中所做的类似。

Googlevis，R闪亮：不在新窗口中

1 个答案: