Indonesian Map with R

## Loading required package: maps

## Warning: package 'maps' was built under R version 3.4.4

## Loading required package: mapdata

## Warning: package 'mapdata' was built under R version 3.4.4

## Warning: package 'ggthemes' was built under R version 3.5.0

## Warning: package 'ggrepel' was built under R version 3.4.4

##  [1] "Aceh"                "North Sumatra"       "West Sumatra"       
##  [4] "Riau"                "Jambi"               "South Sumatra"      
##  [7] "Bengkulu"            "Lampung"             "Bangka-Belitung"    
## [10] "Riau Islands"        "Jakarta"             "West Java"          
## [13] "Central Java"        "Yogyakarta"          "East Java"          
## [16] "Banten"              "Bali"                "West Nusa Tenggara" 
## [19] "East Nusa Tenggara"  "West Kalimantan"     "Central Kalimantan" 
## [22] "South Kalimantan"    "East Kalimantan"     "North Kalimantan"   
## [25] "North Sulawesi"      "Central Sulawesi"    "South Sulawesi"     
## [28] "South East Sulawesi" "Gorontalo"           "West Sulawesi"      
## [31] "Maluku"              "North Maluku"        "West Papua"         
## [34] "Papua"

Indo<-gg1 + xlim(94,142) + ylim(-11,7.5)  +
   scale_color_manual(values=c("red", "green", "blue","orange","brown")) +
  geom_polygon(data = indonesian_border, aes(x=long, y = lat, group = group, fill = region), color = "grey") + 
  coord_fixed(1.3) +
  scale_fill_manual(values=c("orange","red","green","pink","blue","purple","brown","darkgreen","darkblue")) +
  geom_text(data = get_data, aes(longitude, latitude, label = woe_label), colour = "black", size = 2.5) +
  guides( fill = FALSE) +
  geom_point(data = get_data,aes(x = longitude, y = latitude, color = "red" ), 
                                                       size=4, alpha = 0.5, show.legend = F) 
Indo

Indo<-gg1 + xlim(94,142) + ylim(-11,7.5)  +
   scale_color_manual(values=c("red", "green", "blue","orange","brown")) +
  geom_polygon(data = indonesian_border, aes(x=long, y = lat, group = group, fill = region), color = "grey") + 
  coord_fixed(1.3) +
  scale_fill_manual(values=c("orange","red","green","pink","blue","purple","brown","darkgreen","darkblue")) +
  geom_text_repel(data = get_data, aes(longitude, latitude, label = woe_label),
                    size = 2)  +
  guides( fill = FALSE) +
  geom_point(data = get_data,aes(x = longitude, y = latitude, color = "red" ), 
                                                       size=2.5, alpha = 0.5, show.legend = F) 
Indo

#References

Indonesian Map with R

Prana Ugiana Gio & Rezzy Eko Caraka

10/5/2019