if (requireNamespace("ggplot2", quietly = TRUE)) {
# Generate a plot
p <- plot_ftir(sample_spectra)
# Rename Samples in Legend:
new_ids <- c(
"Toluene" = "toluene", "C7 Alkanes" = "heptanes", "IPA" = "isopropanol",
"White Paper" = "paper", "PS Film" = "polystyrene"
)
rename_plot_sample_ids(p, new_ids)
}
Run the code above in your browser using DataLab