knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(ggplot2) library(tidyverse) library(readxl) library(readr) library(dplyr)
#read tif read_tif <- function(x){ } #read raster read_raster <- function(x){ } #read csv #read excel
#reclassification #calculating cells/area #modify dataframe
#bar plot p <- ggplot(f, aes(x = year, y = cells)) + geom_bar(stat = "identity") + ggtitle("The difference of cells between two datasets") p
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.