如何在我的 R 闪亮应用程序中显示使用 rcharts 创建的图表？

Question

情况：

我有一个基于 rcharts 的 sankey 图，我想在我的闪亮应用程序中显示（参见下面的代码）。

问题：

当我调用我的闪亮应用程序时，sankey 图不会显示在闪亮应用程序本身中，而是显示在浏览器的不同选项卡窗口中。标签的地址是file:///C:/Users/Me/AppData/Local/Temp/RtmpcxIBRn/rCharts159410f110f8/index.html

问题：

如何更改我的代码，以便在闪亮的应用程序本身而不是在不同的浏览器选项卡中打开桑基图？

代码：

library(shiny)
library(ggplot2)
library(networkD3)
library(rCharts)
library(igraph)

 shinyApp(

    ui = fluidPage(
     fluidRow(
        column(12,
         "Look at this Sankey-Plot:"
        )
      ),
      fluidRow(
        column(12,
         plotOutput('SankeyPl')
        )
      )
    ),

   server = function(input, output) {

  g <- graph.tree(40, children = 4)

  E(g)$weight = 1
  edgelist <- get.data.frame(g) #this will give us a data frame with from,to,weight
  colnames(edgelist) <- c("source","target","value")
  #make character rather than numeric for proper functioning
  edgelist$source <- as.character(edgelist$source)
  edgelist$target <- as.character(edgelist$target)
  sankeyPlot <- rCharts$new()
  sankeyPlot$setLib('http://timelyportfolio.github.io/rCharts_d3_sankey')
  sankeyPlot$setTemplate(script = "http://timelyportfolio.github.io/rCharts_d3_sankey/layouts/chart.html")
  sankeyPlot$set(
    data = edgelist,
    nodeWidth = 15,
    nodePadding = 10,
    layout = 32,
    width = 960,
    height = 500
  )

  output$SankeyPl=renderPlot({sankeyPlot})

    }
  )


shinyApp(ui, server)

Answer 1

您需要下载these files并将目录d3_sankey与您的应用程序放在同一目录下，这样showOutput('SankeyPl', 'd3_sankey')中的第二个参数是指d3_sankey目录。例如

$ git clone https://github.com/timelyportfolio/rCharts_d3_sankey.git
$ mv rCharts_d3_sankey/libraries/widgets/d3_sankey/ <to where your shiny app is>

您的应用程序目录现在应该如下所示：

appdir/
├── app.R
└── d3_sankey

完成此操作后，以下代码应该可以工作：

library(shiny)
library(ggplot2)
library(networkD3)
library(rCharts)
library(igraph)

shinyApp(

  ui <- fluidPage(
    fluidRow(
      column(12,
             "Look at this Sankey-Plot:"
      )
    ),
    fluidRow(
      column(12,
             showOutput('SankeyPl', 'd3_sankey')
      )
    )
  ),

  server <- function(input, output) {

    g <- graph.tree(40, children = 4)

    E(g)$weight = 1
    edgelist <- get.data.frame(g) #this will give us a data frame with from,to,weight
    colnames(edgelist) <- c("source","target","value")
    #make character rather than numeric for proper functioning
    edgelist$source <- as.character(edgelist$source)
    edgelist$target <- as.character(edgelist$target)
    sankeyPlot <- rCharts$new()
    # sankeyPlot$setLib('http://timelyportfolio.github.io/rCharts_d3_sankey')
    sankeyPlot$setLib('http://timelyportfolio.github.io/rCharts_d3_sankey/libraries/widgets/d3_sankey')
    # sankeyPlot$setTemplate(script = "http://timelyportfolio.github.io/rCharts_d3_sankey/layouts/chart.html")
    sankeyPlot$set(
      data = edgelist,
      nodeWidth = 15,
      nodePadding = 10,
      layout = 32,
      width = 960,
      height = 500
    )

    output$SankeyPl <- renderChart2({
      sankeyPlot
    })

  }
)

两个主要变化是在ui 上使用showOutput 和在server 上使用renderChart2。

在此处进一步阅读：

https://github.com/ramnathv/rCharts/issues/515

sankey diagram with rCharts into shiny application. Color issue