ggplot中stat_function的ggvis等价物是什么？

Question

我正在寻找绘制使用ggvis的函数 - 有没有类似于ggplot2中的stat_function的东西？

例如：

ggplot(data.frame(x=c(0,1)), aes(x=x)) + 
    stat_function(fun=dbeta, args=list(shape1=2, shape2=10)) 

Answer 1

我还没有找到一个等效ggvis版本的ggplot2::stat_function()。但是，我已使用以下解决方法，使用ggvis::add_data()和ggvis::layer_paths()。

例如：下面将添加一个抛物线到ggivs散点图：

mtcars %>% 
    ggvis() %>% 
    layer_points(x = ~ wt, y = ~ mpg) %>% 
    add_data(data = data.frame(x = mtcars$wt, 
          y = 49.931 - 13.380 * mtcars$wt + 1.171 * mtcars$wt^2)[order(mtcars$wt), ]) %>% 
    layer_paths(x = ~ x, y = ~ y, stroke := "red")