units <- list(
mgl = expression(paste("(",mg~l^{-1},")")),
mugl = expression(paste("(",mu,g~l^{-1},")")),
temp = expression(paste("Temperature (",degree,"C)")),
oxy = expression(paste("surface ", O[2]," (",mg~l^{-1},")")),
oxyhyp = expression(paste("bottom ", O[2]," (",mg~l^{-1},")")),
zoo = expression(paste("Zooplankton (",mg~l^{-1},")")),
tin = expression(paste("Nitrogen (",mg~l^{-1},")")),
phyto= expression(paste("Phytoplankton (",mg~l^{-1},")")),
phos = expression(paste("Phosphorus (",mu,g~l^{-1},")"))
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.