Land cover: labels for classes


Reclassify land cover categories into 7 main categories:

  • Outside
  • arable
  • wetland
  • improved grassland
  • forest
  • semi natural grassland
  • urban
  • other

Load packages, read data and source custom scripts

rm(list = ls())

path_proj <- day2day::git_path()
path_data <- file.path(path_proj, "data")
path_cleaned <- file.path(path_data, "cleaned")


lcover_labels <- c(
    `0` = "Outside",
    `1` = "Arable",
    `2` = "Wetland",
    `3` = "Improved grassland",
    `4` = "Forest",
    `5` = "Semi natural grassland",
    `6` = "Urban",
    `7` = "Other"
)

saveRDS(lcover_labels, file.path(path_cleaned, "landcover_reclass_labels.rds"))

Time to execute the task

Only useful when executed with Rscript.

proc.time()
#>    user  system elapsed 
#>   7.353   0.309   7.628