Блестящие диаграммы вывода нескольких диаграмм

Как я могу перезаписать параметры отображения вывода с запуском нескольких диаграмм с shiny и rchart, чтобы результат вывода представлял собой макет сетки матричного типа 2x2.

require(rCharts)
require(shiny)
require(data.table)
runApp(list(
  ui = mainPanel( span="span6", 
    showOutput("chart2", "Highcharts"),
    showOutput("chart3", "Highcharts"),
    showOutput("chart4", "Highcharts")
    ),
  server = function(input, output){
      output$chart3 <- renderChart({
      a <- hPlot(Pulse ~ Height, data = MASS::survey, type = "bubble", title = "Zoom demo", subtitle = "bubble chart", size = "Age", group = "Exer")
      a$chart(zoomType = "xy")
      a$chart(backgroundColor = NULL)
      a$set(dom = 'chart3')
      return(a)
    })
    output$chart2 <- renderChart({
      survey <- as.data.table(MASS::survey)
      freq <- survey[ , .N, by = c('Sex', 'Smoke')]
      a <- hPlot(x = 'Smoke', y = 'N', data = freq, type = 'column', group = 'Sex')
      a$chart(backgroundColor = NULL)
      a$set(dom = 'chart2')
      return(a)
    })
    output$chart4 <- renderChart({
      survey <- as.data.table(MASS::survey)
      freq <- survey[ , .N, by = c('Smoke')]
      a <- hPlot(x = "Smoke", y = "N", data = freq, type = "pie")
      a$plotOptions(pie = list(size = 150))
      a$chart(backgroundColor = NULL)
      a$set(dom = 'chart4')
      return(a)
    })
  }
))

r shiny-server rcharts
person digdeep    schedule 20.02.2014    source источник

Ответы (2)


arrow_upward
6
arrow_downward

Измените ui на:

ui = bootstrapPage(mainPanel( 
      div(class = "row",
        div(showOutput("chart2", "Highcharts"), class = "span4"),
        div(showOutput("chart3", "Highcharts"), class = "span4")
      ),
      div(class = "row",
        div(showOutput("chart4", "Highcharts"), class = "span4")
      )
    ))

Добавьте bootstrapPage, чтобы сообщить shiny использовать библиотеку начальной загрузки. Посмотрите на http://getbootstrap.com/2.3.2/scaffolding.html, чтобы получить представление о «строительных лесах». mainPanel имеет параметр ширины, который по умолчанию равен 8. Это span8 в начальной загрузке. Приведенный выше код не идеален, но, надеюсь, это начало.

РЕДАКТИРОВАТЬ: для полноэкранного режима

ui = bootstrapPage(mainPanel(width = 12,  
      div(class = "row",
        div(showOutput("chart2", "Highcharts"), class = "span6"),
        div(showOutput("chart3", "Highcharts"), class = "span6")
      ),
      div(class = "row",
        div(showOutput("chart4", "Highcharts"), class = "span6")
      )
    ))

обратите внимание, что mainPanel (..., width = width) - это просто вспомогательная функция для div с диапазоном ширины.

Скриншот результата:

введите описание изображения здесь

person jdharrison    schedule 20.02.2014
comment
спасибо за это, действительно полезно. С другой стороны, может ли только mainPanel работать на весь экран? Или вам нужно использовать что-то вроде sidePanel, но изменить диапазон на что-то вроде span6 для sidePanel и MainPanel? - person digdeep; 20.02.2014
comment
mainPanel в основном просто устанавливает div с параметром width, который устанавливает диапазон. Если вы измените mainPanel, добавив параметр width = 12, и измените класс внутренних div на span6, вы должны получить то, что хотите. - person jdharrison; 20.02.2014
comment
@jdharrison, с вашего разрешения добавил скриншот результата, приятно! - person PatrickT; 09.05.2014

arrow_upward
1
arrow_downward

Другое решение, которое является родным для R Shiny (без внешних знаний HTML), - использовать идеи столбцов.

ui = mainPanel(fluidPage(
    fluidRow(
      column(width=6, 
             showOutput("chart2", "Highcharts"),
             showOutput("chart3", "Highcharts")
    ),
    fluidRow(
      column(width=6, 
             showOutput("chart4", "Highcharts") 
        )
      )
    )
  )),
person Steven_    schedule 15.12.2015