ggvis

Dataset: KIDSDATA

scatter <- ggvis(A115, x = ~n, y = ~PCEXP04)
layer_points(scatter)  ## Plot

## Alternatively
A115 %>%
  ggvis(x = ~n, y = ~PCEXP04) %>%  ## pipe rather than plus
  layer_points()

## Fill accordingly to dummy variable:  chronic
A115 %>%
  ggvis(~n, ~PCEXP04, fill = ~chronic) %>%  ## pipe rather than plus
  layer_points()