在rCharts中调整轴标签NVD3图形

在rCharts中调整轴标签NVD3图形,r,nvd3.js,shiny,rcharts,R,Nvd3.js,Shiny,Rcharts,我正在使用rChartsnPlot()函数显示给定列联表类型数据的堆叠或分组条形图。“多条形图”显示在一个闪亮的应用程序中。下面给出了我在闪亮的应用程序中使用的一段代码 graphData <- reactive({ as.data.frame(table(eval(inputVar1()),eval(inputVar2()))) }) output$myChart <- renderChart({ p1 <- nPlot(Freq ~

我正在使用rCharts
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)
    })

graphData可以找到您问题的答案。基本思想是将选项
reduceXTicks
设置为FALSE,并错开标签

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

我认为这会减少手动插入代码的次数
n1$setTemplate(afterScript='svg text{font-size:9px;}')
<style>
svg text {font-size: 9px;}
</style>