增强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

这可以使用add_axis中的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='####')

这意味着：

​

​