всплывающая подсказка в R от gvisTimeline, googleVis - PullRequest
Новая
       16

всплывающая подсказка в R от gvisTimeline, googleVis

1 голос
/ 23 января 2020

Как мне показать подсказку по gvisTimeline в R, мой код: 

  library(googleVis)

 datTL <- data.frame(Position=c(rep("President", 3), rep("Vice", 3)),
                Name=c("Washington", "Adams", "Jefferson",
                       "Adams", "Jefferson", "Burr"),
                start=as.Date(x=rep(c("1789-03-29", "1797-02-03", 
                                      "1801-02-03"),2)),
                end=as.Date(x=rep(c("1797-02-03", "1801-02-03", 
                                    "1809-02-03"),2)),
                Position.html.tooltip=paste('<p><nobr>',  format(round(c(0.460, 5.100, 
  2.393,2.3,2.2,3.33), 2), nsmall = 2), 'm<sup>3</sup></nobr></p>'))

  Timeline <- gvisTimeline(datTL, 
                     rowlabel="Name",
                     barlabel="Position",
                     start="start", 
                     end="end",
                     options=list(tooltip="{isHtml:'true'}")   )
 plot(Timeline)

Подсказка не отображается.

1 Ответ

1 голос
/ 23 января 2020

Благодаря WhiteHat 

 datTL <- data.frame(
                Name=c("Washington", "Adams", "Jefferson",
                       "Adams", "Jefferson", "Burr"),
                Position=c(rep("President", 3), rep("Vice", 3)),
                Position.html.tooltip=paste('<p><nobr>',  format(round(c(0.460, 5.100, 
                                                                         2.393,2.3,2.2,3.33), 2), nsmall = 2), 'm<sup>3</sup></nobr></p>'),

                start=as.Date(x=rep(c("1789-03-29", "1797-02-03", 
                                      "1801-02-03"),2)),
                end=as.Date(x=rep(c("1797-02-03", "1801-02-03", 
                                    "1809-02-03"),2))
               )

  Timeline <- gvisTimeline(datTL, 
                     rowlabel="Name",
                     barlabel=c("Position","Position.html.tooltip" ),
                     start="start", 
                     end="end",
                     options=list(tooltip="{isHtml:'true'}") 
                                  )   
 plot(Timeline)

Исходя из моего опыта работы с R, порядок первой части не важен, нам нужно иметь Position. html .tooltip в кадре данных (т.е. datTL $ Положение. html .tooltip) и затем поместите его в усик, как показано выше во второй части

...