Hi All,
I'm having a problem with barplot:
mydata
[1,] 2 108 0 0 0 1 3 0 0 0 0 0 7 18 3 4 8 20 26 20 19 7 1 1
mycol = c(rep('yellow', 2), rep('white', 3),
rep('orange',2), rep('white', 5), rep('orange',3),
rep('red',9))
barplot(mydata, col = mycol)
gives me an uniformly yellow barplot. How do I solve this?
bw
Federico
--
Federico C. F. Calboli
Neuroepidemiology and Ageing Research
Imperial College, St. Mary's Campus
Norfolk Place, London W2 1PG
Tel +44 (0)20 75941602 Fax +44 (0)20 75943193
f.calboli [.a.t] imperial.ac.uk
f.calboli [.a.t] gmail.com
On Dec 5, 2011, at 10:44 AM, Federico Calboli wrote:> Hi All, > > I'm having a problem with barplot: > > mydata > [1,] 2 108 0 0 0 1 3 0 0 0 0 0 7 18 3 4 8 20 26 20 > 19 7 1 1 > > mycol = c(rep('yellow', 2), rep('white', 3), rep('orange',2), > rep('white', 5), rep('orange',3), rep('red',9)) > > barplot(mydata, col = mycol) > > gives me an uniformly yellow barplot. How do I solve this?Hard to say, since it involves graphics devices and I cannot reproduce it. > mydata <- scan() 1: 2 108 0 0 0 1 3 0 0 0 0 0 7 18 3 4 8 20 26 20 19 7 1 1 25: Read 24 items > barplot(mydata) > ?barplot > mycol = c(rep('yellow', 2), rep('white', 3), rep('orange',2), rep('white', 5), rep('orange',3), rep('red',9)) > > barplot(mydata, col = mycol) Gives a multicolored display on my machine: -------------- next part -------------- A non-text attachment was scrubbed... Name: Rplot.pdf Type: application/pdf Size: 39931 bytes Desc: not available URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20111205/54e3c426/attachment.pdf> -------------- next part --------------> > bw > > Federico > > > > -- > Federico C. F. Calboli > Neuroepidemiology and Ageing Research > Imperial College, St. Mary's Campus > Norfolk Place, London W2 1PG > > Tel +44 (0)20 75941602 Fax +44 (0)20 75943193 > > f.calboli [.a.t] imperial.ac.uk > f.calboli [.a.t] gmail.com > > ______________________________________________ > R-help at 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.David Winsemius, MD West Hartford, CT
x <- c(2L, 108L, 0L, 0L, 0L, 1L, 3L, 0L, 0L, 0L, 0L, 0L, 7L, 18L,
3L, 4L, 8L, 20L, 26L, 20L, 19L, 7L, 1L, 1L)
mycol = c(rep('yellow', 2), rep('white', 3),
rep('orange',2),
rep('white', 5), rep('orange',3), rep('red',9))
barplot(x, col = mycol)
Produces a multi-colored barplot on my machine so I understand your
confusion. Does the above work for you? It may be something hidden in
your data.
What is your sessionInfo() and str(mydata)? Same problem in a fresh R
session (with --vanilla if necessary)?
Michael
On Mon, Dec 5, 2011 at 10:44 AM, Federico Calboli
<f.calboli at imperial.ac.uk> wrote:> Hi All,
>
> I'm having a problem with barplot:
>
> mydata
> [1,] ?2 108 ?0 ?0 ?0 ?1 ?3 ?0 ?0 ?0 ?0 ?0 ?7 18 ?3 ?4 ?8 20 26 20 19 ?7 ?1
?1
>
> mycol = c(rep('yellow', 2), rep('white', 3),
rep('orange',2), rep('white', 5), rep('orange',3),
rep('red',9))
>
> barplot(mydata, col = mycol)
>
> gives me an uniformly yellow barplot. How do I solve this?
>
> bw
>
> Federico
>
>
>
> --
> Federico C. F. Calboli
> Neuroepidemiology and Ageing Research
> Imperial College, St. Mary's Campus
> Norfolk Place, London W2 1PG
>
> Tel +44 (0)20 75941602 ? Fax +44 (0)20 75943193
>
> f.calboli [.a.t] imperial.ac.uk
> f.calboli [.a.t] gmail.com
>
> ______________________________________________
> R-help at 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.