Publications by Phuong Linh
osmdata & ggplot: streetmap
Street Maps by osmdata and ggplot 1 Library library(tidyverse) library(osmdata) # package for working with streets library(showtext) # for custom fonts library(ggmap) library(rvest) 2 OSM Data # The avilable_tags() function shows you the available features of the different classifications of streets and other map features this package works wit...
901 sym R (7697 sym/22 pcs) 8 img
Geospatial vector data: Part 1 OSM Query
Green Space 1 Load libraries library(dplyr) # data wrangling library(tidyr) # data wrangling library(ggplot2) # data visualisation library(sf) # simple features - geospatial geometries library(osmdata) # obtaining OpenStreetMap vector data library(units) # working with units library(mapview) # interactive geometry viewing library(ggmap) # downlo...
1034 sym R (7690 sym/23 pcs) 2 img
Geospatial vector data: Part 2 Spatial Calculation
1 Load libraries rm(list = ls()) library(dplyr) # data wrangling library(tidyr) # data wrangling library(ggplot2) # data visualisation library(sf) # simple features - geospatial geometries library(osmdata) # obtaining OpenStreetMap vector data library(units) # working with units library(mapview) # interactive geometry viewing library(ggmap) # do...
1134 sym R (9402 sym/32 pcs) 2 img
Anomaly Detection by ECDF
1 Objective Determine the point when each customer will begin to act “anomalously” (Churn) Application of Empirical Cumulative Distribution Function (ECDF) to define the point 2 Load library library(tidyverse) library(lubridate) library(XLConnect) library(dplyr) library(ggplot2) library(readxl) library(writexl) theme_set(theme_minimal()) ...
1706 sym R (3794 sym/21 pcs) 2 img
Geospatial vector data: Part 3 Informative Map
1 Clear Workspace rm(list = ls()) 2 Load library library(ggplot2) # ggplot() fortify() library(dplyr) # %>% select() filter() bind_rows() library(rgdal) # readOGR() spTransform() library(raster) # intersect() library(ggsn) # north2() scalebar() library(rworldmap) # getMap() 3 Data input vulture <- read.csv("Gyps_rueppellii_GBIF.csv", sep ...
1676 sym R (4096 sym/19 pcs) 5 img
Raster and Remote Sensing data: Sentinel 2 satellite image
1 Load library library(sp) library(rgdal) library(raster) library(ggplot2) library(viridis) library(rasterVis) 2 Load data # Load data tay <- raster('taycrop.tif') # Get properties of the Tay raster tay ## class : RasterLayer ## band : 1 (of 12 bands) ## dimensions : 507, 848, 429936 (nrow, ncol, ncell) ## resolution : 9.217891e-...
6031 sym R (7823 sym/46 pcs) 12 img