ploting the two sets of data side by side

Or building on that solution but eliminating the do.call and lapply:

f <- function(x) table(cut(x, breaks = seq(0, 30, 5)))
barplot(rbind(f(x), f(y)), beside = TRUE)

On 12/7/05, Jacques VESLOT <jacques.veslot at cirad.fr> wrote:

try :

barplot(do.call("rbind",lapply(list(x,y), function(x) table(cut(x,
breaks =c(0,5,10,20,25,30))))),beside=T)

Subhabrata a ??crit :

Hello R-users,

I am new to R-commands.


I have two sets of data:

x <- c(7, 7 , 8, 9, 15, 17, 18)
y <- c(7, 8, 9, 15, 17, 19, 20, 20, 25, 23, 22)


I have used 'cut' command to seperate them as follows

a <- cut(x, breaks =c(0,5,10,20,25,30))

b <- cut(y, breaks =c(0,5,10,20,25,30))

table(a)

a
(0,5]  (5,10] (10,20] (20,25] (25,30]
    0       4       3       0       0

table(b)

b
(0,5]  (5,10] (10,20] (20,25] (25,30]
    0       3       5       3       0


Now if I want to a single graph with both sets of data side by side for same range.

Can some one help me regarding the above problem.

With Regards
Subhabrata Pal
subhabratapal at sraindia.com
     [[alternative HTML version deleted]]