如果有很好的datacamp，我宁愿学习

* [mapedit - updates in 0.2.0](https://www.r-spatial.org/r/2017/06/09/mapedit_0-2-0.html)
这个地图包实在是太帅了
* [mapedit - interactively edit spatial data in R](https://www.r-spatial.org/r/2017/01/30/mapedit_intro.html)
* [mrjoh3/mapedit: Interactive editing of spatial data in R](https://github.com/mrjoh3/mapedit)

```{r}
library(mapedit)
library(mapview)
library(sf)

crud <- editMap(mapview())
```

```{r}
mapview(crud$finished)
```

```{r}
library(mapview)
library(mapedit)
library(sf)

nc <- st_read(system.file("shape/nc.shp", package="sf"))
selected <- selectFeatures(nc)
```

```{r}
mapview(selected)

```

真有意思。

```{r}
mapview()

outer = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)
hole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)
hole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)
pts = list(outer, hole1, hole2)
(pl1 = st_polygon(pts))
mapview(pl1)
```

```{r}
franconia 
```

不知道怎么导入地图数据。

* [r-spatial](https://github.com/r-spatial)
很厉害的包

不知道当前的地图怎么弄