倍数注釈（data.frame付き）R

Question

とdygraphsでありdygraphsのためのRパッケージがあり、注釈を追加することが可能である：https://rstudio.github.io/dygraphs/gallery-annotations.html

dygraph(presidents, main = "Quarterly Presidential Approval Ratings") %>% 
    dyAxis("y", valueRange = c(0, 100)) %>% 
    dyAnnotation("1950-7-1", text = "A", tooltip = "Korea") %>% 
    dyAnnotation("1965-1-1", text = "B", tooltip = "Vietnam") 

私はそれが可能である方法をしたいと思いますすべてのアノテーションを整理し、単一のdyAnnotationオプションを追加するためにdata.frameを作成します。私は試しました：

dygraph(presidents, main = "Quarterly Presidential Approval Ratings") %>% 
    dyAxis("y", valueRange = c(0, 100)) %>% 
    dyAnnotation(c("1950-7-1","1965-1-1"), text = c("A","B"), tooltip = c("Korea","Vietnam")) 

これは動作しません。

Answer 1

あなたはこのような何か行うことができます：注釈のない基本的なdygraphを作成し、それをオブジェクトとして保存

ステップ1を（実際には必須ではありませんが、ステップ2で短い文字列作成されます）：

dygraph(presidents, main = "Quarterly Presidential Approval Ratings") %>% 
    dyAxis("y", valueRange = c(0, 100)) -> graph 

ステップを2.アノテーションにdatesとtextsの2つのベクトル（も3つ作成する）を作成します。あなたがしたい場合

eval(parse(text = my_code)) 

：次にstringの下に作成します。

"graph %>% dyAnnotation('1950-7-1',text='a') %>% dyAnnotation('1965-1-1',text='bb') %>% dyAnnotation('1972-1-1',text='cc')" 

ステップ3. evalとparse機能：

dates<-c("1950-7-1","1965-1-1","1972-1-1") 
texts<-c("a","bb","cc") 

my_code<-paste("graph %>%", 
paste0("dyAnnotation('",dates,"',text='",texts,"')",collapse = " %>% ")) 

をあなたはこのような何かを取得しますオブジェクトを作成するステップ2でstringをこのグラフに追加してください。

my_code<-paste("graph2<- graph %>%", 
    paste0("dyAnnotation('",dates,"',text='",texts,"')",collapse = " %>% "))