2013-07-26 3 views
7

में अक्ष लेबलों को एनवीडी 3 ग्राफ समायोजित करना मैं आरसीएचटी nPlot() फ़ंक्शन का उपयोग कर रहा हूं ताकि स्टैक्ड या समूहीकृत बार चार्ट को आकस्मिक तालिका प्रकार डेटा दिया जा सके। चमकदार एप्लिकेशन में "मल्टीबार चार्ट" प्रदर्शित होता है। मेरे चमकीले आवेदन में उपयोग किए जाने वाले कोड का एक टुकड़ा नीचे दिया गया है।आरसीएचटीएस

graphData <- reactive({ 
    as.data.frame(table(eval(inputVar1()),eval(inputVar2()))) 
    }) 

    output$myChart <- renderChart({ 
    p1 <- nPlot(Freq ~ Var1, group="Var2", data=graphData(), type="multiBarChart") 
    p1$addParams(dom='myChart') 
    return(p1) 
    }) 

मेरी डाटासेट में, एक स्पष्ट चर 16 स्तर है। जब यह चर "मल्टीबार्ट चार्ट" के एक्स-अक्ष के साथ प्रदर्शित होता है, तो सभी लेबल दिखाए जाते हैं। धुरी लेबल के फ़ॉन्ट आकार को समायोजित करने के लिए nPlot में कोई तरीका है? मैं cex.axis=0.5 या cex.lab=0.5 या कुछ ऐसा कुछ सोच रहा हूं।

वैकल्पिक रूप से, las= की तरह एक पैरामीटर जो मुझे अक्ष लेबल 90 अंश घुमाने और शायद एक क्लीनर भूखंड जहां स्पष्ट चर के सभी लेबल साजिश के x- अक्ष के साथ प्रदर्शित कर रहे हैं करने की अनुमति होगी है।

समूह द्वारा प्रदान की जाने वाली कोई भी सलाह बहुत सराहना की जाती है !!

उत्तर

11

आपके प्रश्न का उत्तर here पाया जा सकता है। मूल विचार है कि reduceXTicks विकल्प को FALSE पर सेट करें और लेबल को भी दबाएं।

n1 <- nPlot(value ~ region, data = dat, group = 'variable', 
    type = 'multiBarChart') 
n1$chart(reduceXTicks = FALSE) 
n1$xAxis(staggerLabels = TRUE) 

लेबल बड़े हैं, तो आप सीएसएस का उपयोग कर पाठ का आकार नियंत्रित कर सकते हैं। अभी के लिए, आपको इसे अपने एचटीएमएल में मैन्युअल रूप से डालना होगा, लेकिन rCharts के भविष्य के संस्करण में, मैं आर कंसोल से सीधे अपने चार्ट में मनमाने ढंग से एचटीएमएल/सीएसएस/जेएस जोड़ना आसान कर दूंगा।

<style> 
svg text {font-size: 9px;} 
</style> 
+0

पूरी तरह से काम किया ... धन्यवाद रामनाथ !! बीटीडब्ल्यू ... प्यार आरएचएचटीएस !! – Chris

+0

खुशी है कि यह काम किया! – Ramnath

+1

मुझे लगता है कि इस कोड को थोड़ा कम मैन्युअल n1 $ setTemplate सम्मिलित हैं '' (afterScript = '') '' – PatrickT