• Load the readxl and tidyverse libraries.
  • Load FTIR_rocks.xlsx into a data.frame (in fact, tibble).
  • Rename the columns with simpler names, such as “w”, “r1”, “r2” and “r3”
  • Find the wavenumber value of the maximum of each spectrum
  • Create a function norm01() that, given a vector, returns the vector normalized to [0,1]
  • Normalize all columns of FTIR intensity to [0,1]
  • Using base graphics or ggplot2, as you wish, try to reproduce the following graphs: