[R] colours change in barplot

[Tord Snall]

Dear Uwe,

When I prepred simple code I found the problem:
I had executed the row 
palette("default")      
and after that I copied and dragged the R Graphics Device window. 

If I copy and drag after having executed the line before 
( fill=c(25,21,17,14,10), cex=0.75) )
everything looks fine.

Thanks for, as always, quick responses on this list!


Sincerely,
Tord



At 08:51 2/27/2003 +0100, Uwe Ligges wrote:
>Tord Snall wrote:
>> Dear all,
>> 
>> I use the code below for my barplot and it looks fine on my screen. But
>> when I paste into my MSWord file, after having copied it by presing the
>> camera, the colours change. The same actually happens when I change the
>> size of the R Graphics Device window by dragging the corners.
>> 
>> Could someone please help with this.
>> 
>> I use R 1.6.2 on Win XP.
>> 
>> Thanks in advance!
>
>I cannot reproduce such an behaviour on WinNT 4.0.
>Could you provide an example which we can reproduce, please?
>(preferable using data like 1:10 ...)
>
>Uwe Ligges
>
>
>
>> Sincerely,
>> Tord Snäll
>> 
>> par(mar=c(5, 12, 1, 2), mai=c(1, 2.2, 0.01, 0.2), xpd=NA) # yttre kanterna
>> och plotting även i Margin V&R, sid 66
>> (palette(gray(seq(0,.9,len=25)))) # gray scales; print old palette
>> barplot(as.matrix(t(nedbr[nedbr$fran.lan == "X", c("nedbr1volS.ha",
>> "nedbr2volS.ha", "nedbr3volS.ha", "nedbr4volS.ha", "nedbr5volS.ha")])), 
>>         names.arg = as.vector(nedbr[nedbr$fran.lan == "X",
"Objektnamn"]),  
>>         horiz=T, las=1, cex.names=0.8, xlab="Volym m3/ha", xlim=c(0,100),
>> col=c(25,21,17,14,10))
>> 
>> legend(locator(1), c("Nedbrytning 1 (<10%)", "Nedbrytning 2 (10-25%)",
>> "Nedbrytning 3 (25-50%)", 
>>         "Nedbrytning 4 (50-75%)", "Nedbrytning 5 (75-100%)"),
>> fill=c(25,21,17,14,10), cex=0.75)
>> palette("default")      # reset back to the default
>> 
>> 
>> -----------------------------------------------------------------------
>> Tord Snäll
>> Avd. f växtekologi, Evolutionsbiologiskt centrum, Uppsala universitet
>> Dept. of Plant Ecology, Evolutionary Biology Centre, Uppsala University
>> Villavägen 14			
>> SE-752 36 Uppsala, Sweden
>> Tel: 018-471 28 82 (int +46 18 471 28 82) (work)
>> Tel: 018-25 71 33 (int +46 18 25 71 33) (home)
>> Fax: 018-55 34 19 (int +46 18 55 34 19) (work)
>> E-mail: Tord.Snall at ebc.uu.se
>> Check this: http://www.vaxtbio.uu.se/resfold/snall.htm!
>> ------------------------------------------------------------------------
>> 
>> ______________________________________________
>> R-help at stat.math.ethz.ch mailing list
>> http://www.stat.math.ethz.ch/mailman/listinfo/r-help
>
>
>

-----------------------------------------------------------------------
Tord Snäll
Avd. f växtekologi, Evolutionsbiologiskt centrum, Uppsala universitet
Dept. of Plant Ecology, Evolutionary Biology Centre, Uppsala University
Villavägen 14			
SE-752 36 Uppsala, Sweden
Tel: 018-471 28 82 (int +46 18 471 28 82) (work)
Tel: 018-25 71 33 (int +46 18 25 71 33) (home)
Fax: 018-55 34 19 (int +46 18 55 34 19) (work)
E-mail: Tord.Snall at ebc.uu.se
Check this: http://www.vaxtbio.uu.se/resfold/snall.htm!
------------------------------------------------------------------------