respeciate

respeciate gives you access to the US/EPA Speciate v5.2 profiles in R

The installation is:

remotes::install_github("atmoschem/respeciate")

example

Find profiles based on search criteria

library(respeciate)
x <- rsp_find_profile("Ethanol")
x
#> respeciate profile list: 160
#> [NO SPECIES]
#>   (CODE 0291) Surface Coating Solvent - Methyl Alcohol
#>   (CODE 1070) Alcohols Production - Methanol - Purge Gas Vent
#>   (CODE 1071) Alcohols Production - Methanol - Distillation Vent
#>   (CODE 1132) Ethanolamines
#>   (CODE 1149) Methanol
#>   (CODE 1301) 10% Ethanol Composite (Hot Soak + Diurnal) Evaporative
#>     > showing 6 of 160

speciate

p <- rsp_profile("8833")

plot

Plotting a profile

#profiles have a default plot option
plot(p)

… using lattice barchart syntax

p2 <- rsp_profile(c(8833, 8850))
plot(p2, key=list(space="top"))