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合作

gvisAnnotatedTimeLine函数图表上的标题

1 个答案: