lc_scatter(dat(
    x = Sepal.Length,
    y = Petal.Length),
  with = iris)