On Fri, Jan 29, 2010 at 2:29 PM, Zoppoli, Gabriele (NIH/NCI) [G] <zoppo...@mail.nih.gov> wrote: > Hi, > > I've lost my mind on it... I have to scatterplot two vectors, grouped by a > third variable, with two different dimensions according to whether each cell > line in the plot is sensitive or resistant to a given drug, and with a > different color for each of 9 tissues of origin. > > > Here's what I've done: > >>obj<-xyplot(EGFR~EPHA2,data=Dataset,groups=interaction(Sens,Tissue),cex=c(1,3),pch=19) >> update(obj, par.settings = > + custom.theme(symbol = brewer.pal(9, "Paired"), > + fill = brewer.pal(9, "Paired")))
So your 'groups' will have 18 levels, and you want each successive pair of levels to have the same color. Instead of 'brewer.pal(9, "Paired")', use rep(brewer.pal(9, "Paired"), each = 2). -Deepayan >> > > Here are the data: > > Tissue Sens EGFR ITGB1 > 1 Breast 1 8.389 12.867 > 2 Breast 1 3.441 9.636 > 3 Breast 3 8.286 12.732 > 4 Breast 3 9.059 12.296 > 5 Breast 3 7.076 10.519 > 6 CNS 1 8.068 12.189 > 7 CNS 1 7.909 11.255 > 8 CNS 1 7.311 10.259 > 9 CNS 3 8.337 11.360 > 10 CNS 3 7.691 12.108 > 11 CNS 3 7.149 12.104 > 12 Colon 1 6.656 10.811 > 13 Colon 1 8.150 10.966 > 14 Colon 1 7.329 11.309 > 15 Colon 1 2.512 10.493 > 16 Colon 3 6.797 9.829 > 17 Colon 3 8.657 11.766 > 18 Leukemia 1 2.603 9.421 > 19 Leukemia 1 2.353 9.283 > 20 Leukemia 1 2.360 9.413 > 21 Leukemia 1 2.322 7.200 > 22 Leukemia 1 2.330 7.880 > 23 Lung 1 6.607 12.805 > 24 Lung 1 6.945 11.144 > 25 Lung 3 8.055 12.421 > 26 Lung 3 9.407 12.531 > 27 Lung 3 8.781 12.473 > 28 Lung 3 10.076 11.881 > 29 Lung 3 4.073 11.569 > 30 Melanoma 1 5.829 11.183 > 31 Melanoma 1 2.533 10.812 > 32 Melanoma 1 3.253 11.278 > 33 Melanoma 1 2.427 10.954 > 34 Melanoma 1 2.522 10.585 > 35 Melanoma 1 6.019 9.384 > 36 Melanoma 1 2.711 9.801 > 37 Melanoma 1 6.570 10.049 > 38 Melanoma 3 7.838 11.364 > 39 Ovarian 1 9.067 11.060 > 40 Ovarian 1 8.645 11.849 > 41 Ovarian 3 7.079 10.937 > 42 Ovarian 3 9.626 11.911 > 43 Ovarian 3 8.478 10.954 > 44 Ovarian 3 8.890 12.076 > 45 Prostate 3 8.356 12.486 > 46 Prostate 3 9.074 11.841 > 47 Renal 3 9.117 12.324 > 48 Renal 3 9.522 12.362 > 49 Renal 3 9.487 12.030 > 50 Renal 3 8.322 12.798 > 51 Renal 3 9.359 12.714 > 52 Renal 3 11.611 13.344 > 53 Renal 3 9.663 12.004 > 54 Renal 3 9.819 13.214 > > > Please help me!!!! > > Thank you so much > > > > Gabriele Zoppoli, MD > Ph.D. Fellow, Experimental and Clinical Oncology and Hematology, University > of Genova, Genova, Italy > Guest Researcher, LMP, NCI, NIH, Bethesda MD > > Work: 301-451-8575 > Mobile: 301-204-5642 > Email: zoppo...@mail.nih.gov > ______________________________________________ > 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. > ______________________________________________ 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.
