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

我已经通过这个 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 年值，修改标签属性只会有很大帮助

非常感谢帮助

Answer 1

这可以使用with参数format=中的 the来完成 -add_axissubdivide

Asubdivide = 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='####')

这使：