向GGvis对象R添加日期工具提示

我想在带有日期轴（x轴）的绘图中添加包含当前日期的工具提示，当前工具提示显示日期的数值，而不是日期格式

数据：

> dput(for_plot)
structure(list(ext_install_date = structure(c(16638, 16660, 16700, 
16710, 16712, 16729, 16730, 16736, 16752, 16768, 16717, 16755, 
16756, 16757, 16758, 16662, 16750, 16769, 16785, 16665, 16699, 
16632, 16682, 16683, 16684, 16698, 16634, 16679, 16720, 16754, 
16701, 16718, 16685, 16687, 16774, 16775, 16647, 16680, 16596, 
16630, 16721, 16725, 16703, 16706, 16723, 16726, 16650, 16651, 
16686, 16707, 16771, 16722, 16739, 16760, 16794, 16724, 16742, 
16777, 16648, 16653, 16670, 16744, 16676, 16636, 16671, 16654, 
16740, 16746, 16763, 16642, 16728, 16733, 16743, 16765, 16692, 
16689, 16709, 16711, 16735, 16639, 16695, 16780, 16784, 16640, 
16644, 16645, 16731, 16643, 16714, 16659, 16753, 16786, 16657, 
16737, 16663, 16749, 16702, 16719, 16770, 16751, 16776, 16681, 
16631, 16789, 16674, 16727, 16772, 16762, 16795, 16778, 16649, 
16672, 16766, 16655, 16741, 16764, 16693, 16747, 16781, 16732, 
16715, 16803, 16787, 16658, 16696, 16664, 16646, 16626, 16629, 
16790, 16773, 16652, 16796, 16667, 16673, 16759, 16656, 16748, 
16637, 16708, 16691, 16641, 16799, 16697, 16782, 16688, 16716, 
16804, 16788, 16627, 16633, 16791, 16797, 16668, 16800, 16783, 
16734, 16677, 16666, 16704, 16628, 16792, 16798, 16669, 16675, 
16761, 16767, 16678, 16661, 16738, 16635, 16793, 16745, 16694, 
16779, 16801, 16802, 16590, 16591, 16593, 16617, 16618, 16619, 
16589, 16592, 16608, 16610, 16611, 16624, 16623, 16595, 16713, 
16594, 16615, 16609, 16601, 16616, 16597, 16602, 16598, 16599, 
16605, 16600, 16620, 16606, 16622, 16588, 16603, 16604, 16607, 
16705, 16625, 16690, NA, 16613, 16612, 16621, 16587, 16614), class = "Date"), 
    sum = c(42133989L, 55439830L, 12474088L, 16782989L, 12498558L, 
    23097594L, 18694459L, 18613591L, 17164639L, 10998479L, 17434372L, 
    16134588L, 15765093L, 14780377L, 12238314L, 60259367L, 14299153L, 
    9228893L, 7181921L, 57044570L, 12671147L, 34528083L, 28685034L, 
    27538625L, 23861138L, 12939897L, 34804466L, 27256411L, 15470425L, 
    17683150L, 13919150L, 17683908L, 24785274L, 17297336L, 10883551L, 
    10765214L, 52309168L, 32311372L, 33612420L, 30994837L, 17528116L, 
    17979427L, 12904065L, 14452388L, 16659048L, 24373216L, 50197552L, 
    64194782L, 18635738L, 12370060L, 10714545L, 17080052L, 17320119L, 
    11792389L, 4250804L, 17337770L, 16257833L, 10389087L, 55407448L, 
    60149494L, 52791093L, 16748038L, 26324948L, 35491474L, 39187635L, 
    58805623L, 17361957L, 15002820L, 11834933L, 42022359L, 18834611L, 
    18499567L, 15771667L, 12734880L, 9901353L, 11215141L, 12242264L, 
    13603119L, 17919976L, 41100805L, 14435765L, 9727462L, 7604216L, 
    41830337L, 48193262L, 53128495L, 19248325L, 43074450L, 11930683L, 
    57259190L, 17360447L, 6925452L, 49781307L, 17483336L, 60223307L, 
    14877194L, 11216973L, 17906140L, 11152617L, 15247289L, 9919111L, 
    30596442L, 31624492L, 6494032L, 29419861L, 22205115L, 11612651L, 
    12506364L, 3977433L, 9251065L, 52886830L, 30459500L, 10314486L, 
    62828525L, 16266340L, 11414242L, 11315183L, 14865891L, 9219453L, 
    19531171L, 12390920L, 554893L, 6871604L, 56267484L, 13478614L, 
    59179677L, 56843397L, 33077108L, 29693238L, 5709800L, 10984800L, 
    62188950L, 3424377L, 55865206L, 33250188L, 11883725L, 61208251L, 
    14620505L, 33824988L, 9605466L, 10086150L, 43150201L, 2434175L, 
    13636535L, 9149052L, 12859396L, 15342563L, 299795L, 6557079L, 
    29079786L, 35154155L, 5720813L, 3213738L, 54942898L, 2011266L, 
    7788028L, 17631115L, 26168243L, 55355445L, 12363848L, 32406026L, 
    5181923L, 3045645L, 55879245L, 27803689L, 12997556L, 9993556L, 
    24094397L, 61278488L, 16146261L, 30860019L, 4851695L, 16059845L, 
    9734641L, 9682186L, 1434076L, 787507L, 33627937L, 35299118L, 
    31196723L, 23152630L, 18430364L, 16404624L, 21956375L, 31145208L, 
    29812678L, 28715201L, 31587264L, 18888020L, 14560381L, 28866133L, 
    11402958L, 28100484L, 21889495L, 33006788L, 32671209L, 22527130L, 
    36680524L, 30021920L, 35047621L, 33187732L, 30610149L, 34511947L, 
    21200181L, 31763855L, 16891242L, 28242299L, 31096620L, 35093501L, 
    28600363L, 14257733L, 32070016L, 10522891L, 785L, 17111781L, 
    25138826L, 21459015L, 28940910L, 21906624L)), row.names = c(NA, 
-219L), class = c("data.table", "data.frame"), .Names = c("ext_install_date", 
"sum"), .internal.selfref = <pointer: 0x0000000001290788>)

---

谢谢，或者有什么帮助

不幸的是，ggvis中的工具提示没有将支撑层线的值作为单独的数据点处理。与您的示例一样，它只显示第一个值。第二个问题是工具提示显示日期对象的方式

我们可以用上述相同的方法解决这两个问题。请注意，工具提示仍然会错误地显示数据点之间的第一个日期

for_plot %>% ggvis(x = ~ext_install_date, y = ~sum) %>% 
 layer_points(opacity:=0) %>%
 add_tooltip( function(data){(as.Date(data$ext_install_date/86400000,    
 origin='1970-01-01'))}) %>%
 layer_lines()

---

<>我相信这个包不会遇到同样的问题，所以你可能会考虑将来使用它来做类似的图表。我在X轴上有一列日期格式，我想在悬停时显示它，但add_tooltip（）的日期输入会自动转换

根据mtoto的代码，我终于弄明白了如何在ggvis工具提示中显示X轴的日期。 以下是我为那些与我有相同案例的人提供的示例：

dat<- as.data.frame(matrix(rnorm(100),ncol=5))
dat$Date=seq(as.Date("2018-01-01"), as.Date("2018-01-20"),by='days')

myhover<- function(x){
  if(is.null(x)) return(NULL)
  paste('Date: ',format(as.Date(x$Date/86400000,origin='1970-01-01'),'%Y-%m-%d'),br(),'Data:',format(x$V1))              
}

dat %>% ggvis(~Date,~V1) %>% layer_points() %>% add_tooltip(myhover,'hover')

dat%layer\u points（）%%>%add\u工具提示（myhover，'hover'）

谢谢，确实“数据点之间的第一个日期”是一个主要问题，但我想这是一个好问题：）您总是将其更改为散点图，以通过删除layer_lines（）和不透明参数来规避此“缺陷”，但这对于绘制时间线并不理想。

dat<- as.data.frame(matrix(rnorm(100),ncol=5))
dat$Date=seq(as.Date("2018-01-01"), as.Date("2018-01-20"),by='days')

myhover<- function(x){
  if(is.null(x)) return(NULL)
  paste('Date: ',format(as.Date(x$Date/86400000,origin='1970-01-01'),'%Y-%m-%d'),br(),'Data:',format(x$V1))              
}

dat %>% ggvis(~Date,~V1) %>% layer_points() %>% add_tooltip(myhover,'hover')