增强ggvis轴

Question

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

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轴上删除千位逗号

我已将这两个字段强制转换为此黑客攻击的因素

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年值 并修改标签属性只能帮助这么多

非常感谢

Answer 1

可以使用format=中的add_axis以及subdivide参数来完成此操作 -

subdivide = 0表示主要刻度之间没有小的刻度（在values中定义）。 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='####')

给出：