knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(ggplot2)
library(tidyverse)
library(readxl)
library(readr)
library(dplyr)

Read data

#read tif
read_tif <- function(x){

}

#read raster
read_raster <- function(x){

}

#read csv

#read excel

Data wrangling

#reclassification

#calculating cells/area

#modify dataframe

Data visualization

#bar plot
p <- ggplot(f, aes(x = year, y = cells)) +
  geom_bar(stat = "identity") +
  ggtitle("The difference of cells between two datasets")

p


DrBo0m/PontiR documentation built on Dec. 17, 2021, 5:29 p.m.