Я хочу иметь две (или более) диаграммы Венна в файле ".eps". Я использовал этот пост от fridaymeetssunday, который ссылается на это сообщение mnel, и я просто изменил код с "pdf" на "eps "по постскриптуму.
Проблема в том, что когда я запускаю код и открываю файл, диаграммы бесцветны и не имеют цветов. Я должен был сделать что-то еще?
# libraries
library(VennDiagram)
library(grid)
library(gridBase)
library(lattice)
# create the diagrams
temp1 <- venn.diagram(list(B = 1:1800, A = 1571:2020),
fill = c("red", "green"), alpha = c(0.5, 0.5), cex = 1,cat.fontface = 2,
lty =2, filename = NULL)
temp2 <- venn.diagram(list(A = 1:1800, B = 1571:2020),
fill = c("red", "green"), alpha = c(0.5, 0.5), cex = 1,cat.fontface = 2,
lty =2, filename = NULL)
# start new page
plot.new()
#pdf("testpdf", width = 14, height = 7)
postscript("test.eps", height=8, width=8, paper="special", family="Helvetica", fonts=c("serif","Helvetica"), horizontal=FALSE)
# setup layout
gl <- grid.layout(nrow=1, ncol=2)
# grid.show.layout(gl)
# setup viewports
vp.1 <- viewport(layout.pos.col=1, layout.pos.row=1)
vp.2 <- viewport(layout.pos.col=2, layout.pos.row=1)
# init layout
pushViewport(viewport(layout=gl))
# access the first position
pushViewport(vp.1)
# start new base graphics in first viewport
par(new=TRUE, fig=gridFIG())
grid.draw(temp2)
# done with the first viewport
popViewport()
# move to the next viewport
pushViewport(vp.2)
grid.draw(temp2)
# done with this viewport
popViewport(1)
dev.off()
plot(1:10,col='red')
, внутри операторовpostscript
иdev.off
и посмотрите, что получится. В то же время возьмите любое цветное изображение в каком-нибудь другом приложении (например, в PowerPoint) и распечатайте или сохраните в файл eps, просто чтобы убедиться, что любая ваша операционная система поддерживает цвет в формате eps. Кстати, в каком приложении вы открываете файлы .eps -- оно поддерживает цвет? - person Carl Witthoft   schedule 04.08.2013