# install.packages(c("sf", "tmap", "spData", "terra")) # install.packages("spDataLarge", repos = "https://geocompr.r-universe.dev") library(sf) library(tmap) library(spData) library(spDataLarge) library(terra) nz_elev = rast(system.file("raster/nz_elev.tif", package = "spDataLarge")) tm_shape(nz_elev) + tm_graticules() + tm_raster(title = "elev", style = "cont", palette = "-RdYlGn") + tm_shape(nz) + tm_borders(col = "red", lwd = 3) + tm_scale_bar(breaks = c(0, 100, 200, 300, 400), text.size = 1) + tm_compass(position = c("LEFT", "center"), type = "rose", size = 2) + tm_credits(text = "J. Nowosad, 2024") + tm_layout(main.title = "My map", bg.color = "yellow", inner.margins = c(0, 0, 0, 0)) # Podczas rozwiązywania zadań dodaj komentarze do kodu tłumaczące co dana część kodu wykonuje. # 1. Zmień tytuł mapy z "My map" na "Nowa Zelandia". # 2. Zaktualizuj napisy na mapie własnym nazwiskiem i dzisiejszą datą. # 3. Zmień paletę kolorów na "BuGn". (Możesz też spróbować innych palet z http://colorbrewer2.org/) # 4. Umieść strzałkę północy w prawym górnym rogu mapy. # 5. Popraw tytuł legendy, dodając jednostki legendy. # 6. Zmniejsz liczbę przerw w legendzie. # 7. Zmień kolor granic regionów Nowej Zelandii na czarny. # Zmniejsz szerokość linii. # 8. Zmień kolor tła na dowolnie wybrany.