R/geom_sf_point.R

In yikeshu0611/ggrisk: Heat Map, Bubble Map and Migration Map

geom_sf_point <-function(mapping = aes(), data = NULL,
                         stat = "sf_coordinates",
                         position = "identity",
                         nudge_x = NULL,
                         nudge_y = NULL,
                         na.rm = FALSE,
                         show.legend = NA,
                         inherit.aes = TRUE,
                         fun.geometry = NULL,
                         ...) {
    if (!is.null(nudge_x) || !is.null(nudge_y)) {
        message("You specify position by `nudge_x` and `nudge_y`.")
        position <- position_nudge(nudge_x, nudge_y)
    }
    layer_sf(
        data = data,
        mapping = mapping,
        stat = stat,
        geom = GeomPoint,
        position = position,
        show.legend = show.legend,
        inherit.aes = inherit.aes,
        params = list(
            na.rm = na.rm,
            #it is import to give a value to shape
            #so that geom_sf_point can be more easy used with
            #scale_color/fille_grandientn/manual
            fun.geometry = fun.geometry,
            ...
        )
    )
}