r - RCharts scatterChart の拡張機能

Question

RChart を光沢のあるアプリに埋め込もうとしています。このnPlot関数を使用して、type=scatterChartNVD3 スタイルのプロットを作成しています。以下の NVD3 Web サイトの例には、RCharts の光沢のあるアプリで動作させることに関心のある 2 つの機能があります。

http://nvd3.org/ghpages/scatter.html

1. 上記の例の x 軸と y 軸に沿って「じゅうたん」が含まれているように見え、x と y の点がそれぞれのサポートに沿って最も頻繁に発生する場所をわずかに示しています。
2. さらに、チャートをクリックして特定のポイントにカーソルを合わせると、対応するポイントの (x,y) 位置を示す垂直線と水平線が表示されます。

これら2つの機能を実現するために、以下のコードを拡張する方法を知っている人はいますか? Shiny server.r および ui.r スクリプトは以下に含まれています。

## server.r
library(rCharts)
library(shiny)

x <- rnorm(100)
y <- rnorm(100)
dat <- as.data.frame(cbind(x,y))

shinyServer(function(input, output) {

output$myChart <- renderChart({

p1 <- nPlot(y ~ x, data = dat, type = "scatterChart")

p1$addParams(dom = 'myChart')

p1$params$height=400
p1$params$width=650

return(p1)
})

})

## ui.R
library(rCharts)
library(shiny)

shinyUI(pageWithSidebar(
headerPanel("rCharts: Interactive Charts from R using NVD3.js"),

sidebarPanel(

wellPanel(
    helpText(   "Look at the pretty graph"
    )
    ),

wellPanel(
    helpText(   "Look at the pretty graph"
    )
    ),

wellPanel(
    helpText(   "Look at the pretty graph"
    )
    )

),


mainPanel(
div(class='wrapper',
tags$style(".Nvd3{ height: 400px;}"),
showOutput("myChart","Nvd3")
)

)
))

あなたが提供できるアドバイスを事前に感謝します。