使用ggvis（layer_点在layer_盒形图上）对齐多个图形

我试图在箱线图上分层点。点和箱线图都来自同一个数据源：db_gems_expense。唯一的区别是它们的过滤方式（箱线图的日期范围和点的一天）。最终目标是向图形中添加交互性，以便我能够选择一个日期，并通过查看点在特定方框图上的位置，立即查看该天与其他日期的比较情况

问题是这些点当前与长方体图不对齐

你可以在这里看到：

代码如下：

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")

如何使这些点对齐

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"))

感谢aosmith，github上的解决方案正是我所寻找的。如果值是分类的，而不是数字的，除非您指定上面的最后一行代码，否则ggvis会将层_点对齐到层_方框图的左侧

---

感谢aosmith，github上的解决方案正是我所寻找的。如果值是分类的，而不是数字的，那么ggvis会将layer_点与layer_箱线图的左侧对齐，除非您指定上面的最后一行代码。

您能添加一些示例数据以使此问题重现吗？请参阅，以了解如何创建一个最小的可复制示例。您在ggvis github存储库上看到了吗？你需要的可能就是解决这个问题的方法。你能添加一些示例数据来重现这个问题吗？请参阅，以了解如何创建一个最小的可复制示例。您在ggvis github存储库上看到了吗？你需要的可能就是解决这个问题的方法。