增强 ggvis 轴

我正在寻找增强图表的最佳方法

library(dplyr)
library(ggvis)

df <- data.frame(Year=c(1954:2013), Count=rep(as.integer(c(1,3,4,2)),15))

df %>%
ggvis(~Year,~Count)

我想只显示 y 轴上的整数并删除 x 轴上的千逗号

我已经通过这个 hack 将这两个字段强制转换为因子

df %>%
 ggvis(~as.factor(Year),~as.factor(Count)) %>% 
 layer_points() %>%
 add_axis("y", title="Count") %>%
 add_axis("x", title="Year") %>%
 scale_ordinal("y", reverse=TRUE)

但现在我显示的是每年，而不是之前显示的更合适的 5 年值 修改标签属性的帮助也有限

非常感谢帮助

这可以使用以下方法完成format= in the add_axis随着subdivide争论 -

A subdivide = 0表示主要刻度之间没有次要刻度（定义于values). The format='####'使一切变成整数。

 df %>%
  ggvis(~Year,~Count) %>%
  layer_points() %>%
  add_axis("x", title="Year",  format="####") %>%
  add_axis("y", subdivide = 0, values = seq(1, 4, by = 1), format='####')

这使：