如何在使用工具提示时更改ggvis的图例位置？

Question

This thread显示如何更改ggvis对象中图例的位置。但是，如果同时添加工具提示，则图例将消失。

library(ggvis)
data(mtcars)

mtcars %>% 
    ggvis(x = ~wt, y = ~mpg, fill = ~cyl) %>%
    layer_points() %>%
    add_legend(
        "fill", 
        properties = legend_props(
            legend = list(
                x = scaled_value("x", 3.25), 
                y = scaled_value("y", 40)
            )
        )
    ) %>%
    add_tooltip(function(df) df$wt)

知道如何防止这种情况吗？

Answer 1

这是一个知道issue，您可以尝试在代码末尾添加以下内容作为解决方法：

... %>% set_options(duration = 0)