Re: [R] Filling symbols in xyplot

Sat, 25 Oct 2008 10:28:39 -0700 

Hi,
I feel that your example isn't exactly minimal so I may be completely overlooking your question. Would the following do? 

library(lattice)

mdf <- data.frame(x <- seq(0, pi, l=100), y=sin(x))

xyplot(y~x, data=mdf, type="b",
                par.settings=list(plot.symbol=list(pch=21, col="red", 
fill="blue"),
                                                        
plot.line=list(col="blue")))

baptiste

On 25 Oct 2008, at 15:39, John Poulsen wrote:


Hello,


I am using xyplot and am happy with my graph, *except* that I cannot  
get

the symbols to be filled.  I tried using
bg=c("red3","red","black","lightgrey")) in both the key and the xyplot
function, that that was obviously not the answer.  I would like the
sybols to be filled with the same colors as the lines.


Does anybody have an answer?  In case you want to see the graph so  
far,

I have included a ridiculously large dataframe for an example.  It
should work by copying and pasting everything below.

Thanks,
John


## Data for dataframe

Per 
= 
c 
(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 
,

3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4)


Effect=c(NA,NA,NA, 
0.2376395534,0.2746666667,0.4498834499,0.0070370370,0.0000000000,0.0000000000,0.1510180755 
,
0.1939983165,0.3705749806,0.0003326279,0.0000000000,0.0000000000,0.0607577973,0.3087870370,0.2044472934 
,NA,NA,
NA,0.1575877193,0.3622888889,0.3349059829,NA,NA,NA, 
0.1529505582,0.2393737374,0.3928671329,
0.0036094276,0.0000000000,0.0000000000,0.0798121567,0.1404797980,0.3064283864,0.0016199430,0.0000000000,0.0000000000,0.0334615010 
,
0.2346388889,0.1558945869,NA,NA,NA, 
0.1445175439,0.3089333333,0.2867008547,NA,NA,
NA, 
0.1410287081,0.2057979798,0.3950738151,0.0000000000,0.3050398860,0.0862091150,0.0673657629,0.1273569024,0.3064128464 
,
0.0109369149,0.3582849003,0.0224585137,0.0322641326,0.2232962963,0.1731766382 
,NA,NA,NA,0.1255701754,
0.2923111111,0.2842905983,NA,NA,NA, 
0.1369736842,0.1703777778,0.3386666667,0.0042262922,0.3632792023,
0.1664267677,0.0594074074,0.1016666667,0.2522079772,0.0000000000,0.4042621083,0.0241041366,0.0275009747,0.1971481481,0.1156780627 
,

NA,NA,NA,0.1309649123,0.2715333333,0.2804786325)


Spp 
= 
c 
("BOM 
","ING 
","Mal 
","MGZ 
","NGA 
","TIA 
","BOM 
","ING 
","Mal 
","MGZ 
","NGA 
","TIA 
","BOM 
","ING 
","Mal 
","MGZ 
","NGA 
","TIA 
","BOM 
","ING 
","Mal 
","MGZ 
","NGA 
","TIA","BOM","ING","Mal","MGZ","NGA","TIA","BOM","ING","Mal","MGZ",
"NGA 
","TIA 
","BOM 
","ING 
","Mal 
","MGZ 
","NGA 
","TIA 
","BOM 
","ING 
","Mal 
","MGZ 
","NGA 
","TIA 
","BOM 
","ING 
","Mal 
","MGZ 
","NGA 
","TIA 
","BOM 
","ING 
","Mal 
","MGZ","NGA","TIA","BOM","ING","Mal","MGZ","NGA","TIA","BOM","ING",
"Mal 
","MGZ 
","NGA 
","TIA 
","BOM 
","ING 
","Mal 
","MGZ 
","NGA 
","TIA 
","BOM 
","ING 
","Mal 
","MGZ 
","NGA 
","TIA 
","BOM 
","ING","Mal","MGZ","NGA","TIA","BOM","ING","Mal","MGZ","NGA","TIA")



Treat 
= 
c 
("CL 
","CL 
","CL 
","CL 
","CL 
","CL 
","UL 
","UL 
","UL 
","UL 
","UL 
","UL 
","UU 
","UU 
","UU 
","UU 
","UU 
","UU 
","CU 
","CU 
","CU 
","CU 
","CU 
","CU 
","CL 
","CL 
","CL 
","CL 
","CL 
","CL 
","UL 
","UL 
","UL","UL","UL","UL","UU","UU","UU","UU","UU","UU","CU","CU","CU",
"CU 
","CU 
","CU 
","CL 
","CL 
","CL 
","CL 
","CL 
","CL 
","UL 
","UL 
","UL 
","UL 
","UL 
","UL 
","UU 
","UU 
","UU 
","UU 
","UU 
","UU 
","CU 
","CU 
","CU 
","CU 
","CU 
","CU 
","CL 
","CL 
","CL 
","CL 
","CL 
","CL","UL","UL","UL","UL","UL","UL","UU","UU","UU","UU","UU","UU",

"CU","CU","CU","CU","CU","CU")

splabel=c("A","B","C","D","E","F")

resmat=data.frame(Effect, Per, Spp, Treat)

## Graphing functions
library(lattice)

key.aug <- list(corner=c(0,0.93), text = list(levels(resmat$Treat)),
        points = list(pch = c(21,2,21,2), cex=c(1.2,1,1.2,1), col =
c("red3","red","black","lightgrey")), lwd=2, cex=0.8)

xyplot(Effect~Per|Spp, resmat, groups=Treat, type="b", lwd=2,
pch=c(21,2,21,2), cex=c(1.2,1,1.2,1),
        col=c("red3","red","black","lightgrey"),xlab=c("Months"),
        strip=strip.custom(style=1, bg="lightgrey",
          factor.levels=c(splabel)),
            ylab=expression(Treatment-Control/Augmentation),
        par.strip.text=list(cex=1, lines=1.25, lwd=2),
        scales=list(x=list(at=c(1,2,3,4), labels=c(3,6,9,12)),
y=list(ylim=list(c(0,1),c(0,1),c(0,1),
                    c(0,1),c(0,1),c(0,1)))),
        key=key.aug)

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


_____________________________

Baptiste Auguié

School of Physics
University of Exeter
Stocker Road,
Exeter, Devon,
EX4 4QL, UK

Phone: +44 1392 264187

http://newton.ex.ac.uk/research/emag

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.






















					Reply via email to