Mejora de ejes ggvis

Estoy buscando la mejor manera de mejorar un gráfico

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)

Me gustaría mostrar solo números enteros en el eje y y eliminar la coma de mil en el eje x

He forzado ambos campos a factores con este truco

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)

pero ahora estoy mostrando todos los años, en lugar de los valores de 5 años más apropiados que se muestran antes, y modificar las propiedades de la etiqueta solo ayuda mucho

Ayuda muy apreciada

Respuestas a la pregunta(1)

Su respuesta a la pregunta