0

我在 ?nPlot() 中添加标签时遇到问题。例如：

```{r nvd3plot, echo=FALSE,results='asis'}
set.seed(9485)
dat<- data.frame(Gene_Name= LETTERS[1:15], Value1= sample(-8:20,15,replace=TRUE),Value2=sample(-6:10,15,replace=TRUE),stringsAsFactors=FALSE) 
library(rCharts)
r1<- nPlot(Value1~Value2,data=dat, type="scatterChart")
r1$show('inline')
```

现在，它显示每个点的值。我还想包括“Gene_Name”以及值。任何帮助将不胜感激，因为我明天有一个演示文稿。谢谢。

4

1 回答 1

3

这是使用 rCharts 的方法。关键是使用该chart方法并将 javascript 函数传递给tooltipContent. 它接受四个参数，其中我们将使用e提供对实际数据点的访问的参数。因此e.point.Gene_Name访问Gene_Name每个点。您可以在rcharts 查看器上查看此图表的演示

dat<- data.frame(
  Gene_Name= LETTERS[1:15], 
  Value1 = sample(-8:20, 15, replace = TRUE),
  Value2 = sample(-6:10, 15, replace = TRUE)
)

library(rCharts)
r1<- nPlot(Value1~Value2,data=dat, type="scatterChart")
r1$chart(tooltipContent = "#! function(key, x, y, e){
  return '<b>Gene Name</b>: ' + e.point.Gene_Name
} !#")
r1

笔记。您需要#!and!#标记向 rCharts 指示该值是 JS 文字。这将确保在将有效负载转换为json.

于 2013-09-29T17:00:44.713 回答