Make a red rectangle using ggplot

Usage

make.red.box(shape)

Arguments

shape: A Simple Feature object

Value

A geom object for use with ggplot

Examples

guyane.shape <- make.rectangle.on.map(9.5186167,
                               -54.68065555555555,
                               4.0003722,
                               -49.47313333333334)
make.red.box(guyane.shape)
#> [[1]]
#> mapping:  
#> geom_sf: na.rm = FALSE
#> stat_sf: na.rm = FALSE
#> position_identity 
#> 
#> [[2]]
#> <ggproto object: Class CoordSf, CoordCartesian, Coord, gg>
#>     aspect: function
#>     backtransform_range: function
#>     clip: on
#>     crs: NULL
#>     datum: crs
#>     default: TRUE
#>     default_crs: NULL
#>     determine_crs: function
#>     distance: function
#>     draw_panel: function
#>     expand: TRUE
#>     fixup_graticule_labels: function
#>     get_default_crs: function
#>     is_free: function
#>     is_linear: function
#>     label_axes: list
#>     label_graticule: 
#>     labels: function
#>     limits: list
#>     lims_method: cross
#>     modify_scales: function
#>     ndiscr: 100
#>     params: list
#>     range: function
#>     record_bbox: function
#>     render_axis_h: function
#>     render_axis_v: function
#>     render_bg: function
#>     render_fg: function
#>     reverse: none
#>     setup_data: function
#>     setup_layout: function
#>     setup_panel_guides: function
#>     setup_panel_params: function
#>     setup_params: function
#>     train_panel_guides: function
#>     transform: function
#>     super:  <ggproto object: Class CoordSf, CoordCartesian, Coord, gg>
#>