I'm trying to layer points over a boxplot. Both the points and the boxplot come from the same data source: db_gems_spend. The only difference is how they are filtered (range of dates for boxplot and a single day for points). The end goal is to add interactivity to the graph so that I will be able to select a date and immediately see how the day compares to other days by seeing where the point lands on a particular box plot.
The problem is that the points do not currently align with the box plots.
This is the code:
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")
How can I get these points to align?