r图表。在散点图中添加其他标签

Question

我在 ?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”以及值。任何帮助将不胜感激，因为我明天有一个演示文稿。 谢谢。

Answer 1

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

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

注意。您需要 #! 和 !# 标签来向 rCharts 指示该值是 JS 文字。这将确保它在将有效负载转换为 json 时将其作为 JS 文字而不是字符串传递。