1

我想rCharts根据 的选择生成多个饼图Group，这Group可能会根据数据框而改变。我想使用与此处类似的示例

https://gist.github.com/wch/5436415/

someDF = structure(list(Variable.Type = c("Apple", "Orange", "Banana", 
"Apple", "Orange", "Banana"), Total = c(2, 1, 3, 6, 5, 4), Market = c("Pete", 
"Pete", "Pete", "Sams", "Sams", "Sams")), .Names = c("Variable.Type", 
"Total", "Market"), row.names = c(NA, -6L), class = "data.frame")

list = unique(someDF$Market)

在服务器.R

 output$somePieCharts = renderUI({
 list = unique(someDF$Group)
 plot_output_list = lapply(1:length(list), function(i){
   plotData = filter(someDF, Group==list[i])
   chartOutput(hPlot(Total~Variable.Type, data=plotData, type='pie'))
 }
                           )
 do.call(tagList, plot_output_list)
})

在 ui.R

uiOutput('somePieCharts')
4

1 回答 1

2

以下是如何修改动态图示例以用于hPlot. 我刚刚替换plotOutput为chartOutput和。其余的更改是不言自明的。renderPlotrenderChart2

library(shiny); library(rCharts)
Markets = unique(someDF$Market)
server = function(input, output) {

  # Insert the right number of plot output objects into the web page
  output$plots <- renderUI({
    plot_output_list <- lapply(1:2, function(i) {
      plotname <- paste("plot", i, sep="")
      chartOutput(plotname, "highcharts")
    })

    # Convert the list to a tagList - this is necessary for the list of items
    # to display properly.
    do.call(tagList, plot_output_list)
  })

  # Call renderPlot for each one. Plots are only actually generated when they
  # are visible on the web page.
  for (i in 1:length(Markets)) {
    # Need local so that each item gets its own number. Without it, the value
    # of i in the renderPlot() will be the same across all instances, because
    # of when the expression is evaluated.
    local({
      my_i <- i
      plotname <- paste("plot", my_i, sep="")

      output[[plotname]] <- renderChart2({
        print(my_i)
        plotData = subset(someDF, Market == Markets[my_i])
        print(plotData)
        hPlot(Total ~ Variable.Type, data = plotData, type='pie')
      })
    })
  }
}

ui = pageWithSidebar(
  headerPanel("Dynamic number of plots"),

  sidebarPanel(),

  mainPanel(
    # This is the dynamic UI for the plots
    uiOutput("plots")
  )
)

runApp(list(ui = ui, server = server))
于 2014-03-24T19:17:49.663 回答