R 在一个绘图中同时使用图层_text（）和图层_points（）

我是ggvis的新手，有一个相当简单的问题。我想在散点图中显示数据点及其标签。单独的绘图很容易生成：

# Render as Points ...
mtcars %>% ggvis(~wt, ~mpg) %>% layer_points()
# or as labels of `wt`
mtcars %>% ggvis(~wt, ~mpg, text:=~wt) %>% layer_text()

但两者的结合并不奏效

mtcars %>% ggvis(~wt, ~mpg, text:=~wt) %>% layer_text() %>% layer_points()

我得到这个错误：

Error: Unknown properties: text.
Did you mean: stroke?

---

关于层的文档在这里没有帮助（，）。

我找到了一个使用的有效解决方案

正确的方法如下：

mtcars %>% ggvis(~wt, ~mpg) %>% layer_text(text:=~wt) %>% layer_points()