# NOT RUN {
library(ggplot2)
land <- data.frame(
name = c(
"water", "evergreen needleleaf forest", "deciduous needleleaf forest",
"mixed forest", "evergreen broadleaf forest", "deciduous broadleaf forest",
"woodland", "wooded grassland", "grassland", "cropland", "closed shrubland",
"open shrubland", "bare ground", "urban and built"
)
)
ggplot2::ggplot(land, ggplot2::aes(fill = name)) +
ggplot2::geom_rect(aes(xmin = rep(0, 14), xmax = rep(1, 14),
ymin = 1:14, ymax = 1:14+1)) +
ggplot2::scale_y_reverse() +
scale_fill_land(name = "land")
# }
Run the code above in your browser using DataLab