R Notebook

#load libraries
library("ggplot2")

## Warning: package 'ggplot2' was built under R version 4.3.2

library("cowplot")
library("ggpubr")

## Warning: package 'ggpubr' was built under R version 4.3.2

## 
## Attaching package: 'ggpubr'

## The following object is masked from 'package:cowplot':
## 
##     get_legend

getwd()

## [1] "C:/Users/J Lab/Desktop"

list.files(pattern=".csv")

## [1] "aero_drought_sim_20240621.csv" "drought simulation FW_DW.csv"

FWDW <- read.csv("drought simulation FW_DW.csv")
FWDW$plant_ID <- paste(FWDW$plant_ID, FWDW$condition, sep="_")
FWDW

FWDW$FW.shoot <- as.numeric(FWDW$FW.shoot)
FWDW$FW.root <- as.numeric(FWDW$FW.root)
FWDW$FW.g <- as.numeric(FWDW$FW.g)
FWDW$DW.shoot <- as.numeric(FWDW$DW.shoot)
FWDW$DW.root <- as.numeric(FWDW$DW.root)
FWDW$DW.g <- as.numeric(FWDW$DW.g)

FW_shoot <- ggboxplot(FWDW, x="condition", y="FW.shoot", add="jitter")
FW_shoot <- FW_shoot + theme(axis.text.x = element_text(angle = 90))
FW_shoot

FW_root <- ggboxplot(FWDW, x="condition", y="FW.root", add="jitter")
FW_root <- FW_root + theme(axis.text.x = element_text(angle = 90))
FW_root

FW <- ggboxplot(FWDW, x="condition", y="FW.g", add="jitter")
FW <- FW + theme(axis.text.x = element_text(angle = 90))
FW

DW_shoot <- ggboxplot(FWDW, x="condition", y="DW.shoot", add="jitter")
DW_shoot <- DW_shoot + theme(axis.text.x = element_text(angle = 90))
DW_shoot

DW_root <- ggboxplot(FWDW, x="condition", y="DW.root", add="jitter")
DW_root <- DW_root + theme(axis.text.x = element_text(angle = 90))
DW_root

DW <- ggboxplot(FWDW, x="condition", y="DW.g", add="jitter")
DW <- DW + theme(axis.text.x = element_text(angle = 90))
DW

WC <- ggboxplot(FWDW, x ="condition", y="WC", add="jitter")
WC <- WC + theme(axis.text.x = element_text(angle = 90))
WC