How to export taylor diagram in EPS format?

[meitei]

Hi all,
I have a Taylor diagram.
How can I export to EPS format?

suppressPackageStartupMessages({
  library(dplyr, warn.conflicts = FALSE)
  library(stringr)
  library(openair)
})


dat=data.frame(
  hist=sample(100,100),
  obs=sample(100,100),
  model=rep(c("abc", "def"),each=50)
)

TaylorDiagram(dat, obs = "obs", mod = "hist",
              group = c("model"), main="(b)",rms.col="black",
              normalise = TRUE, cex = 0.6,
              col=c("red","blue"),
              pch = c(1:2), fontsize = 20)

thank you..!!!

[jrkrideau]

Try something like this

setEPS()
postscript("Taylor.eps")
TaylorDiagram(dat, obs = "obs", mod = "hist",
              group = c("model"), main="(b)",rms.col="black",
              normalise = TRUE, cex = 0.6,
              col=c("red","blue"),
              pch = c(1:2), fontsize = 20)

dev.off()

[meitei]

HI, @jrkrideau thank you for the response. I'm not sure why I got the error

Warning message:
In grid.Call.graphics(C_lines, x$x, x$y, list(as.integer(1L:max(length(x$x),  :
  semi-transparency is not supported on this device: reported only once per page

For this, I tried as described here. But, not working. Did you encounter the same?

[jrkrideau]

This is not an error, just a warning and I did get it . R still printed the eps file. Check your folders for an .eps file.