gvisAnnotatedTimeLine函數圖上的標題

我使用googleVis軟件包中的gvisAnnotatedTimeLine函數，並想知道是否有在標題（而不是註釋）中添加輸出的方法，因爲我看不到參數在函數幫助文件中。gvisAnnotatedTimeLine函數圖上的標題

預先感謝

2012-08-05 h.l.m

工作在我使用HTML和CSS從googlevis標籤地塊的情況下很多測試出來。 – Seth 2012-08-06 01:53:26

對不起，我不熟悉HTML或CSS，你能給我一個'R'中代碼的快速示例來做到這一點，因爲我不知道我會在哪裏開始放入HTML代碼所以標題出現......謝謝......此外，如果您已經使用'gvisMerge'將一堆'gvisAnnotatedTimeLine'圖表放在一起，並且您希望每個標題都有標題，那麼這項工作會如何？ – 2012-08-06 02:01:04

下面是應包括一個標題的圖表的功能。輸入是一個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

來源

2013-06-06 17:50:54

gvisAnnotatedTimeLine函數圖上的標題

回答

相關問題