geoplot(reitur = TRUE)
reitur <- c(560, 560, 560, 560, 561, 561, 561, 561)
smareitur <-c(1, 2, 3, 4, 1, 2, 3, 4)
lab.loc <- list(lat = c(63.95, 65.4), lon = c(-19.8, -17.3))
z <- c(100, 200, 300, 222, 345, 453, 232, 212)
geopolygon(island); geolines(island)
reitaplott(reitur, smareitur, z, rotate = 90, label.location = lab.loc)
# All subsuares in square 560 and 561.
Run the code above in your browser using DataLab