Description Usage Arguments Value Author(s) Examples
View source: R/lucC_plot_results.R
Plot barplot over time
1 2 3 4 5 |
data_mtx |
Matrix. A matrix with values obtained from predicates RECUR, EVOLVE, CONVERT or HOLDS |
data_frequency |
Dataframe. A frequency table of a categorical variable from a data set |
custom_palette |
Boolean. A TRUE or FALSE value. If TRUE, user will provide its own color palette setting! Default is FALSE |
RGB_color |
Character. A vector with color names to map legend, for example, c("Green","Blue"). Default is setting scale_colour_hue |
pixel_resolution |
Numeric. Is a spatial resolution of the pixel. Default is 250 meters considering MODIS 250 m. See more at https://modis.gsfc.nasa.gov/about/specifications.php. |
relabel |
Boolean. A TRUE or FALSE value. If TRUE, user will provide its own legend text setting! Default is FALSE |
original_labels |
Character. A vector with original labels from legend text, for example, c("Forest","Pasture"). |
new_labels |
Character. A vector with new labels to legend text, for example, c("Mature_Forest","Pasture1"). |
legend_text |
Character. A text legend to show in plot, such as "Land use transitions:". Default is "Legend:". |
column_legend |
Integer. A number with the desired number of columns in legend. |
side_by_side |
Boolean. Make bar of a barplot a side-by-side plot. Default is FALSE. |
Plot a barplot in Y axis in square kilometers (Area km^2) = (Number of pixel *(pixel_resolution*pixel_resolution))/(1000*1000)
Adeline M. Maciel
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | ## Not run:
library(lucCalculus)
file <- c(system.file("extdata/raster/rasterSample.tif", package = "lucCalculus"))
rb_class <- raster::brick(file)
my_label <- c("Degradation", "Fallow_Cotton", "Forest", "Pasture", "Soy_Corn", "Soy_Cotton",
"Soy_Fallow", "Soy_Millet", "Soy_Sunflower", "Sugarcane", "Urban_Area", "Water")
my_timeline <- c("2001-09-01", "2002-09-01", "2003-09-01", "2004-09-01", "2005-09-01",
"2006-09-01", "2007-09-01", "2008-09-01", "2009-09-01", "2010-09-01",
"2011-09-01", "2012-09-01", "2013-09-01", "2014-09-01", "2015-09-01",
"2016-09-01")
a <- lucC_pred_holds(raster_obj = rb_class, raster_class = c("Pasture"),
time_interval = c("2007-09-01","2010-09-01"),
relation_interval = "contains", label = my_label,
timeline = my_timeline)
lucC_plot_bar_events(data_mtx = a, custom_palette = TRUE,
RGB_color = c("#929e6e"), pixel_resolution = 232,
legend_text = "Legend: ")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.