Packages and data

?depmunic

depmunic |> tibble::as_tibble() |> st_as_sf()

## Simple feature collection with 7 features and 7 fields
## Geometry type: POLYGON
## Dimension:     XY
## Bounding box:  xmin: 472365.2 ymin: 4199888 xmax: 481469.4 ymax: 4209186
## Projected CRS: GGRS87 / Greek Grid
## # A tibble: 7 × 8
##   num_dep airbnb museums population pop_rest greensp  area
##     <int>  <dbl>   <dbl>      <dbl>    <dbl>   <dbl> <dbl>
## 1       1   2171      17      72962     8202 433582   7.21
## 2       2    721       1     102439     5009 478951   4.84
## 3       3    524       0      45168     2735  43312.  5.62
## 4       4    144       0      84544     4167  40656.  4.51
## 5       5    231       0      98283     5099  41369.  4.02
## 6       6    565       0     129603    16531 154991   3.99
## 7       7    630       0     122915     8017  93715.  7.76
## # ℹ 1 more variable: geometry <POLYGON [m]>

st_crs(depmunic)$epsg

## [1] 2100