web-dev-qa-db-ja.com

光沢のあるチャートスペースの割り当て

以下の例では、4つのグループを4つのペインに一緒にプロットしています。しかし、問題は、それらが単一のグリッドに存在しているように見えることです。光沢のある出力でチャートのサイズを制御することは可能ですか？ （つまり、アプリの実行時に右側にスクロールバーがないように）高さと幅を制御しようとしましたが、グリッド自体の画像を制御しているようです...何かアイデアはありますか？

ありがとう

shinyUI(pageWithSidebar(
  headerPanel("Example"),
  sidebarPanel(   

  ),

  mainPanel(
    tabsetPanel(tabPanel("Main",plotOutput("temp"))

    )#tabsetPanel  

  )#mainPane;

))



shinyServer(function(input, output) {

  output$temp <-renderPlot({
     par(mfrow=c(2,2))
     plot(1:10)
     plot(rnorm(10))
     plot(rnorm(10))
     plot(rnorm(10))
  }, height = 1000, width = 1000)


})
rshiny
23
user1234440

plotOutputには高さと幅のパラメータもあります。幅のデフォルトは"100%"（コンテナで使用可能な幅の100％を意味します）で、高さのデフォルトは"400px"（400ピクセル）です。これらの値を試して、"auto"または"1000px"に変更してみてください。

renderPlotのheightおよびwidthパラメータは、生成される画像ファイルのサイズをピクセル単位で制御しますが、Webページにレンダリングされるサイズには直接影響しません。デフォルト値は両方とも"auto"です。これは、対応するplotOutputの幅/高さを検出して使用することを意味します。したがって、幅と高さをplotOutputに設定すると、通常、幅と高さをrenderPlotに設定する必要はまったくありません。

shinyUI(pageWithSidebar(
  headerPanel("Example"),
  sidebarPanel(   

  ),

  mainPanel(
    tabsetPanel(tabPanel("Main",plotOutput("temp", height = 1000, width = 1000))

    )#tabsetPanel  

  )#mainPane;

))



shinyServer(function(input, output) {

  output$temp <-renderPlot({
     par(mfrow=c(2,2))
     plot(1:10)
     plot(rnorm(10))
     plot(rnorm(10))
     plot(rnorm(10))
  })


})
32
Joe Cheng