# Re: [R] improving a bar graph

From: Jim Lemon <jim_at_bitwrit.com.au>
Date: Sun, 16 Dec 2007 20:50:39 +1100

Bob Green wrote:
> Hello,
>
> Below is the code for a basic bar graph. I was seeking advice
> regarding the following:
>
> (a) For each time period there are values from 16 people. How I can
> change the colour value so that each person has a different colour,
> which recurs across each of the three graphs/tie epriods?
>
> (b) I have seen much more sophisticated examples using lattice (e.g
> each person has a separate panel/plot). I am open to alternative code
> as to how I could present this data.
>
> Time1 <- c(9.0,6.0,1.0,5.0,7.0,9.0,5.0,7.5,6.0,8.0,5.0,5.0,9.0,4.0,5.0,5.0)
> Time2 <- c (10,5,3,3,3,6,7,8,5,8,7,7,9,8,5,3)
> Time3 <- c (10,0,3,0,0,6,0,0,0,0,0,0,0,0,0,0)
> df <- rbind (Time1, Time2, Time3)
> dft <- (t(df))
> dft
> barplot(dft, beside = TRUE, main= "Risk score by assessment", xlab =
> " Score", ylab = "frequency", col="blue")
>
Hi Bob,

library(plotrix)
barplot(dft, beside = TRUE, main= "Risk score by assessment", xlab =   " Score", ylab = "frequency",
col=color.scale(1:16,c(1,0.5,0),c(0,1,0),c(0,0.5,1))) legend(44,9,1:16,
fill=color.scale(1:16,c(1,0.5,0),c(0,1,0),c(0,0.5,1)))

Jim

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. Received on Sun 16 Dec 2007 - 09:51:21 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Sun 16 Dec 2007 - 13:30:18 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.