# NOT RUN {
gf_line()
if (require(mosaicData)) {
  gf_point(age ~ sex, alpha = 0.25, data = HELPrct)
  gf_point(births ~ date, color = ~wday, data = Births78)
  # lines make the exceptions stand out more prominently
  gf_line(births ~ date, color = ~wday, data = Births78)
  }
# }
Run the code above in your browser using DataLab