재배치로 인해 플롯이 흐려짐 - 반짝이는 물방울

Question

내 목표는 페이지를 네 개의 사분면으로 나눠서 각각 별도의 플롯으로 분리하는 것입니다.

나는 하나의 사분면을 준비했습니다. 전체 창을 차지하면 괜찮아 보입니다. 한 페이지에 4 개의 창을 표시하고 싶습니다. 스크린 샷 (두 개의 위 사분면)에서 볼 수 있듯이, 이미 왼쪽 위 사분면에 준비되어있는 창을 삽입하면 매우 흐릿한 결과가 발생합니다. 어떻게하면 그래프가 흐려지지 않게 할 수 있습니까?

나는 아마도 이것이 좋은 생각이 아니다, fluidrow를 사용? 작동하지 않는 서버 측 renderPlot의 res 매개 변수에 더 높은 가치를 제공하기 위해 노력

: 아래 파악하기 ANSWER -

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;") 
    ) 
) 

) 

종류는

편집을 간주한다. 나는 예를 들어 값 (128)을주고, 다음과 같은 결과를 얻을 : ... 입술 인수에서 서버 패스에 당신의 renderPlot에서

Answer 1

() 함수를 기본 (72)보다 높은 무언가로 설정 픽셀/인치.

renderPlot (expr에, 폭 = "자동", 높이 = "자동"입술 = 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)) 
       )