экспорт corrplot в .eps файл

Question

У меня есть построенный corrplot, и я хочу, чтобы он был в формате .eps. Проблема в том, что в файле .eps числа внутри кругов исчезли. Есть ли какой-либо параметр, чтобы вернуть их?

library(corrplot) 
test <- structure(c(100, 41.6411042944785, 69.6478873239437, 99.35956084172, 
100, 99.9295774647887, 90.4849039341263, 54.409509202454, 100 
), .Dim = c(3L, 3L), .Dimnames = list(c("x1", "x2", "x3"), c("x1", 
"x2", "x3"))) 

без .eps формате: (работают хорошо)

corrplot(round(test),tl.cex=1.5,title="test", method="circle",is.corr=FALSE,type="full", 
    cl.lim=c(0,100),cl.cex=2,addgrid.col="blue",addshade="positive",col=col1, addCoef.col = rgb(0,0,0, alpha =0.6), mar=c(0,0,1,0), diag= FALSE) 

В формате .eps:

postscript("test.eps", height=8, width=8, paper="special", family="Helvetica", fonts="Helvetica", horizontal=FALSE, onefile=FALSE) 
corrplot(round(test),tl.cex=1.5,title="test", method="circle",is.corr=FALSE,type="full", 
     cl.lim=c(0,100),cl.cex=2,addgrid.col="blue",addshade="positive",col=col1, addCoef.col = rgb(0,0,0, alpha =0.6), mar=c(0,0,1,0), diag= FALSE) 
dev.off() 

Answer 1

Вы видите предупреждение, что указанный

Предупреждение сообщение : В text.default (Pos [, 1], Pos [, 2], col = addCo ef.col, этикетки = круглые ((DAT -: полупрозрачность не поддерживается на этом устройстве: сообщается только один раз на странице

? Это означает, что любые цвета, которые вы пытаетесь сделать с помощью полупрозрачности (подсказка, подсказка: настройки alpha в аргументе addCoef.col), не будут работать на графике PostScript.

Исключая параметр alpha следующим образом (только изменяя цвет от rgb(0,0,0,alpha=0.6) к rgb(0,0,0), хотя вы могли бы также сказать "black") отлично работает на моей системе:

library("corrplot") 
col1 <- "green" ## you didn't tell us what col1 was so I made something up 
postscript("test.eps", height=8, width=8, paper="special", 
    family="Helvetica", fonts="Helvetica", horizontal=FALSE, onefile=FALSE) 
corrplot(round(test),tl.cex=1.5,title="test", method="circle", 
    is.corr=FALSE,type="full", 
    cl.lim=c(0,100),cl.cex=2, 
    addgrid.col="blue",addshade="positive", 
    col=col1, addCoef.col = rgb(0,0,0), mar=c(0,0,1,0), diag= FALSE) 
dev.off()