knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) library(sits.starfm) library(dplyr) library(kableExtra) library(knitr) library(ggplot2) #setwd("/home/alber/Documents/data/experiments/l8mod-fusion/Rpackage/sits.starfm") #devtools::load_all()
BRICK_IMAGES %>% dplyr::select(-c(files, tile, neigh)) %>% dplyr::group_by(scene, prodes_year) %>% dplyr::summarize(count = n(), cloud_cover_mean = mean(cloud_cov), cloud_cover_sd = sd(cloud_cov), cloud_cover_min = min(cloud_cov), cloud_cover_max = max(cloud_cov)) %>% knitr::kable() %>% kableExtra::kable_styling(full_width = F) BRICK_IMAGES %>% dplyr::select(-c(files, tile, neigh)) %>% dplyr::group_by(scene, prodes_year) %>% dplyr::mutate(id = seq_along(sat_image)) %>% ggplot2::ggplot() + ggplot2::geom_line( aes(x = id, y = cloud_cov, color = cloud_cov, group = prodes_year)) + ggplot2::geom_point(aes(x = id, y = cloud_cov, color = cloud_cov)) + ggplot2::facet_grid(scene ~ prodes_year) + ggplot2::ggtitle("Image cloud cover") # ggsave(filename = "deleteme.png")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.