r-gvisAnnotatedTimeLine函数图表上的标题

Question

我使用的是googleVis包中的gvisAnnotatedTimeLine函数，我想知道是否有办法在输出中添加Title（而不是注释），因为我在函数帮助文件中看不到它的参数。

提前感谢

Answer 1

这里有一个函数，应该包含图表的标题。输入是HTML字符串或shiny.tag。

addGvisATLTitle <- function(gvisATL,title)  {
if (!all(class(gvisATL) == c("gvis","list"))) {
  stop('ERROR in addGvisATLTitle: Incorrect type, expect gvisAnnotatedTimeLine.')
}
if (class(title) == "character") {
  gvisATL$html$chart['divChart'] <- paste(title,gvisATL$html$chart['divChart'],sep="")
} else if (class(title) == "shiny.tag") {
  gvisATL$html$chart['divChart'] <- paste(as.character(title)[1],gvisATL$html$chart['divChart'],sep="")
} else {
  stop('ERROR in addGvisATLTitle: Unknown title type.')
}
return(gvisATL)
}

你可以用测试一下

 a <- data.frame(date=Sys.Date(),val=20)
 b <- gvisAnnotatedTimeLine(a)
 plot(addTitle(b,"<h1> My chart </h1>"))
 plot(addTitle(b,h1("My chart")))

• 我已经更新了它以使用gvisMerge