Description Usage Arguments Value Author(s) Examples
Provide a lucC_event_transitions, a set of event transitions. And return a tibble with events discovered
1 2 | lucC_event_transitions(data_tb = NULL, properties = NULL,
time_intervals = lucC_interval("2000-01-01", "2016-12-31"))
|
data_tb |
Tibble. A data frame with input values. |
properties |
Character. A vector with at least 2 strings, and maximum 10 combination of transitions, for example, c("Forest","Cropping"). |
time_intervals |
Interval. A interval of time to verify if properties is into of lucC_interval format. |
Tibble with event transition
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 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | ## Not run:
library(lucC)
lucC_starting_point()
data("example_TWDTW")
example_TWDTW
example_3.tb <- example_TWDTW %>%
lucC_standard_date_events(data_tb = ., month_year = "09", day_month = "01")
example_3.tb
# p = properties of objects :
p1 <- c("Forest", "Pasture", "Single_cropping", "Double_cropping")
# t = interval:
t1 <- lucC_interval("2000-08-01","2017-03-01")
tb <- example_3.tb
output.tb3 <- tb[FALSE,]
coord <- unique(tb$index)
# Apply for each time series based on index
for(x in 1:length(coord)){
temp.tb <- tb[which(as.character(tb$index) == coord[x]),]
temp_final.tb <- lucC_event_transitions(temp.tb, properties = p1,
time_intervals = t1)
output.tb3 <- dplyr::bind_rows(output.tb3, temp_final.tb)
}
output.tb3
# plots
lucC_plot_maps_input(example_3.tb, EPSG_WGS84 = TRUE, custom_palette = TRUE,
RGB_color = c("#FFB266", "#1b791f", "#929e6e", "#f5e7a1"))
lucC_plot_maps_events(output.tb3, EPSG_WGS84 = TRUE, custom_palette = TRUE,
RGB_color = c("#FFB266", "#1b791f", "#929e6e", "#f5e7a1"), shape_point = 0,
colour_point = "blue", size_point = 2.3)
lucC_plot_barplot_events(output.tb3, custom_palette = TRUE,
RGB_color = c("#FFB266", "#1b791f", "#929e6e", "#f5e7a1"),
pixel_resolution = 250)
lucC_plot_sequence_events(output.tb3, show_y_index = TRUE,
end_date = "2017-03-01", custom_palette = TRUE,
RGB_color = c("#FFB266", "#1b791f", "#929e6e", "#f5e7a1"))
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.