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::geom_rect(ggplot2::aes(xmin = rep(0, 14), xmax = rep(1, 14),
ymin = 1:14, ymax = 1:14+1, fill = name)) +
ggplot2::scale_y_reverse() +
scale_fill_land(name = "land")
Run the code above in your browser using DataLab