2

我正在尝试将 RChart 嵌入到闪亮的应用程序中。我专门使用该nPlot函数来创建type=scatterChartNVD3 样式图。在下面的 NVD3 网站示例中，我有兴趣在我的 RCharts 闪亮应用程序中使用两个功能：

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

  1. 似乎沿着上述示例的 x 轴和 y 轴包含了一个“地毯”，边缘地展示了 x 和 y 点沿着它们各自的支撑最常出现的位置。
  2. 此外，当单击图表并将鼠标悬停在特定点上时，会出现一条垂直和水平线，指出相应点的 (x,y) 位置。

有谁知道如何在下面扩展我的代码来实现这两个功能。闪亮的 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")
)

)
))

提前感谢您提供的任何建议。

4

1 回答 1

6

这可以使用以下代码来实现：

p1$chart(
  showDistX = TRUE,
  showDistY = TRUE
)

return(p1)

另外，就像一个注释一样，在直接操作作品时，指定和以这种方式p1$params可能更安全：heightwidth

p1 <- nPlot(
  y ~ x,
  data = dat,
  type = "scatterChart",
  height = 400,
  width = 650
)
于 2013-09-30T02:41:27.860 回答