Nothing
## -----------------------------------------------------------------------------
library(ggplot2)
library(photobiology)
library(photobiologyWavebands)
library(ggspectra)
# if suggested packages are available
magrittr_installed <- requireNamespace("magrittr", quietly = TRUE)
rlang_installed <- requireNamespace("rlang", quietly = TRUE)
eval_chunks <- magrittr_installed && rlang_installed
if (eval_chunks) {
library(magrittr)
library(rlang)
} else {
message("Please, install packages 'rlang' and 'magrittr'.")
}
## ----include=FALSE, echo=FALSE------------------------------------------------
library(knitr)
opts_chunk$set(fig.align = 'center',
fig.show = 'hold', fig.width = 7, fig.height = 4,
cache = FALSE)
options(warnPartialMatchArgs = FALSE)
## -----------------------------------------------------------------------------
two_suns.mspct <- source_mspct(list(sun1 = sun.spct, sun2 = sun.spct / 2))
## -----------------------------------------------------------------------------
two_suns.spct <- rbindspct(two_suns.mspct)
## -----------------------------------------------------------------------------
theme_set(theme_bw())
## ----eval=eval_chunks---------------------------------------------------------
ggplot() +
geom_line(data = sun.spct, mapping = aes(w.length, s.e.irrad)) +
geom_line(data = smooth_spct(sun.spct, method = "supsmu"),
mapping = aes(w.length, s.e.irrad),
colour = "red", linewidth = 1.2)
## ----eval=eval_chunks---------------------------------------------------------
ggplot() +
geom_line(data = sun.spct, mapping = aes(w.length, s.e.irrad)) +
geom_line(data = sun.spct |> smooth_spct(method = "supsmu"),
mapping = aes(w.length, s.e.irrad),
colour = "red", linewidth = 1.2)
## ----eval = eval_chunks-------------------------------------------------------
p <- ggplot(sun.spct) + geom_line()
class(p$data)
## ----eval = eval_chunks-------------------------------------------------------
ggplot(sun.spct) +
geom_line() +
geom_line(data = . %>% smooth_spct(method = "supsmu"),
colour = "red", linewidth = 1.2)
## ----eval = eval_chunks-------------------------------------------------------
photon_as_default()
ggplot(sun.spct) +
geom_line() +
geom_line(data = . %>% smooth_spct(method = "supsmu"),
colour = "red", linewidth = 1.2)
unset_radiation_unit_default()
## ----eval=FALSE---------------------------------------------------------------
# ggplot(sun.spct) +
# geom_line(data = . %>% smooth_spct(method = "supsmu"),
# colour = "red", linewidth = 1.2)
## ----eval=eval_chunks---------------------------------------------------------
sun.spct |>
smooth_spct(method = "supsmu") |>
ggplot() +
geom_line(colour = "red", linewidth = 1.2)
## ----eval = eval_chunks-------------------------------------------------------
ggplot(sun.spct) +
geom_line() +
geom_line(data = . %>% smooth_spct(method = "custom"),
colour = "blue", linewidth = 1) +
geom_line(data = . %>% smooth_spct(method = "lowess"),
colour = "green", linewidth = 1) +
geom_line(data = . %>% smooth_spct(method = "supsmu"),
colour = "red", linewidth = 1)
## ----eval = eval_chunks-------------------------------------------------------
ggplot(sun.spct) +
geom_line() +
stat_peaks(size = 3, span = NULL) +
stat_peaks(geom = "vline", linetype = "dotted", span = NULL) +
geom_line(data = . %>% smooth_spct(method = "supsmu"),
colour = "red", linewidth = 1.2) +
stat_peaks(data = . %>% smooth_spct(method = "supsmu"),
colour = "red", size = 3, span = NULL) +
stat_peaks(data = . %>% smooth_spct(method = "supsmu"),
geom = "vline", colour = "red",
linetype = "dotted", span = NULL)
## ----eval = eval_chunks-------------------------------------------------------
ggplot(sun.spct) +
geom_line() +
geom_line(data = . %>% trim_wl(range = PAR()), colour = "red")
## ----eval = eval_chunks-------------------------------------------------------
ggplot(sun.spct) +
geom_line() +
geom_point(data = . %>% trim_wl(range = VIS()) %>% tag(),
mapping = aes(color = wl.color),
shape = "circle", size = 1.3) +
scale_color_identity()
## ----eval = eval_chunks-------------------------------------------------------
ggplot(sun.spct) +
geom_area(data = . %>% trim_wl(range = VIS()) %>% tag(w.band = VIS_bands()),
mapping = aes(fill = wb.color)) +
geom_line() +
scale_fill_identity()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.