RE Color spec. Postscript graphic device (Summary)

["Ilouga, Pierre" <Pierre.Ilouga@evotec.com>]

Dear all,

first of all many thanks to

Gérald Jean             (Mes remerciements)

Chuck Taylor            (Mediumblue was written in the e-mail; The more complicated script contained MediumBlue)

Terry Therneau

for the quick help. The two commands

use.legacy.graphics(TRUE)

use.device.palette(TRUE)

do the job.

Best Regards,

Dr. Pierre Ilouga

Screening Operations/Discovery Informatics

EVOTEC AG

Schnackenburgallee 114

22525 Hamburg

Germany

pierre.ilouga@evotec.com

www.evotec.com

-----Original Message-----

> Dear all,

> I’m migrating  to Splus 8. The old scripts work very well except

> the creation of .eps files. To produce colored eps graphics, I had to add

> the option color.p = T (as suggested in the help). Fine.

> Nevertheless my own color specification (for example setting “red”

> at position 2, “green” at position 3 , “MediumBlue” at position 4, …..)

> doesn’t work, as indirectly demonstrated by the following very simple

example.

> (I’m intrinsically not a fan of very long e-mails. There was no

> other way to describe the problem.)

>

> Under Splus 6.1.2

> S-PLUS : Copyright (c) 1988, 2002 Insightful Corp.

> S : Copyright Lucent Technologies, Inc.

> Version 6.1.2 Release 2 for Linux 2.2.12 : 2002

> Working data will be in .Data

> ps.options()$colors:

>  [1] 0.0 0.6 0.3 0.9 0.4 0.7 0.1 0.5 0.8 0.2

> color.vec <- rep("MediumBlue", 10)

> postscript("test_S6.1.2.eps", horizontal = TRUE, colors = ps.colors.

> rgb[color.vec,])

> plot(1:10, 1:10, type = "n")

> for(i in 1:10) points(i, i, col = i, cex = 3, pch = 16)

> dev.off()

> My comment: all 10 points are blue (as expected).

>

> Under Splus 8

> S-PLUS : Copyright (c) 1988, 2007 Insightful Corp.

> S : Copyright Insightful Corp.

> Version 8.0.4  for Linux 2.4.21-37.EL, 64-bit : 2007

> Working data will be in .Data

> ps.options()$colors:

>  [1] 0.0 0.6 0.3 0.9 0.4 0.7 0.1 0.5 0.8 0.2

> color.vec <- rep("Mediumblue", 10)

> postscript("test_S8.eps", horizontal = TRUE, colors = ps.colors.

> rgb[color.vec,])

> plot(1:10, 1:10, type = "n")

> for(i in 1:10) points(i,  i, col = i, cex = 3, pch = 16)

> dev.off()

> My comment: 10 different colors are used for the 10 points, starting from

> “black” (position 1).

> Question: How can I force my own color specification to work similar to

> Splus 6.1.2?

> Regards.

> Dr. Pierre Ilouga

> Screening Operations/Discovery Informatics

> EVOTEC AG

> Schnackenburgallee 114

> 22525 Hamburg

> Germany

> pierre.ilouga@evotec.com

> www.evotec.com

Evotec AG Hamburg. Amtsgericht Hamburg HRB 68223
Vorstand: Joern Aldag (Vorsitzender), Dr. Klaus Maleck und Dr. Mario Polywka
Aufsichtsratsvorsitzender: Dr. Flemming Ornskov