r - gvisAnnotatedTimeLine 函数图表上的标题

Question

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

提前致谢

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 一起使用