चमकदार चार्ट स्पेस आवंटन

Question

नीचे दिए गए उदाहरण में 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) 


}) 

Answer 1

plotOutput ऊंचाई और चौड़ाई पैरामीटर के रूप में अच्छी तरह से है, "100%" (जिसका अर्थ है कि इसके कंटेनर में उपलब्ध चौड़ाई का 100%) चौड़ाई डिफ़ॉल्ट है और ऊंचाई "400px" (400 पिक्सेल) पर डिफ़ॉल्ट है। इन मानों के साथ प्रयोग करने का प्रयास करें, उन्हें "auto" या "1000px" पर बदल दें।

renderPlot की ऊंचाई और चौड़ाई पैरामीटर पिक्सेल में जेनरेट की गई छवि फ़ाइल के आकार को नियंत्रित करते हैं, लेकिन वेब पेज में प्रस्तुत आकार को सीधे प्रभावित नहीं करते हैं। उनके डिफ़ॉल्ट मान "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)) 
    }) 


})