R中的散点图与ggvis:如何绘制具有不同形状标记和相应拟合回归线的多个组

Question

要用ggvis包装在R中绘制以下内容,

代码是

mtcars %>% 
  ggvis(~wt, ~mpg, fill = ~factor(cyl)) %>% 
  layer_points() %>% 
  group_by(cyl) %>% 
  layer_model_predictions(model = "lm")

如果我在上面更改了fillto shape,则会出现错误:

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

为什么？如何达到预期的效果？

Answer 1

您必须shape在layer_points()通话中指定:

mtcars %>% 
  transform(cyl = factor(cyl)) %>%
  ggvis(~wt, ~mpg) %>% 
  layer_points(shape = ~cyl, fill = ~cyl) %>% 
  group_by(cyl) %>% 
  layer_model_predictions(model = "lm", formula=mpg~wt)

(注意我transform()用来转换cyl成一个因子.这意味着你不必cyl在ggvis()调用中转换成一个因子,并且绘图键有点整洁.)