library(tmap)
library(ggplot2)
library(tidyverse)
library(data.table)
library(raster)
# Raster Image
# Peat Depth Data
PD <- data.frame(DS_PDP_100) # Convert table to Data Frame
# Plot the Data
ggplot(PD,aes(POINT_X,POINT_Y, color=Peat_depth))+geom_point()+
scale_color_gradient(low="yellow",high="red")+
labs(
x = "Longitude",
y = "Latitude",
colour = "Peat Depth (cm)",
title = "Peat Depth at Dove Stone",
subtitle = "RSPB and United Utilities"
)
![[Peat_Depth_DS.png]]
#R #RSPB