Histogram axes

Changes as axis range increases

# no values specified
 addhealth %>% ggvis(~age) %>% layer_histograms(width = 1)  %>%
   add_axis("x", title = "Age", title_offset="50") %>% 
   add_axis("y", title = "Count", title_offset="50")

#0 to 800
 addhealth %>% ggvis(~age) %>% layer_histograms(width = 1)  %>%
   add_axis("x", title = "Age", title_offset="50") %>% 
   add_axis("y", title = "Count", title_offset="50",  values = seq(0,800, by = 100))

#0 to 1000
 addhealth %>% ggvis(~age) %>% layer_histograms(width = 1)  %>%
   add_axis("x", title = "Age", title_offset="50") %>% 
   add_axis("y", title = "Count", title_offset="50",  values = seq(0,1000, by = 100))

 #0 to 1200
addhealth %>% ggvis(~age) %>% layer_histograms(width = 1)  %>%
   add_axis("x", title = "Age", title_offset="50") %>% 
   add_axis("y", title = "Count", title_offset="50",  values = seq(0,1200, by = 100))

 #0 to 1500
addhealth %>% ggvis(~age) %>% layer_histograms(width = 1)  %>%
   add_axis("x", title = "Age", title_offset="50") %>% 
   add_axis("y", title = "Count", title_offset="50",  values = seq(0,1500, by = 100))

#0 to 1900
 addhealth %>% ggvis(~grade) %>% layer_histograms(width = 1)  %>%
   add_axis("x", title = "Grade", title_offset="50") %>% 
   add_axis("y", title = "Count", title_offset="50",  values = seq(0, 1900, by = 100))