使用ggvis (layer_points over layer_boxplots)对齐多个图形

Question

我在试着把点加在一个方块上。点和盒图都来自同一个数据源: db_gems_spend。唯一的区别是它们是如何被过滤的(方格图的日期范围和点数的一天)。最终目标是向图中添加交互性，这样我就能够选择一个日期，并通过查看点落在一个特定的方框图上的位置，立即查看该日期与其他日子的比较情况。

问题是，这些点目前与方框图不一致。

你可以在这里看到：

​

这是代码：

db_gems_spend %>%
  filter(dayofweek == "Fri") %>% # add interactivity (automate dayofweek selection)
  filter(date >= "2015-08-01") %>% # add interactivity
  ggvis(~action_type, ~count) %>%
  layer_boxplots() %>%
  add_axis("x", title = "action_type", title_offset = 50, 
           properties = axis_props(labels = list(angle = 20, align = "left", fontSize = 10))) %>%
  add_axis("y", title = "count", title_offset = 60) %>%
  add_data(db_gems_spend) %>%
  filter(date == "2015-11-04") %>% # add interactivity
  layer_points(x = ~action_type, y = ~count, fill :=  "red")

如何使这些点对齐？

Answer 1

db_gems_spend %>%
  ggvis(~action_type, ~(count/total_spend)) %>%
  layer_boxplots() %>%
  add_data(db_gems_spend) %>%
  layer_points(x = ~action_type, y = ~count, fill := "red", 
    prop("x", ~action_type, scale = "xcenter"))

谢谢史密斯，github上的解决方案就是我想要的。如果layer_points的值是绝对的，而不是数字的，那么ggvis将对齐layer_boxplots的左边，除非您从上面指定最后一行代码。