R/geom-point.R

In paleolimbot/ggr6: An Implementaation of the Grammar of Graphics in R6

GeomPoint <- R6Class(
  "GeomPoint", inherit = Geom,

  public = list(
    aesthetics = function(renderer) {
      renderer$aesthetics("points")
    },

    default_aesthetic_values = function(renderer) {
      renderer$default_aesthetics("points")
    },

    render_panel = function(data, panel, renderer) {
      data <- panel$transform(data)
      cols <- intersect(self$aesthetics(renderer), colnames(data))
      exec(renderer$render_points, !!!data[cols])
    }
  )
)