eneller/lec-location-based-services
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ex01

Browse Source
This commit is contained in:
eneller
2025-10-23 00:56:48 +02:00
parent 6051456529
commit 52750a8bf5
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
ex01.Rmd
View File

@@ -1,5 +1,5 @@
--- ---
title: "Location Based Services Exercise 01" title: "Location Based Services Assignment 01"
author: "Erik Neller" author: "Erik Neller"
date: "`r Sys.Date()`" date: "`r Sys.Date()`"
output: pdf_document output: pdf_document
@@ -25,10 +25,15 @@ coordinates: https://www.geonames.org
```{r croatia} ```{r croatia}
library(rworldmap) library(rworldmap)
world <- getMap(resolution = "low") world <- getMap(resolution = "low")
plot(world, xlim = c(20, 30), ylim = c(35, 71) plot(world, xlim = c(13, 20), ylim = c(42, 47)
, asp = 1 , asp = 1
, col = "white" , col = "white"
,bg = "lightblue", # background (sea) color ,bg = "lightblue", # background (sea) color
) )
#points(airports$lon, airports$lat, col = "red", cex = .6) destinations <- data.frame(
lat = c(45.82, 43.506, 45.07),
lon = c(15.97, 16.40, 14.56),
name = c("Zagreb", "Split", "Krk")
)
points(destinations$lon, destinations$lat, col = "red", cex = .6)
``` ```