1

rChartsの選択に基づいて複数の円グラフを生成したいのですがGroup、これGroupはデータ フレームによって異なります。here と同様の例を使用したいと思います

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)

server.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をrenderPlotに置き換えただけrenderChart2です。残りの変更は自明です。

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 に答える