2017-04-26 62 views
1

我的目標是將頁面劃分爲四個象限,每個象限都有一組獨立的情節。縮放使得模塊變得模糊 - 光滑的流水線

我準備好了一個象限。它佔據整個窗口時看起來很好。我希望在一個頁面上有4個這樣的窗格。正如您從屏幕截圖(兩個上象限)中可以看到的那樣,將已經準備好的窗格插入左上象限會導致一些非常模糊的事情。我怎樣才能讓圖表不變得模糊?

enter image description here

我用fluidrow,也許是這不是一個好主意?

ui = fluidPage(

    fluidRow(
    column(6, 

      fluidRow(
      column(8, plotOutput("barChart1", height = 250)) 
      , column(4, plotOutput("compteur1", height = 250)) 
      ) 

      ,fluidRow(
      column(3, 
        dateRangeInput(
         "dateRange2", 
         label = "Choose the window:", 
         start = "2016-09-01" 
        ) 
      ) 
      , column(3, 
         selectInput("security", "Index:", selected = worldindices[1] 
            , list(`World Indices` = worldindices, 
             `Regional Indices` = regionIndices, 
             `Country Indices` = countryIndices) 
        ) 
      ) 
      , column(3, 
         selectInput("metric", "Metric:", selected = plainMetrics[1] 
            , list(plainMetrics 
             , `Valuation Multiples` = valMul 
             , `Fundamentals` = corpFund) 
        ) 
      )  
      ) 
      , plotOutput("chartAggr", height = 250)  


    ) 
    , column(6, style = "background-color:yellow;", div(style = "height:500px;") 
    ) 
) 

) 

親切的問候

編輯 - 低於以下的答案:

試圖給出一個較高的值,在服務器端的res參數renderPlot似乎並沒有工作。我給它例如值128,並得到以下結果:該服務器通過在res參數

enter image description here

回答

1

在你renderPlot()函數...它設置爲比默認72高像素/英寸。

renderPlot(表達式,寬度= 「自動」,高度= 「自動」,RES = 72,...,ENV = parent.frame(),引用= FALSE,execOnResize = FALSE,outputArgs =列表())

請注意,您可能需要調整繪圖的大小並將滾動條添加到容器以適應較大的高分辨率圖像。

## Something like this on the server 
output$barChart1 <- renderPlot(PLOT(), width = 1000, height = 1000, res = 128) 

## Something like this on UI 
div(style = 'overflow-x: scroll', 
        plotOutput("barChart1", inline = TRUE)) 
       ) 
+0

感謝這個答案,我試過了,但結果卻是讓圖形更大的...但它並沒有使其不太模糊恐怕:((見上文)。 – hartmut

+0

如果你看一下圖片# 2左上方,現在是高分辨率,但是擠入一個小容器,這看起來很混亂,但不太模糊。現在你可以在renderPlot()中使用width和height參數,確保添加一個滾動條用戶可以在通過小窗口顯示的大圖中圍繞高分辨率圖像移動。 –