In tjconstant/rindex: Refractive Index Database

knitr::opts_chunk$set(warning = F, message = F,
  collapse = TRUE,
  comment = "#>"
)

The rindex package allows fast comparison of refracitve index data between multiple references. A few examples of how to achieve this are shown below.

Caesium

library(rindex)
library(dplyr)
library(ggplot2)

Cs <- rindex.search("Caesium")$pageid

nk <- 
lapply(Cs, rindex.get) %>%
  bind_rows(.id="Reference")

nk %>%
  ggplot(aes(x = `wavelength (m)`, y = n, colour = Reference)) + 
  geom_line() + 
  geom_point() + theme_bw()

Gold

Au <- rindex.search("Gold")$pageid

nk <- 
  lapply(Au, rindex.get) %>%
  bind_rows(.id="Reference")

nk %>%
  ggplot(aes(x = `wavelength (m)`, y = n, colour = Reference)) + 
  geom_point() + 
  theme_bw() + 
  xlim(0,800e-9) + ylim(0,2)