2013-07-26 12 views
7

rCharts nPlot()関数を使用して、コンティンジェンシーテーブルタイプのデータが与えられた積み重ねられた、またはグループ化された棒グラフを表示しています。 "multiBarChart"は光沢のあるアプリケーションで表示されます。光沢のあるアプリケーションで使用するコードを以下に示します。軸ラベルの調整rCharts内のNVD3グラフ

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) 
    }) 

私のデータセットでは、1つのカテゴリ変数は16レベルです。この変数を "multiBarChart"のx軸に沿って表示すると、すべてのラベルが表示されるわけではありません。 nPlotに軸ラベルのフォントサイズを調整する方法はありますか?私はcex.axis=0.5cex.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) 

ラベルが大きい場合は、CSSを使用してテキストのサイズを制御できます。今のところ手動でHTMLに挿入する必要がありますが、rChartsのバージョンでは、Rコンソールから任意のHTML/CSS/JSをチャートに簡単に追加できます。

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

ありがとうRamnath !! btw ...ラブrCharts! – Chris

+0

うまくいってうれしい! – Ramnath

+1

これは、少し手作業でコードを挿入すると思います。 '' n1 $ setTemplate(afterScript = '') '' – PatrickT

関連する問題