If you are using Shiny, I would recommend using its layout functions to layout your page and then place the charts where you desire. Here is a minimal example (you will have to set the widths of the charts correctly to avoid overlap)
library(shiny)
library(rCharts)
runApp(list(
ui = fluidPage(
title = 'Multiple rCharts',
fluidRow(
column(width = 5, chartOutput('chart1', 'polycharts')),
column(width = 6, offset = 1, chartOutput('chart2', 'nvd3'))
)
),
server = function(input, output){
output$chart1 <- renderChart2({
rPlot(mpg ~ wt, data = mtcars, type = 'point')
})
output$chart2 <- renderChart2({
nPlot(mpg ~ wt, data = mtcars, type = 'scatterChart')
})
}
))