Open Source Resources
Potentially useful blogs, books, posts, and code snippets ¯\_(ツ)_/¯
Potentially useful blogs, books, posts, and code snippets ¯\_(ツ)_/¯
Side Projects
This project delves into the realm of LiDAR and image processing in R, utilizing the lidR package. The scope expands to encompass diverse raster data insights, with a primary focus on remotely sensed imagery. The objectives cover a spectrum of tasks, from efficiently handling LiDAR data to employing advanced techniques for comprehensive spatial analysis.
I investigated the temporal trends in atmospheric carbon dioxide (CO2) concentrations (Ca) and carbon isotope composition (δ13C.atm), employing data from Belmecheri and Lavergne (2020) and Mathias & Thomas (2021). This project highlights the significant rise in atmospheric CO2 concentrations, reaching approximately 420 parts per million in recent years, impacting δ13C values in plant tissues.
Potentially Useful Code Snippets
data_summary <- function(data, variable, watershed){
require(plyr)
summary_func <- function(x, col){
c(mean = mean(x[[col]], na.rm = TRUE),
sem = sd(x[[col]], na.rm = TRUE) / sqrt(length(x[[col]])),
totalC_gm2 = sum(x$totalC_gm2, na.rm = TRUE))
}
data_sum <- ddply(data, watershed, .fun = summary_func, col = variable)
return(data_sum)
}
my_theme <- theme(axis.line.x = element_line(linewidth = 0.5,
colour = "black"), axis.line.y = element_line(linewidth = 0.5,
colour = "black"),axis.line = element_line(linewidth = 1,
colour ="black"),panel.grid.major = element_blank(),
panel.grid.minor =element_blank(),
panel.border = element_blank(),
panel.background = element_blank(),
text=element_text(size = 14, family = "Palatino Linotype"),
axis.text.x=element_text(colour="black", size = 14),
axis.text.y=element_text(colour="black", size = 14),
legend.title = element_blank(),legend.key=element_blank())