3

我是 Shiny 的新手，我正在尝试使用d3TreeR HTML Widget来显示交互式树状图

我使用了以下代码，它在 R 中完美运行：

library(readxl)
budget_map <- read_excel(path = 'Trader Dashboard Data Prep Sample.xlsx',sheet='v2',col_names = TRUE)
library(treemap)
budget_treemap <- treemap(budget_map,index=c("Sales Agency","Agency","Advertiser"),vSize="Booked Revenue Net",vColor="Sales Agency",palette = "Set1",type="categorical",title="Australia Budget Map",fontsize.title=22)
library(d3treeR)
d3tree2(budget_treemap)

我正在尝试让它在 Shiny 中渲染并使用以下代码：

library(shiny)
library(readxl)
library(treemap)
library(htmlwidgets)
library(data.tree)
library(d3treeR)
budget_map <- read_excel(path = 'C:/Users/rahul/Desktop/30k foot view/Trader Dashboard Data Prep Sample.xlsx',sheet='v2',col_names = TRUE)
budget_treemap <- treemap(budget_map,index=c("Sales Agency","Agency","Advertiser"),vSize="Booked Revenue Net",vColor="Sales Agency",palette = "Set1",type="categorical")

ui <- fluidPage(
  d3tree2Output("au_budget_map")
)


server <- function(input,output){
    output$au_budget_map <- renderD3tree2({budget_treemap})
}

shinyApp(ui = ui, server = server)

附加示例数据以使其可重现：https ://drive.google.com/open?id=0B2LJXtBTsuhhcnZJeXI3T0kwYW8 我知道我可能遗漏了一些非常明显的东西 - 但我无法发现它！任何帮助都会非常棒！谢谢！

4

1 回答 1

3

renderD3tree2接受结果d3tree2作为输入：

output$au_budget_map <- renderD3tree2({d3tree2(budget_treemap)})
于 2016-12-09T11:25:59.413 回答