Day 2 of #30DayMapChallenge : Lines

Lines - A very simple Map with Lines.

Library

library(sf)

## Linking to GEOS 3.8.0, GDAL 3.0.4, PROJ 6.3.1

library(ggplot2)

SHP File

The SHP Data for Indonesia available from Humdata

Admin1Provinsi<-"D:/GDrive/01-Event/06-KSN-Peta/BaseMap/Lengkap/idn_admbnda_adm1_bps_20200401.shp"
Admin1<-st_read(Admin1Provinsi)

## Reading layer `idn_admbnda_adm1_bps_20200401' from data source `D:\GDrive\01-Event\06-KSN-Peta\BaseMap\Lengkap\idn_admbnda_adm1_bps_20200401.shp' using driver `ESRI Shapefile'
## Simple feature collection with 34 features and 12 fields
## geometry type:  MULTIPOLYGON
## dimension:      XY
## bbox:           xmin: 95.01079 ymin: -11.00762 xmax: 141.0194 ymax: 6.07693
## geographic CRS: WGS 84

Coordinate for the Capital of the Province of Indonesia

lokasi<-read.csv("https://raw.githubusercontent.com/Nr5D/30DayMapChallenge/main/CapitalofProvinceID.csv", sep=";")

A very simple maps with lines

The Lines connect the point from the west to the east regardless the distances, still looking ways to connect the dot by shortest distances.

pDATA<-ggplot()+
  geom_sf(data=Admin1)+
  geom_point(data = lokasi, aes(x = longitude, y = latitude), size = 1, 
             shape = 23, fill = "darkred")+
  geom_line(data=lokasi,aes(x = longitude, y = latitude), size = 1, color="steelblue")+
  theme_minimal()
pDATA