Convert built-in plots in high-quality graphics for publications?

Question

I use the PUPAIM package to generate adsorption isotherms e.g. redlichpanalysis(Ce,Qe)

For example with the following variables:

Ce <- c(1.447071, 1